From 81999c73611b1b21745aeebb0d22c27e5579f905 Mon Sep 17 00:00:00 2001
From: johnvg
Date: Mon, 15 Dec 2003 15:25:46 +0000
Subject: add foreign export

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1436 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
---
 frontend/checksupport.icl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'frontend/checksupport.icl')

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)
-- 
cgit v1.2.3