ExternalBytes.st
changeset 18583 6a555df5d859
parent 18582 51ee4f8fa9f2
child 18607 90941e1c74c8
child 18608 7d521f25267c
--- 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"