--- a/ExternalLong.st Fri May 11 09:25:04 2018 +0200
+++ b/ExternalLong.st Fri May 11 09:56:58 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 1998 by eXept Software AG
All Rights Reserved
@@ -62,10 +64,10 @@
may change their address.
DANGER ALERT: the memory is NOT automatically freed until it is either
- MANUALLY freed (see #free) or the returned externalBytes object
- is unprotected or the classes releaseAllMemory method is called."
+ MANUALLY freed (see #free) or the returned externalBytes object
+ is unprotected or the classes releaseAllMemory method is called."
- ^ super new:(ExternalAddress pointerSize)
+ ^ super new:(ExternalBytes sizeofPointer)
"
ExternalLong new
@@ -80,12 +82,12 @@
Return a corresponding ExternalBytes object or raise MallocFailure (if malloc fails).
DANGER ALERT: the memory block as allocated will be automatically freed
- as soon as the reference to the returned externalBytes object
- is gone (by the next garbage collect).
- If the memory has been passed to a C-function which
- remembers this pointer, bad things may happen ...."
+ as soon as the reference to the returned externalBytes object
+ is gone (by the next garbage collect).
+ If the memory has been passed to a C-function which
+ remembers this pointer, bad things may happen ...."
- ^ super unprotectedNew:(ExternalAddress pointerSize)
+ ^ super unprotectedNew:(ExternalBytes sizeofPointer)
"
ExternalLong new
@@ -115,7 +117,7 @@
"warning: retrieves a signed integer with the size of the native machine's
pointer (i.e. either 32 or 64bit)"
- ExternalAddress pointerSize == 8 ifTrue:[
+ ExternalBytes sizeofPointer == 8 ifTrue:[
^ self signedInt64At:1 MSB:IsBigEndian
] ifFalse:[
^ self signedInt32At:1 MSB:IsBigEndian
@@ -156,7 +158,7 @@
"warning: retrieves an integer with the size of the native machine's
pointer (i.e. either 32 or 64bit)"
- ExternalAddress pointerSize == 8 ifTrue:[
+ ExternalBytes sizeofPointer == 8 ifTrue:[
^ self unsignedInt64At:1 MSB:IsBigEndian
] ifFalse:[
^ self unsignedInt32At:1 MSB:IsBigEndian