From 18a014149a2fcbfdf95b1c33823eac097af8f3a6 Mon Sep 17 00:00:00 2001
From: johnvg
Date: Mon, 17 Dec 2001 16:27:05 +0000
Subject: fix bug in label names of cons for unboxed lists of records

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

(limited to 'backendC')

diff --git a/backendC/CleanCompilerSources/instructions.c b/backendC/CleanCompilerSources/instructions.c
index 1b49c01..a9c2a66 100644
--- a/backendC/CleanCompilerSources/instructions.c
+++ b/backendC/CleanCompilerSources/instructions.c
@@ -2770,17 +2770,14 @@ void GenUnboxedConsRecordDescriptor (SymbDef sdef,int tail_strict)
 	
 	unboxed_record_cons_prefix=tail_strict ? "r_Cons#!" : "r_Cons#";
 	
-	if (sdef->sdef_exported || ExportLocalLabels){
+	if (ExportLocalLabels){
 		put_directive_ (Dexport);
 		FPrintF (OutFile, "e_%s_%s%s",CurrentModule,unboxed_record_cons_prefix,name);
 		put_directive_ (Drecord);
 		FPrintF (OutFile, "e_%s_%s%s ",CurrentModule,unboxed_record_cons_prefix,name);
-	} else if (DoDebug){
-		put_directive_ (Drecord);
-		FPrintF (OutFile, "%s%s ",unboxed_record_cons_prefix,name);
 	} else {
 		put_directive_ (Drecord);
-		FPrintF (OutFile, "%s%u ",unboxed_record_cons_prefix,sdef->sdef_number);
+		FPrintF (OutFile, "%s%s ",unboxed_record_cons_prefix,name);
 	}
 
 	tuple_state.state_type=TupleState;
-- 
cgit v1.2.3