aboutsummaryrefslogtreecommitdiff
path: root/backendC/CleanCompilerSources/instructions.c
diff options
context:
space:
mode:
authorjohnvg2006-11-03 14:59:24 +0000
committerjohnvg2006-11-03 14:59:24 +0000
commit67eddf78cf95d8a1f33cc63328459b805f30dab7 (patch)
tree1c87f425bd573657c6947dd8c95d3f4e6884a565 /backendC/CleanCompilerSources/instructions.c
parentgenerate an eval_fill call as ea entry for lazy record selectors (diff)
fix printing of _ label in .n directive for lazy record field selectors
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1622 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'backendC/CleanCompilerSources/instructions.c')
-rw-r--r--backendC/CleanCompilerSources/instructions.c7
1 files changed, 5 insertions, 2 deletions
diff --git a/backendC/CleanCompilerSources/instructions.c b/backendC/CleanCompilerSources/instructions.c
index 00acba7..5987c76 100644
--- a/backendC/CleanCompilerSources/instructions.c
+++ b/backendC/CleanCompilerSources/instructions.c
@@ -2757,9 +2757,12 @@ void GenFieldNodeEntryDirective (int arity,Label label,Label label2,char *record
else
FPutS (empty_lab.lab_name, OutFile);
- if (label2){
+ if (label2!=NULL){
FPutC (' ', OutFile);
- GenFieldLabel (label2,record_name);
+ if (label2==&empty_lab)
+ FPutS (empty_lab.lab_name, OutFile);
+ else
+ GenFieldLabel (label2,record_name);
}
}
}