From 889d4d54c103652495f827fa500f74edd7f66f1a Mon Sep 17 00:00:00 2001
From: johnvg
Date: Wed, 20 Mar 2002 12:56:14 +0000
Subject: set sdef_exported bit for sdefs in the main dcl module to generate
 the label name for an exported type when the main module is on a cycle and a
 type exported from this module is used in a function in another definition
 module

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1057 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
---
 backendC/CleanCompilerSources/backend.c | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'backendC')

diff --git a/backendC/CleanCompilerSources/backend.c b/backendC/CleanCompilerSources/backend.c
index c6104fa..dff3023 100644
--- a/backendC/CleanCompilerSources/backend.c
+++ b/backendC/CleanCompilerSources/backend.c
@@ -3277,6 +3277,8 @@ BEExportType (int dclTypeIndex, int iclTypeIndex)
 
 	iclDef->sdef_dcl_icl	= dclDef;
 	dclDef->sdef_dcl_icl	= iclDef;
+
+	iclDef->sdef_exported = True;
 } /* BEExportType */
 
 void
-- 
cgit v1.2.3