diff options
| author | johnvg | 2015-08-20 10:55:26 +0000 |
|---|---|---|
| committer | johnvg | 2015-08-20 10:55:26 +0000 |
| commit | a078bbaea4dd3e117bf0f0b836f6bd7484b78d37 (patch) | |
| tree | 40623e3318fb3a7e2e3e8e77931c7230a2164038 /backendC | |
| parent | fix bug in FPrintF call (diff) | |
add record label to .record directive for list of unboxed records
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@2609 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'backendC')
| -rw-r--r-- | backendC/CleanCompilerSources/instructions.c | 25 |
1 files changed, 14 insertions, 11 deletions
diff --git a/backendC/CleanCompilerSources/instructions.c b/backendC/CleanCompilerSources/instructions.c index 9c79159..e7b4c1f 100644 --- a/backendC/CleanCompilerSources/instructions.c +++ b/backendC/CleanCompilerSources/instructions.c @@ -3130,19 +3130,22 @@ void GenUnboxedConsRecordDescriptor (SymbDef sdef,int tail_strict) GenABStackElemsOfRecord (tuple_arguments_state[0]); GenABStackElems (tuple_arguments_state[1]); - if (!has_unboxed_record){ - if (ExportLocalLabels) - FPrintF (OutFile,tail_strict ? " %d %d \"_Cons#!%s\"" : " %d %d \"_Cons#\"",asize,bsize,name); - else - FPrintF (OutFile,tail_strict ? " %d %d \"[#%s!]\"" : " %d %d \"[#%s]\"",asize,bsize,name); - } else { - FPrintF (OutFile," %d %d ",asize,bsize); + FPrintF (OutFile," %d %d ",asize,bsize); + if (has_unboxed_record) GenUnboxedRecordLabelsReversedForRecord (tuple_arguments_state[0]); - if (ExportLocalLabels) - FPrintF (OutFile,tail_strict ? "\"_Cons#!%s\"" : "\"_Cons#\"",name); + + if (!sdef->sdef_exported && sdef->sdef_module==CurrentModule && !ExportLocalLabels){ + if (DoDebug) + FPrintF (OutFile, R_PREFIX "%s ",name); else - FPrintF (OutFile,tail_strict ? "\"[#%s!]\"" : "\"[#%s]\"",name); - } + FPrintF (OutFile, R_PREFIX "%u ",sdef->sdef_number); + } else + FPrintF (OutFile, "e_%s_" R_PREFIX "%s ",sdef->sdef_module,name); + + if (ExportLocalLabels) + FPrintF (OutFile,tail_strict ? "\"_Cons#!%s\"" : "\"_Cons#\"",name); + else + FPrintF (OutFile,tail_strict ? "\"[#%s!]\"" : "\"[#%s]\"",name); } #endif |