# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1260201496 -3600
# Node ID ab229fdd630c278215c3ff21ecc3725f8b4cd07a
# Parent  d7267a747c2f614e191142a7f808097eca0611e0
added: #copyCStringFromHeap

diff -r d7267a747c2f -r ab229fdd630c ExternalAddress.st
--- a/ExternalAddress.st	Mon Dec 07 16:57:59 2009 +0100
+++ b/ExternalAddress.st	Mon Dec 07 16:58:16 2009 +0100
@@ -251,6 +251,10 @@
     "
       (ExternalAddress newAddress:16r12345678) asExternalBytes
     "
+!
+
+copyCStringFromHeap
+    ^ self asExternalBytes copyCStringFromHeap
 ! !
 
 !ExternalAddress methodsFor:'printing & storing'!
@@ -302,9 +306,9 @@
 !ExternalAddress class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalAddress.st,v 1.23 2009-11-05 14:37:17 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalAddress.st,v 1.24 2009-12-07 15:58:16 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalAddress.st,v 1.23 2009-11-05 14:37:17 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalAddress.st,v 1.24 2009-12-07 15:58:16 cg Exp $'
 ! !