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/backendconvert.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/backendconvert.icl')
| -rw-r--r-- | backend/backendconvert.icl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/backend/backendconvert.icl b/backend/backendconvert.icl index 904dc2c..980042b 100644 --- a/backend/backendconvert.icl +++ b/backend/backendconvert.icl @@ -2039,11 +2039,11 @@ getVariableSequenceNumber varInfoPtr be VI_AliasSequenceNumber {var_info_ptr} -> getVariableSequenceNumber var_info_ptr be -convertForeignExports :: [Int] Int BackEnd -> BackEnd -convertForeignExports [functionIndex:icl_foreign_exports] main_dcl_module_n backEnd +convertForeignExports :: [ForeignExport] Int BackEnd -> BackEnd +convertForeignExports [{fe_fd_index,fe_stdcall}:icl_foreign_exports] main_dcl_module_n backEnd # backEnd = convertForeignExports icl_foreign_exports main_dcl_module_n backEnd - # (function_symbol_p,backEnd) = BEFunctionSymbol functionIndex main_dcl_module_n backEnd - = BEInsertForeignExport function_symbol_p backEnd + # (function_symbol_p,backEnd) = BEFunctionSymbol fe_fd_index main_dcl_module_n backEnd + = BEInsertForeignExport function_symbol_p (if fe_stdcall 1 0) backEnd convertForeignExports [] main_dcl_module_n backEnd = backEnd |