--- 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 $'
! !