diff options
| author | johnvg | 2004-04-02 12:00:33 +0000 |
|---|---|---|
| committer | johnvg | 2004-04-02 12:00:33 +0000 |
| commit | bde39f2cbeef6e4ee07149d429ab90b8ef894d3e (patch) | |
| tree | df8bda341bb519b86aa4dc94e02c86e70b3dcbcd /backend/backend.icl | |
| parent | export strictness of argument of empty_cache (diff) | |
implement foreign export with stdcall
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1483 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'backend/backend.icl')
| -rw-r--r-- | backend/backend.icl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/backend/backend.icl b/backend/backend.icl index a011279..765af9d 100644 --- a/backend/backend.icl +++ b/backend/backend.icl @@ -758,11 +758,11 @@ BEDefineImportedObjsAndLibs a0 a1 a2 = code { } // void BEDefineImportedObjsAndLibs (BEStringListP objs,BEStringListP libs); -BEInsertForeignExport :: !BESymbolP !BackEnd -> BackEnd; -BEInsertForeignExport a0 a1 = code { - ccall BEInsertForeignExport "I:V:I" +BEInsertForeignExport :: !BESymbolP !Int !BackEnd -> BackEnd; +BEInsertForeignExport a0 a1 a2 = code { + ccall BEInsertForeignExport "II:V:I" } -// void BEInsertForeignExport (BESymbolP symbol_p); +// void BEInsertForeignExport (BESymbolP symbol_p,int stdcall); BESetMainDclModuleN :: !Int !BackEnd -> BackEnd; BESetMainDclModuleN a0 a1 = code { |