Issue status update for
http://smalltalk.gnu.org/project/issue/154
Post a follow up:
http://smalltalk.gnu.org/project/comments/add/154
Project: GNU Smalltalk
Version: <none>
Component: Testsuite
Category: bug reports
Priority: normal
Assigned to: Unassigned
Reported by: tgg
Updated by: tgg
Status: active
st> (FloatE emin - FloatE precision - 1 to: FloatE emax - 1) collect:
[:i | p := (FloatE coerce: 1) timesTwoPower: i. (FloatE coerce: p
asExactFraction) = p]"Global garbage collection... done"
(true false false false false false false false false false false false
false false false false false false false false false false false false
true true true true true true true true true true true true true true
true true true true true true true true true true true true true true
true true true true true true true true true true true true true true
true true true true true true true true true true true true true true
true true true true true true true true true true true true true true
true true true true true true true true true true true true true true
true true true true true true true true true true true true true true
true true true true true true true true true true true true true true
true true true true true true true true true true true true true true
true true true true true true true true true true true true true true
true true true true true true true true true true true true true true
true true true true true true true true true true true true true true
true true true true true true true true true true true true true true
true true true true true true true true true true true true true true
true true true true true true true true true true true true true true
true true true true true true true true true true true true true true
true true true true true true true true true true true true true true
true true true true true true true true true true true true true true
true true )
where emin is -125, precision is 24 and emax is 128. The first failing
is -149:
st> p:= (FloatE coerce: 1) timesTwoPower: -149.
2.6524948e-315
st> p asExactFraction
"Global garbage collection... done"
1/377003575316277553052632783947358479815640765734281611362288441560101396530857955835685848633641608981764089063400052322800846281248691448694119974860434438887084693231743502178167752441192448774799271819130974018130465379775860716808779827596916922071594850183201524526501846714374614008118077197384100897810808832
st> FloatE coerce: p asExactFraction
0.0
_______________________________________________
help-smalltalk mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/help-smalltalk
