[Help-smalltalk] Re: [bug] Build failure on alpha

[Thomas Girard]

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

On alpha, without GMP, with -mieee (and devo--2.2--patch-558 applied):

st> | p |
st> p := 1 bitShift: FloatE precision - 1.
8388608
st> p printNl.
8388608
8388608
st> "Should be p+1"
st> (FloatE coerce: p+0+(3/4)) asExactFraction printNl.
8388609
8388609
st> (FloatE coerce: p+1+(1/4)) asExactFraction printNl.
8388609
8388609


Likewise without -mieee.

But:

st> (FloatE emin - FloatE precision - 1 to: FloatE emax - 1)
allSatisfy: [:i | p := (FloatE coerce: 1) timesTwoPower: i. (FloatE
coerce: p asExactFraction) = p]
false