accept unicode-strings as pointer argument.
--- 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!