Re: [Help-smalltalk] GNU Smalltalk on ARM - Raspberry Pi

[Stephen Woolerton]

> 
> how is this going? I didn't get around to try it on a beaglebone
> yet. Did you progress with this item?
> 
> holger

I’ve just installed GNU Smalltalk on FreeBSD 10.1 on a Raspberry Pi. I used 
latest sources as at 26-Jan-2015. 

All tests passed except for the FloatD and FloatE classes which failed a test. 
The test that failed is in floatmath.st, line 275...
        self assert: (self coerce: p reciprocal negated) negative.
where p is as follows;
   p := 1 bitShift: 1 + self precision - self emin.


To assist with resolving the bug, here are some examples from a GST session on 
the Pi:-

st > | p |
st> p := 1 bitShift: 1 + FloatD precision - FloatD emin.
404804506614621236704990693437834614099113299528284236713802716054860679135990693783920767402874248990374155728633623822779617474771586953734026799881477019843034848553132722728933815484186432682479535356945490137124014966849385397236206711298319112681620113024717539104666829230461005064372655017292012526615415482186989568

st> FloatD coerce: p reciprocal negated.
0.0
st> FloatD coerce: 1000 reciprocal  negated.
-0.001
st> FloatD coerce: 0.0  negated.
-0.0

I also found the number region around which the bug shows up...
st> FloatD coerce: 
4048045066146212367049906934378346140991132995282842367138027160548606791359906937839207674028742489903741557286336238227796174747715869537340267998814770198430348485531327227289338154841864326824795353569454901371240149668493853972362067112983191126816201130247175391046668292304610050643726550172920125266
 reciprocal * -1.
-2.4703282292062327d-307
st> FloatD coerce: 
404804506614621236704990693437834614099113299528284236713802716054860679135990693783920767402874248990374155728633623822779617474771586953734026799881477019843034848553132722728933815484186432682479535356945490137124014966849385397236206711298319112681620113024717539104666829230461005064372655017292012526615
 reciprocal * -1.
0.0