diff options
author | johnvg | 2006-11-03 14:59:24 +0000 |
---|---|---|
committer | johnvg | 2006-11-03 14:59:24 +0000 |
commit | 67eddf78cf95d8a1f33cc63328459b805f30dab7 (patch) | |
tree | 1c87f425bd573657c6947dd8c95d3f4e6884a565 /backendC/CleanCompilerSources/instructions.c | |
parent | generate 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.c | 7 |
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); } } } |