From a08b858275c4528c51e391dc0b223e68e845ff12 Mon Sep 17 00:00:00 2001
From: johnvg
Date: Wed, 13 Nov 2002 14:24:17 +0000
Subject: export label with t prefix for records for dynamics

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1278 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
---
 backendC/CleanCompilerSources/instructions.c | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

(limited to 'backendC')

diff --git a/backendC/CleanCompilerSources/instructions.c b/backendC/CleanCompilerSources/instructions.c
index d6a53f3..cf4b9dd 100644
--- a/backendC/CleanCompilerSources/instructions.c
+++ b/backendC/CleanCompilerSources/instructions.c
@@ -1038,7 +1038,7 @@ static Bool IsInlineFromCurrentModule (SymbDef def)
 	are 'GenBStackElems', 'GenStackLayoutOfNode' and 'GenStackLayoutOfState'.
 */
 
-static char BElems[] = BASIC_ELEMS_STRING;			
+static char BElems[] = BASIC_ELEMS_STRING;
 
 static void GenBStackElems (StateS state)
 {
@@ -2804,7 +2804,10 @@ void GenUnboxedConsRecordDescriptor (SymbDef sdef,int tail_strict)
 
 	tuple_arguments_state[0] = sdef->sdef_record_state;
 	tuple_arguments_state[1] = LazyState;
-	
+# if 0
+	FPutC ('l', OutFile);
+	FPutC ('R', OutFile);
+# endif
 	GenABStackElems (tuple_state);
 
 	DetermineSizeOfState (tuple_state,&asize,&bsize);
@@ -3128,7 +3131,9 @@ void GenLazyRecordDescriptorAndExport (SymbDef sdef)
 	} else {
 		if (ExportLocalLabels){
 			put_directive_ (Dexport);
-			FPrintF (OutFile,"e_%s_" RECORD_N_PREFIX "%s",CurrentModule,name);			
+			FPrintF (OutFile,"e_%s_" RECORD_D_PREFIX "%s",CurrentModule,name);
+			put_directive_ (Dexport);
+			FPrintF (OutFile,"e_%s_" RECORD_N_PREFIX "%s",CurrentModule,name);
 		}
 
 		put_directive_ (Ddescn);
-- 
cgit v1.2.3