LongFloat.st
branchjv
changeset 17976 50c2416f962a
parent 17940 985e22966acb
child 18011 deb0c3355881
--- a/LongFloat.st	Mon Oct 29 17:05:17 2012 +0000
+++ b/LongFloat.st	Mon Oct 29 22:07:56 2012 +0000
@@ -187,7 +187,7 @@
     { \
 	__qNew(__newFloat__ , sizeof(struct __longfloatstruct)); \
 	if (__newFloat__) { \
-	    __qClass(__newFloat__) = LONGFLOAT_GLOBAL; \
+	    __objPtr(__newFloat__)->o_class = LONGFLOAT_GLOBAL; \
 	    __LongFloatInstPtr(__newFloat__)->f_longfloatvalue = (LONGFLOAT)(__fVal__); \
 	} \
     }
@@ -2540,15 +2540,15 @@
 !LongFloat class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/LongFloat.st,v 1.69 2012/04/17 20:24:53 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/LongFloat.st,v 1.70 2012/09/30 15:33:40 stefan Exp $'
 !
 
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libbasic/LongFloat.st,v 1.69 2012/04/17 20:24:53 stefan Exp §'
+    ^ '§Header: /cvs/stx/stx/libbasic/LongFloat.st,v 1.70 2012/09/30 15:33:40 stefan Exp §'
 !
 
 version_SVN
-    ^ '$Id: LongFloat.st 10807 2012-05-05 21:58:24Z vranyj1 $'
+    ^ '$Id: LongFloat.st 10858 2012-10-29 22:07:56Z vranyj1 $'
 ! !
 
 LongFloat initialize!