From bb5ff8c65488f9e89ef00d679499dabb287072c6 Mon Sep 17 00:00:00 2001
From: johnvg
Date: Mon, 18 Nov 2002 11:21:45 +0000
Subject: insert "lR" in type string for unboxed lists of records

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

diff --git a/backendC/CleanCompilerSources/instructions.c b/backendC/CleanCompilerSources/instructions.c
index cf4b9dd..5857168 100644
--- a/backendC/CleanCompilerSources/instructions.c
+++ b/backendC/CleanCompilerSources/instructions.c
@@ -2804,10 +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);
-- 
cgit v1.2.3