equal
deleted
inserted
replaced
85 a good idea to store the bits of a float - the reader might have a |
85 a good idea to store the bits of a float - the reader might have a |
86 totally different representation - so floats will eventually be |
86 totally different representation - so floats will eventually be |
87 binary stored in a device independent format." |
87 binary stored in a device independent format." |
88 |
88 |
89 %{ /* NOCONTEXT */ |
89 %{ /* NOCONTEXT */ |
90 RETURN ( __MKFLOAT((0.0) COMMA_SND) ); |
90 OBJ newFloat; |
91 %} |
91 |
|
92 __qMKFLOAT(newFloat, 0.0, SENDER); |
|
93 RETURN (newFloat); |
|
94 %} |
|
95 |
92 ! ! |
96 ! ! |
93 |
97 |
94 !Float class methodsFor:'binary storage'! |
98 !Float class methodsFor:'binary storage'! |
95 |
99 |
96 binaryDefinitionFrom:aStream manager: manager |
100 binaryDefinitionFrom:aStream manager: manager |
1061 ! ! |
1065 ! ! |
1062 |
1066 |
1063 !Float class methodsFor:'documentation'! |
1067 !Float class methodsFor:'documentation'! |
1064 |
1068 |
1065 version |
1069 version |
1066 ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.35 1996-04-17 10:31:49 cg Exp $' |
1070 ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.36 1996-04-17 20:22:03 cg Exp $' |
1067 ! ! |
1071 ! ! |