From 3b932cd72ab8424bce566ded19a4ac44ff87bb6c Mon Sep 17 00:00:00 2001
From: johnvg
Date: Thu, 9 Jul 2015 13:17:46 +0000
Subject: fix name in descriptor for unboxed lists of records if exporting
 local labels

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

diff --git a/backendC/CleanCompilerSources/instructions.c b/backendC/CleanCompilerSources/instructions.c
index a9c905f..16ed2c6 100644
--- a/backendC/CleanCompilerSources/instructions.c
+++ b/backendC/CleanCompilerSources/instructions.c
@@ -2979,7 +2979,7 @@ void GenUnboxedConsRecordDescriptor (SymbDef sdef,int tail_strict)
 	DetermineSizeOfState (tuple_state,&asize,&bsize);
 	
 	if (ExportLocalLabels)
-		FPrintF (OutFile,tail_strict ? " %d %d \"_Cons#!%s\"" : " %d %d \"_Cons#\"",asize,bsize,name);
+		FPrintF (OutFile,tail_strict ? " %d %d \"_Cons#!%s\"" : " %d %d \"_Cons#%s\"",asize,bsize,name);
 	else
 		FPrintF (OutFile,tail_strict ? " %d %d \"[#%s!]\"" : " %d %d \"[#%s]\"",asize,bsize,name);
 }
-- 
cgit v1.2.3