accept unicode-strings as pointer argument.
authorClaus Gittinger <cg@exept.de>
Tue, 13 May 2008 15:50:55 +0200
changeset 11013 e0eb7f22fe34
parent 11012 f41dd1a93498
child 11014 81a34bf2861f
accept unicode-strings as pointer argument.
ExternalLibraryFunction.st
--- a/ExternalLibraryFunction.st	Tue May 13 14:32:59 2008 +0200
+++ b/ExternalLibraryFunction.st	Tue May 13 15:50:55 2008 +0200
@@ -1124,7 +1124,7 @@
                     __FAIL__(@symbol(BadArgForAsyncCall))
                 }
                 __argValues[i].pointerVal = (void *)(__stringVal(arg));
-            } else if (__isBytes(arg)) {
+            } else if (__isBytes(arg) || __isWords(arg) || __isLongs(arg)) {
                 char *p = (char *)(__byteArrayVal(arg));
                 int nInstBytes;
                 OBJ cls;
@@ -1333,7 +1333,7 @@
 !ExternalLibraryFunction class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalLibraryFunction.st,v 1.61 2008-04-28 14:18:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalLibraryFunction.st,v 1.62 2008-05-13 13:50:55 cg Exp $'
 ! !
 
 ExternalLibraryFunction initialize!