diff options
author | johnvg | 2002-11-18 11:21:45 +0000 |
---|---|---|
committer | johnvg | 2002-11-18 11:21:45 +0000 |
commit | bb5ff8c65488f9e89ef00d679499dabb287072c6 (patch) | |
tree | 9694b5fa7a712a96c7ded7728b883fdf819053c2 /backendC/CleanCompilerSources/instructions.c | |
parent | Fix 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.c | 4 |
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); |