#FEATURE
authorStefan Vogel <sv@exept.de>
Thu, 29 Oct 2015 13:31:17 +0100
changeset 18878 f370d1f65d08
parent 18877 9c305830c1ef
child 18879 5d1bbfc1761d
#FEATURE class: ExternalBytes added: #sizeofNativeInt
ExternalBytes.st
--- a/ExternalBytes.st	Thu Oct 29 12:07:15 2015 +0100
+++ b/ExternalBytes.st	Thu Oct 29 13:31:17 2015 +0100
@@ -682,6 +682,17 @@
     "
 !
 
+sizeofNativeInt
+    "return the number of bytes used by the machine's SmallInteger native values"
+
+%{  /* NOCONTEXT */
+    RETURN (__mkSmallInteger( sizeof(INT)));
+%}
+    "
+     ExternalBytes sizeofNativeInt
+    "
+!
+
 sizeofPointer
     "return the number of bytes used by the machine's native pointer"