--- a/Fraction.st Wed Mar 01 02:42:40 1995 +0100
+++ b/Fraction.st Mon Mar 06 20:18:25 1995 +0100
@@ -21,7 +21,7 @@
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libbasic/Fraction.st,v 1.13 1995-02-16 16:24:30 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Fraction.st,v 1.14 1995-03-06 19:16:09 claus Exp $
'!
!Fraction class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
version
"
-$Header: /cvs/stx/stx/libbasic/Fraction.st,v 1.13 1995-02-16 16:24:30 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Fraction.st,v 1.14 1995-03-06 19:16:09 claus Exp $
"
!
@@ -92,13 +92,15 @@
if (self == Fraction) {
if (_CanDoQuickAlignedNew(sizeof(struct fractionstruct))) {
OBJ newFraction;
+ int spc;
_qCheckedAlignedNew(newFraction, sizeof(struct fractionstruct));
_InstPtr(newFraction)->o_class = Fraction;
_FractionInstPtr(newFraction)->f_numerator = num;
_FractionInstPtr(newFraction)->f_denominator = den;
- __STORE(newFraction, num);
- __STORE(newFraction, den);
+ spc = _qSpace(newFraction);
+ __STORE_SPC(newFraction, num, spc);
+ __STORE_SPC(newFraction, den, spc);
RETURN ( newFraction );
}
}