aboutsummaryrefslogtreecommitdiff
path: root/backendC/CleanCompilerSources/instructions.c
diff options
context:
space:
mode:
authorjohnvg2002-11-13 14:24:17 +0000
committerjohnvg2002-11-13 14:24:17 +0000
commita08b858275c4528c51e391dc0b223e68e845ff12 (patch)
treef3cf0de9c7d2b45a2a81f00ad122a2356d4d2f1c /backendC/CleanCompilerSources/instructions.c
parentRemoved bugs in analysis of abstract data types and adjusted typing of record... (diff)
export label with t prefix for records for dynamics
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1278 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'backendC/CleanCompilerSources/instructions.c')
-rw-r--r--backendC/CleanCompilerSources/instructions.c11
1 files changed, 8 insertions, 3 deletions
diff --git a/backendC/CleanCompilerSources/instructions.c b/backendC/CleanCompilerSources/instructions.c
index d6a53f3..cf4b9dd 100644
--- a/backendC/CleanCompilerSources/instructions.c
+++ b/backendC/CleanCompilerSources/instructions.c
@@ -1038,7 +1038,7 @@ static Bool IsInlineFromCurrentModule (SymbDef def)
are 'GenBStackElems', 'GenStackLayoutOfNode' and 'GenStackLayoutOfState'.
*/
-static char BElems[] = BASIC_ELEMS_STRING;
+static char BElems[] = BASIC_ELEMS_STRING;
static void GenBStackElems (StateS state)
{
@@ -2804,7 +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);
@@ -3128,7 +3131,9 @@ void GenLazyRecordDescriptorAndExport (SymbDef sdef)
} else {
if (ExportLocalLabels){
put_directive_ (Dexport);
- FPrintF (OutFile,"e_%s_" RECORD_N_PREFIX "%s",CurrentModule,name);
+ FPrintF (OutFile,"e_%s_" RECORD_D_PREFIX "%s",CurrentModule,name);
+ put_directive_ (Dexport);
+ FPrintF (OutFile,"e_%s_" RECORD_N_PREFIX "%s",CurrentModule,name);
}
put_directive_ (Ddescn);