ExternalBytes.st
changeset 22872 eca075dc2a34
parent 22805 bcf1140358c8
child 22898 c77cc993e3d8
--- a/ExternalBytes.st	Thu May 10 15:46:42 2018 +0200
+++ b/ExternalBytes.st	Thu May 10 20:26:02 2018 +0200
@@ -690,6 +690,21 @@
     "
 !
 
+pointerAlignment
+    "return the alignement of pointers in structs and unions"
+
+%{  /* NOCONTEXT */
+    struct {
+        char c;
+        void* p;
+    } dummy;
+    RETURN (__mkSmallInteger( (char *)&dummy.p - (char *)&dummy.c ));
+%}
+    "
+     ExternalBytes pointerAlignment
+    "
+!
+
 sizeofDouble
     "return the number of bytes used by the machines native doubles"