equal
deleted
inserted
replaced
334 ! |
334 ! |
335 |
335 |
336 epsilon |
336 epsilon |
337 ^ Epsilon |
337 ^ Epsilon |
338 ! ! |
338 ! ! |
|
339 |
339 |
340 |
340 !ShortFloat class methodsFor:'binary storage'! |
341 !ShortFloat class methodsFor:'binary storage'! |
341 |
342 |
342 readBinaryIEEESingleFrom:aStream |
343 readBinaryIEEESingleFrom:aStream |
343 "read a float value from the binary stream, aStream, |
344 "read a float value from the binary stream, aStream, |
1632 |
1633 |
1633 isNegativeZero |
1634 isNegativeZero |
1634 "many systems have two float.Pnt zeros" |
1635 "many systems have two float.Pnt zeros" |
1635 |
1636 |
1636 %{ |
1637 %{ |
|
1638 #ifdef __BORLANDC__ |
|
1639 RETURN(false); |
|
1640 #else |
1637 RETURN ( (__shortFloatVal(self) == 0.0 && signbit(__shortFloatVal(self)) != 0) ? true : false ); |
1641 RETURN ( (__shortFloatVal(self) == 0.0 && signbit(__shortFloatVal(self)) != 0) ? true : false ); |
|
1642 #endif |
1638 %}. |
1643 %}. |
1639 |
1644 |
1640 " |
1645 " |
1641 0.0 asShortFloat isNegativeZero |
1646 0.0 asShortFloat isNegativeZero |
1642 -0.0 asShortFloat isNegativeZero |
1647 -0.0 asShortFloat isNegativeZero |
2031 ! ! |
2036 ! ! |
2032 |
2037 |
2033 !ShortFloat class methodsFor:'documentation'! |
2038 !ShortFloat class methodsFor:'documentation'! |
2034 |
2039 |
2035 version |
2040 version |
2036 ^ '$Header: /cvs/stx/stx/libbasic/ShortFloat.st,v 1.133 2015-02-03 14:17:43 stefan Exp $' |
2041 ^ '$Header: /cvs/stx/stx/libbasic/ShortFloat.st,v 1.134 2015-02-03 16:13:12 stefan Exp $' |
2037 ! |
2042 ! |
2038 |
2043 |
2039 version_CVS |
2044 version_CVS |
2040 ^ '$Header: /cvs/stx/stx/libbasic/ShortFloat.st,v 1.133 2015-02-03 14:17:43 stefan Exp $' |
2045 ^ '$Header: /cvs/stx/stx/libbasic/ShortFloat.st,v 1.134 2015-02-03 16:13:12 stefan Exp $' |
2041 ! ! |
2046 ! ! |
2042 |
2047 |
2043 |
2048 |
2044 ShortFloat initialize! |
2049 ShortFloat initialize! |