From acad69ea43c3a63555d4577e0ea754989296fd89 Mon Sep 17 00:00:00 2001
From: johnvg
Date: Thu, 31 Oct 2002 12:08:56 +0000
Subject: bug fix for boxed records and ! record selections

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1264 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
---
 backendC/CleanCompilerSources/codegen2.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'backendC/CleanCompilerSources')

diff --git a/backendC/CleanCompilerSources/codegen2.c b/backendC/CleanCompilerSources/codegen2.c
index b3054ac..2b1cb6a 100644
--- a/backendC/CleanCompilerSources/codegen2.c
+++ b/backendC/CleanCompilerSources/codegen2.c
@@ -1234,7 +1234,10 @@ static void FillOrReduceFieldSelection (Node node,SymbDef seldef,int *asp_p,int
 				
 				record_state_p=&seldef->sdef_type->type_lhs->ft_symbol->symb_def->sdef_record_state;
 #if BOXED_RECORDS
-				if (arg->arg_state.state_type==SimpleState){
+				if (node->node_arity<SELECTOR_L ?
+					arg->arg_state.state_type==SimpleState :
+					arg->arg_state.state_type==TupleState && arg->arg_state.state_tuple_arguments[0].state_type==SimpleState
+				){
 					if (node->node_arity<SELECTOR_L)
 						PushField (*record_state_p,fieldnr,0,asp_p,bsp_p,&asize,&bsize);
 					else
-- 
cgit v1.2.3