# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1257459280 -3600
# Node ID cb1a875c3d63b51bfe13f85cd88a64bd0ab2e7b9
# Parent  8639c2efa0df2f6f5b3394a267fb490cf3a30575
changed: #ffiTypeSymbolForType:

diff -r 8639c2efa0df -r cb1a875c3d63 ExternalLibraryFunction.st
--- a/ExternalLibraryFunction.st	Thu Nov 05 20:29:45 2009 +0100
+++ b/ExternalLibraryFunction.st	Thu Nov 05 23:14:40 2009 +0100
@@ -585,9 +585,9 @@
 
 ffiTypeSymbolForType:aType
     "map type to one of the ffi-supported ones:
-	sint8, sint16, sint32, sint64
-	uint8, uint16, uint32, uint64
-	bool void pointer handle
+        sint8, sint16, sint32, sint64
+        uint8, uint16, uint32, uint64
+        bool void pointer handle
     "
 
     aType == #sint8           ifTrue:[^ aType ].
@@ -629,7 +629,9 @@
     aType == #sdword          ifTrue:[^ #sint32 ].
     aType == #word            ifTrue:[^ #uint16 ].
     aType == #sword           ifTrue:[^ #sint16 ].
+    aType == #longlong        ifTrue:[^ #sint64 ].
     aType == #longLong        ifTrue:[^ #sint64 ].
+    aType == #ulonglong       ifTrue:[^ #uint64 ].
     aType == #ulongLong       ifTrue:[^ #uint64 ].
     aType == #handle          ifTrue:[^ #pointer ].
     aType == #lpstr           ifTrue:[^ #charPointer ].
@@ -643,14 +645,14 @@
     aType == #unsigned        ifTrue:[^ #uint ].
 
     (aType isString or:[aType isSymbol]) ifFalse:[
-	CType isNil ifTrue:[
-	    self error:'unknown type'.
-	].
-	^ aType typeSymbol.
+        CType isNil ifTrue:[
+            self error:'unknown type'.
+        ].
+        ^ aType typeSymbol.
     ].
 
     (aType endsWith:'Pointer') ifTrue:[
-	^ #pointer.
+        ^ #pointer.
     ].
     ^ aType
 
@@ -1398,11 +1400,11 @@
 !ExternalLibraryFunction class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalLibraryFunction.st,v 1.71 2009-11-05 16:25:16 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalLibraryFunction.st,v 1.72 2009-11-05 22:14:40 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalLibraryFunction.st,v 1.71 2009-11-05 16:25:16 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalLibraryFunction.st,v 1.72 2009-11-05 22:14:40 cg Exp $'
 ! !
 
 ExternalLibraryFunction initialize!