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/backendinterface.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/backendinterface.icl')
| -rw-r--r-- | backend/backendinterface.icl | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/backend/backendinterface.icl b/backend/backendinterface.icl index ca72776..9b08d0f 100644 --- a/backend/backendinterface.icl +++ b/backend/backendinterface.icl @@ -412,6 +412,7 @@ typeToClass {dtci_iclModuleIndex, dtci_iclModule, dtci_dclModules} {type_ident, nIclClasses = size dtci_iclModule.icl_common.com_class_defs +/* copyInts :: !Int !Int -> {#Int} copyInts length cArray = code { @@ -422,3 +423,8 @@ copyInts length cArray ccall BECopyInts "IIA-I" pop_b 1 } +*/ + +copyInts :: !Int !Int -> {#Int} +copyInts length cArray + = {BEGetIntFromArray i cArray \\ i<-[0..length-1]}
\ No newline at end of file |