--- a/ExternalAddress.st Sun May 13 17:52:23 2018 +0200
+++ b/ExternalAddress.st Sun May 13 20:32:55 2018 +0200
@@ -164,11 +164,15 @@
therefore, queries like
'ExternalAddress pointerSize == 8'
cost nothing; they are compiled in as a constant
- (and even conditionals are eliminated)."
+ (and even conditionals are eliminated).
+
+ obsolete now -> see ExternalBytes"
-%{ /* NOCONTEXT */
- RETURN(__mkSmallInteger(sizeof(void *)));
-%}.
+ ^ ExternalBytes sizeofPointer
+
+"/ %{ /* NOCONTEXT */
+"/ RETURN(__mkSmallInteger(sizeof(void *)));
+"/ %}.
"
self pointerSize
@@ -190,11 +194,14 @@
!
uintSize
- "answer the size in bytes of an unsigned int."
+ "answer the size in bytes of an unsigned int.
+ obsolete now -> see ExternalBytes"
-%{ /* NOCONTEXT */
- RETURN(__mkSmallInteger(sizeof(unsigned int)));
-%}.
+ ^ExternalBytes sizeofInt
+
+"/ %{ /* NOCONTEXT */
+"/ RETURN(__mkSmallInteger(sizeof(unsigned int)));
+"/ %}.
"
self uintSize
@@ -202,11 +209,14 @@
!
ulongSize
- "answer the size in bytes of an unsigned long."
+ "answer the size in bytes of an unsigned long.
+ obsolete now -> see ExternalBytes"
-%{ /* NOCONTEXT */
- RETURN(__mkSmallInteger(sizeof(unsigned long)));
-%}.
+ ^ExternalBytes sizeofLong
+
+"/ %{ /* NOCONTEXT */
+"/ RETURN(__mkSmallInteger(sizeof(unsigned long)));
+"/ %}.
"
self ulongSize
@@ -214,11 +224,14 @@
!
ushortSize
- "answer the size in bytes of an unsigned short."
+ "answer the size in bytes of an unsigned short.
+ obsolete now -> see ExternalBytes"
-%{ /* NOCONTEXT */
- RETURN(__mkSmallInteger(sizeof(unsigned short)));
-%}.
+ ^ExternalBytes sizeofShort
+
+"/ %{ /* NOCONTEXT */
+"/ RETURN(__mkSmallInteger(sizeof(unsigned short)));
+"/ %}.
"
self ushortSize