equal
deleted
inserted
replaced
560 aType == #int8 ifTrue:[^ #sint8 ]. |
560 aType == #int8 ifTrue:[^ #sint8 ]. |
561 aType == #int16 ifTrue:[^ #sint16 ]. |
561 aType == #int16 ifTrue:[^ #sint16 ]. |
562 aType == #int32 ifTrue:[^ #sint32 ]. |
562 aType == #int32 ifTrue:[^ #sint32 ]. |
563 aType == #int64 ifTrue:[^ #sint64 ]. |
563 aType == #int64 ifTrue:[^ #sint64 ]. |
564 aType == #voidPointer ifTrue:[^ #pointer ]. |
564 aType == #voidPointer ifTrue:[^ #pointer ]. |
|
565 aType == #uint8Pointer ifTrue:[^ #pointer ]. |
565 |
566 |
566 aType == #short ifTrue:[^ #sint16 ]. |
567 aType == #short ifTrue:[^ #sint16 ]. |
567 aType == #long ifTrue:[^ #long ]. |
568 aType == #long ifTrue:[^ #long ]. |
568 aType == #int ifTrue:[^ #int ]. |
569 aType == #int ifTrue:[^ #int ]. |
569 aType == #ushort ifTrue:[^ #uint16 ]. |
570 aType == #ushort ifTrue:[^ #uint16 ]. |
594 ]. |
595 ]. |
595 ^ aType typeSymbol. |
596 ^ aType typeSymbol. |
596 ]. |
597 ]. |
597 |
598 |
598 ^ aType |
599 ^ aType |
|
600 |
|
601 "Modified: / 14-06-2007 / 17:21:42 / cg" |
599 ! |
602 ! |
600 |
603 |
601 name:functionNameOrVirtualIndex module:aModuleName returnType:aReturnType argumentTypes:argTypes |
604 name:functionNameOrVirtualIndex module:aModuleName returnType:aReturnType argumentTypes:argTypes |
602 name := functionNameOrVirtualIndex. |
605 name := functionNameOrVirtualIndex. |
603 functionNameOrVirtualIndex isNumber ifTrue:[ |
606 functionNameOrVirtualIndex isNumber ifTrue:[ |
1329 ! ! |
1332 ! ! |
1330 |
1333 |
1331 !ExternalLibraryFunction class methodsFor:'documentation'! |
1334 !ExternalLibraryFunction class methodsFor:'documentation'! |
1332 |
1335 |
1333 version |
1336 version |
1334 ^ '$Header: /cvs/stx/stx/libbasic/ExternalLibraryFunction.st,v 1.58 2007-06-22 14:00:57 cg Exp $' |
1337 ^ '$Header: /cvs/stx/stx/libbasic/ExternalLibraryFunction.st,v 1.59 2007-06-27 14:21:29 cg Exp $' |
1335 ! ! |
1338 ! ! |
1336 |
1339 |
1337 ExternalLibraryFunction initialize! |
1340 ExternalLibraryFunction initialize! |