equal
deleted
inserted
replaced
1632 ! |
1632 ! |
1633 |
1633 |
1634 isNegativeZero |
1634 isNegativeZero |
1635 "many systems have two float.Pnt zeros" |
1635 "many systems have two float.Pnt zeros" |
1636 |
1636 |
1637 %{ |
1637 %{ /* NOCONTEXT */ |
1638 #if defined(__BORLANDC__) |
1638 #if defined(__BORLANDC__) |
1639 union { float f; int i; } __u; |
1639 union { float f; int i; } __u; |
1640 __u.f = __shortFloatVal(self); |
1640 __u.f = __shortFloatVal(self); |
1641 RETURN ( (__u.f == 0.0 && __u.i < 0) ? true : false ); |
1641 RETURN ( (__u.f == 0.0 && __u.i < 0) ? true : false ); |
1642 #else |
1642 #else |
2038 ! ! |
2038 ! ! |
2039 |
2039 |
2040 !ShortFloat class methodsFor:'documentation'! |
2040 !ShortFloat class methodsFor:'documentation'! |
2041 |
2041 |
2042 version |
2042 version |
2043 ^ '$Header: /cvs/stx/stx/libbasic/ShortFloat.st,v 1.135 2015-02-03 16:30:12 stefan Exp $' |
2043 ^ '$Header: /cvs/stx/stx/libbasic/ShortFloat.st,v 1.136 2015-02-03 16:31:11 stefan Exp $' |
2044 ! |
2044 ! |
2045 |
2045 |
2046 version_CVS |
2046 version_CVS |
2047 ^ '$Header: /cvs/stx/stx/libbasic/ShortFloat.st,v 1.135 2015-02-03 16:30:12 stefan Exp $' |
2047 ^ '$Header: /cvs/stx/stx/libbasic/ShortFloat.st,v 1.136 2015-02-03 16:31:11 stefan Exp $' |
2048 ! ! |
2048 ! ! |
2049 |
2049 |
2050 |
2050 |
2051 ShortFloat initialize! |
2051 ShortFloat initialize! |