diff options
| author | johnvg | 2006-11-03 14:18:30 +0000 |
|---|---|---|
| committer | johnvg | 2006-11-03 14:18:30 +0000 |
| commit | 005ba44a3ee946b25c60d73ff20bb5d3153b4b09 (patch) | |
| tree | 7483678c60892c4a8efb9af2ef09c4c7acebc89f /backendC | |
| parent | generate ea entry for boxed records, fixes jmp_eval_upd in lazy selectors (diff) | |
generate an eval_fill call as ea entry for lazy record selectors
with state LazyRedirection (field with type a or (a ..))
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1621 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'backendC')
| -rw-r--r-- | backendC/CleanCompilerSources/codegen1.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/backendC/CleanCompilerSources/codegen1.c b/backendC/CleanCompilerSources/codegen1.c index 1b935d5..2835e22 100644 --- a/backendC/CleanCompilerSources/codegen1.c +++ b/backendC/CleanCompilerSources/codegen1.c @@ -1009,7 +1009,7 @@ static void GenLazyFieldSelectorEntry (SymbDef field_def,StateS recstate,int tot ea_label_p=&newealab; } else ea_label_p=&ealab; - } else if (field_def->sdef_returnsnode) + } else if (field_def->sdef_returnsnode || (IsSimpleState (demfieldstate) && demfieldstate.state_kind==LazyRedirection)) ea_label_p=&empty_lab; else ea_label_p=NULL; |