changed: #asPointer
authorClaus Gittinger <cg@exept.de>
Thu, 05 Nov 2009 00:08:23 +0100
changeset 2330 2d8b961f62dc
parent 2329 63e0cb1a051e
child 2331 b5280e1b3b9f
changed: #asPointer
ExternalLong.st
--- a/ExternalLong.st	Wed Nov 04 17:10:18 2009 +0100
+++ b/ExternalLong.st	Thu Nov 05 00:08:23 2009 +0100
@@ -88,7 +88,7 @@
 !
 
 asPointer
-    ^ ExternalBytes address:(self value)
+    ^ ExternalAddress new setAddress:(self value)
 
     "
      (ExternalLong new value:10) asPointer
@@ -117,9 +117,9 @@
 !ExternalLong class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/ExternalLong.st,v 1.5 2009-11-04 16:10:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/ExternalLong.st,v 1.6 2009-11-04 23:08:23 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/ExternalLong.st,v 1.5 2009-11-04 16:10:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/ExternalLong.st,v 1.6 2009-11-04 23:08:23 cg Exp $'
 ! !