diff options
| author | johnvg | 2003-12-15 15:25:46 +0000 |
|---|---|---|
| committer | johnvg | 2003-12-15 15:25:46 +0000 |
| commit | 81999c73611b1b21745aeebb0d22c27e5579f905 (patch) | |
| tree | cf8b4b8877bd5ad031272866c5a97112195ba35e /frontend/checksupport.icl | |
| parent | add BEInsertForeignExport (diff) | |
add foreign export
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1436 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/checksupport.icl')
| -rw-r--r-- | frontend/checksupport.icl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/frontend/checksupport.icl b/frontend/checksupport.icl index f015f73..77aa745 100644 --- a/frontend/checksupport.icl +++ b/frontend/checksupport.icl @@ -103,6 +103,8 @@ where , copied_generic_defs :: {#Bool} } +:: FunDefIndex:==Int + :: IclModule = { icl_name :: !Ident , icl_functions :: !.{# FunDef } @@ -113,11 +115,10 @@ where , icl_common :: !.CommonDefs , icl_import :: !{!Declaration} , icl_imported_objects :: ![ImportedObject] + , icl_foreign_exports :: ![FunDefIndex] , icl_used_module_numbers :: !NumberSet , icl_copied_from_dcl :: !CopiedDefinitions -// RWS ... , icl_modification_time :: !{#Char} -// ... RWS } :: DclModule = @@ -254,7 +255,6 @@ retrieveGlobalDefinition {ste_kind,ste_def_level,ste_index} requ_kind mod_index = (ste_index, mod_index) = (NotFound, mod_index) - getBelongingSymbols :: !Declaration !v:{#DclModule} -> (!BelongingSymbols, !v:{#DclModule}) getBelongingSymbols (Declaration {decl_kind=STE_Imported STE_Type def_mod_index, decl_index}) dcl_modules # ({td_rhs}, dcl_modules) |