Re: GNU Smalltalk on ARM - Raspberry Pi
Stephen Woolerton <[email protected]>
| Newsgroups | gmane.comp.lang.smalltalk.gnu.general |
|---|---|
| Message-ID | <[email protected]> |
> > 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 _______________________________________________ help-smalltalk mailing list [email protected] https://lists.gnu.org/mailman/listinfo/help-smalltalk