diff options
| author | johnvg | 2002-11-13 14:24:17 +0000 |
|---|---|---|
| committer | johnvg | 2002-11-13 14:24:17 +0000 |
| commit | a08b858275c4528c51e391dc0b223e68e845ff12 (patch) | |
| tree | f3cf0de9c7d2b45a2a81f00ad122a2356d4d2f1c /backendC/CleanCompilerSources/instructions.c | |
| parent | Removed 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.c | 11 |
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); |