From db3bd69a1883dced308beadff1ac3315eacb020f Mon Sep 17 00:00:00 2001 From: Jonas Maebe Date: Sun, 20 Jul 2003 18:03:27 +0000 Subject: [PATCH] * fixed bug in tcginnode.pass_2 --- compiler/ncgset.pas | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/compiler/ncgset.pas b/compiler/ncgset.pas index 1cb991c07c..1efc75348a 100644 --- a/compiler/ncgset.pas +++ b/compiler/ncgset.pas @@ -572,7 +572,7 @@ implementation hr2 := rg.getaddressregister(exprasmlist); cg.a_loadaddr_ref_reg(exprasmlist,href, hr2); reference_reset_base(href,hr2,0); - right.location.reference.index := hr; + href.index := hr; end; reference_release(exprasmlist,href); cg.a_load_ref_reg(exprasmlist,OS_32,OS_32,href,location.register); @@ -1086,7 +1086,10 @@ begin end. { $Log$ - Revision 1.44 2003-07-06 14:28:04 jonas + Revision 1.45 2003-07-20 18:03:27 jonas + * fixed bug in tcginnode.pass_2 + + Revision 1.44 2003/07/06 14:28:04 jonas * fixed register leak * changed a couple of case-statements to location_force_reg()