From 8d277d3f6cd3c101325ee62d996448e49f52e488 Mon Sep 17 00:00:00 2001
From: johnvg
Date: Mon, 15 Dec 2003 15:23:00 +0000
Subject: add BEInsertForeignExport

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1435 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
---
 backend/backend.dcl | 2 ++
 backend/backend.icl | 6 ++++++
 2 files changed, 8 insertions(+)

(limited to 'backend')

diff --git a/backend/backend.dcl b/backend/backend.dcl
index c12e640..263effc 100644
--- a/backend/backend.dcl
+++ b/backend/backend.dcl
@@ -277,6 +277,8 @@ BEExportFunction :: !Int !BackEnd -> BackEnd;
 // void BEExportFunction (int functionIndex);
 BEDefineImportedObjsAndLibs :: !BEStringListP !BEStringListP !BackEnd -> BackEnd;
 // void BEDefineImportedObjsAndLibs (BEStringListP objs,BEStringListP libs);
+BEInsertForeignExport :: !BESymbolP !BackEnd -> BackEnd;
+// void BEInsertForeignExport (BESymbolP symbol_p);
 BESetMainDclModuleN :: !Int !BackEnd -> BackEnd;
 // void BESetMainDclModuleN (int main_dcl_module_n_parameter);
 BEStrictPositions :: !Int !BackEnd -> (!Int,!Int,!BackEnd);
diff --git a/backend/backend.icl b/backend/backend.icl
index 040f5af..a011279 100644
--- a/backend/backend.icl
+++ b/backend/backend.icl
@@ -758,6 +758,12 @@ BEDefineImportedObjsAndLibs a0 a1 a2 = code {
 }
 // void BEDefineImportedObjsAndLibs (BEStringListP objs,BEStringListP libs);
 
+BEInsertForeignExport :: !BESymbolP !BackEnd -> BackEnd;
+BEInsertForeignExport a0 a1 = code {
+	ccall BEInsertForeignExport "I:V:I"
+}
+// void BEInsertForeignExport (BESymbolP symbol_p);
+
 BESetMainDclModuleN :: !Int !BackEnd -> BackEnd;
 BESetMainDclModuleN a0 a1 = code {
 	ccall BESetMainDclModuleN "I:V:I"
-- 
cgit v1.2.3