From bde39f2cbeef6e4ee07149d429ab90b8ef894d3e Mon Sep 17 00:00:00 2001
From: johnvg
Date: Fri, 2 Apr 2004 12:00:33 +0000
Subject: implement foreign export with stdcall

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

(limited to 'frontend/checksupport.dcl')

diff --git a/frontend/checksupport.dcl b/frontend/checksupport.dcl
index 260ec66..6bcb119 100644
--- a/frontend/checksupport.dcl
+++ b/frontend/checksupport.dcl
@@ -100,12 +100,14 @@ cConversionTableSize	:== 10
 	,	icl_common				:: !.CommonDefs
 	,	icl_import				:: !{!Declaration}
 	,	icl_imported_objects	:: ![ImportedObject]
-	,	icl_foreign_exports		:: ![FunDefIndex]
+	,	icl_foreign_exports		:: ![ForeignExport]
 	,	icl_used_module_numbers :: !NumberSet
 	,	icl_copied_from_dcl 	:: !CopiedDefinitions
 	,	icl_modification_time	:: !{#Char}
 	}
 
+:: ForeignExport = {fe_fd_index :: !FunDefIndex, fe_stdcall :: !Bool}
+
 ::	DclModule =
 	{	dcl_name			:: !Ident
 	,	dcl_functions		:: !{# FunType }
-- 
cgit v1.2.3