diff options
| author | johnvg | 2006-01-05 13:44:32 +0000 |
|---|---|---|
| committer | johnvg | 2006-01-05 13:44:32 +0000 |
| commit | 089e19102f95ba3d2187a673138894d44c758e9f (patch) | |
| tree | a7efe72353de1e8e56ed1fd6d7112b3d31adec5d /backend/backend.icl | |
| parent | port to 64 bit windows (diff) | |
use BEGetIntFromArray instead of BECopyInts to fix a problem if integers
have different sizes in clean and c
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1585 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'backend/backend.icl')
| -rw-r--r-- | backend/backend.icl | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/backend/backend.icl b/backend/backend.icl index dbd4441..44653b0 100644 --- a/backend/backend.icl +++ b/backend/backend.icl @@ -775,13 +775,20 @@ BEStrictPositions a0 a1 = code { ccall BEStrictPositions "I:VII:I" } // void BEStrictPositions (int functionIndex,int* bits,int** positions); - +/* BECopyInts :: !Int !Int !Int -> Int; BECopyInts a0 a1 a2 = code { ccall BECopyInts "III:I" } +*/ // int BECopyInts (int cLength,int* ints,int* cleanArray); +BEGetIntFromArray :: !Int !Int -> Int; +BEGetIntFromArray a0 a1 = code { + ccall BEGetIntFromArray "II:I" +} +// int BEGetIntFromArray (int index,int* ints); + BEDeclareDynamicTypeSymbol :: !Int !Int !BackEnd -> BackEnd; BEDeclareDynamicTypeSymbol a0 a1 a2 = code { ccall BEDeclareDynamicTypeSymbol "II:V:I" |