equal
deleted
inserted
replaced
788 |
788 |
789 "12345.0 asInteger" |
789 "12345.0 asInteger" |
790 "1e15 asInteger" |
790 "1e15 asInteger" |
791 ! |
791 ! |
792 |
792 |
|
793 asLongFloat |
|
794 "return a longFloat with same value as receiver" |
|
795 |
|
796 %{ /* NOCONTEXT */ |
|
797 #ifdef LONGFLOAT |
|
798 OBJ dummy = @global(LongFloat); |
|
799 OBJ newFloat; |
|
800 LONGFLOAT fVal = (LONGFLOAT)__floatVal(self); |
|
801 |
|
802 __qMKLFLOAT(newFloat, fVal); |
|
803 RETURN ( newFloat ); |
|
804 #endif |
|
805 %}. |
|
806 ^ self |
|
807 |
|
808 " |
|
809 123 asFloat asLongFloat |
|
810 " |
|
811 |
|
812 "Created: / 7.9.2001 / 13:43:04 / cg" |
|
813 "Modified: / 7.9.2001 / 13:43:16 / cg" |
|
814 ! |
|
815 |
793 asShortFloat |
816 asShortFloat |
794 "return a shortFloat with same value as receiver" |
817 "return a shortFloat with same value as receiver" |
795 |
818 |
796 %{ /* NOCONTEXT */ |
819 %{ /* NOCONTEXT */ |
797 |
820 |
2087 ! ! |
2110 ! ! |
2088 |
2111 |
2089 !Float class methodsFor:'documentation'! |
2112 !Float class methodsFor:'documentation'! |
2090 |
2113 |
2091 version |
2114 version |
2092 ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.115 2001-09-04 11:26:41 cg Exp $' |
2115 ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.116 2001-09-07 11:42:33 cg Exp $' |
2093 ! ! |
2116 ! ! |
2094 Float initialize! |
2117 Float initialize! |