From e55d6d7145cc1e492061e3caa03cb0dd47f6226f Mon Sep 17 00:00:00 2001 From: Jonas Maebe Date: Wed, 20 Sep 2006 09:07:45 +0000 Subject: [PATCH] * make_not_regable() now also works on temprefnodes git-svn-id: trunk@4661 - --- compiler/htypechk.pas | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/compiler/htypechk.pas b/compiler/htypechk.pas index c4c7d052fc..2e0fee662f 100644 --- a/compiler/htypechk.pas +++ b/compiler/htypechk.pas @@ -661,6 +661,11 @@ implementation tabstractvarsym(tloadnode(p).symtableentry).varregable:=how else tabstractvarsym(tloadnode(p).symtableentry).varregable:=vr_none; + temprefn : + if (ttemprefnode(p).tempinfo^.may_be_in_reg) and + ((not records_only) or + (ttemprefnode(p).tempinfo^.restype.def.deftype = recorddef)) then + ttemprefnode(p).tempinfo^.may_be_in_reg:=false; end; end;