From 005ba44a3ee946b25c60d73ff20bb5d3153b4b09 Mon Sep 17 00:00:00 2001
From: johnvg
Date: Fri, 3 Nov 2006 14:18:30 +0000
Subject: 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
---
 backendC/CleanCompilerSources/codegen1.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'backendC')

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;
-- 
cgit v1.2.3