--- a/ExternalBytes.st Wed Jul 15 16:56:42 2015 +0200
+++ b/ExternalBytes.st Wed Jul 15 17:02:51 2015 +0200
@@ -573,36 +573,6 @@
char c;
double d;
} dummy;
- RETURN (__mkSmallInteger( (void*)&dummy.d - (void *)&dummy.c ));
-%}
- "
- ExternalBytes doubleAlignment
- "
-!
-
-longAlignment
- "return the alignement of longs in structs and unions"
-
-%{ /* NOCONTEXT */
- struct {
- char c;
- long l;
- } dummy;
- RETURN (__mkSmallInteger( (void*)&dummy.l - (void *)&dummy.c ));
-%}
- "
- ExternalBytes longAlignment
- "
-!
-
-doubleAlignment
- "return the alignement of longs in structs and unions"
-
-%{ /* NOCONTEXT */
- struct {
- char c;
- double d;
- } dummy;
RETURN (__mkSmallInteger( (char *)&dummy.d - (char *)&dummy.c ));
%}
"
@@ -610,15 +580,6 @@
"
!
-isBuiltInClass
- "return true if this class is known by the run-time-system.
- Here, true is returned."
-
- ^ self == ExternalBytes
-
- "Modified: / 11.6.1998 / 17:12:51 / cg"
-!
-
longAlignment
"return the alignement of longs in structs and unions"
@@ -634,6 +595,15 @@
"
!
+isBuiltInClass
+ "return true if this class is known by the run-time-system.
+ Here, true is returned."
+
+ ^ self == ExternalBytes
+
+ "Modified: / 11.6.1998 / 17:12:51 / cg"
+!
+
sizeofDouble
"return the number of bytes used by the machines native doubles"