aboutsummaryrefslogtreecommitdiff
path: root/backendC/CleanCompilerSources/instructions.c
diff options
context:
space:
mode:
authorjohnvg2002-11-18 11:21:45 +0000
committerjohnvg2002-11-18 11:21:45 +0000
commitbb5ff8c65488f9e89ef00d679499dabb287072c6 (patch)
tree9694b5fa7a712a96c7ded7728b883fdf819053c2 /backendC/CleanCompilerSources/instructions.c
parentFix bug with active and accumulating dictionary args (diff)
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
Diffstat (limited to 'backendC/CleanCompilerSources/instructions.c')
-rw-r--r--backendC/CleanCompilerSources/instructions.c4
1 files 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);