From 83323b4955ea377006d0bc5b2c1c8916b0f1cefe Mon Sep 17 00:00:00 2001 From: Jonas Maebe Date: Mon, 29 Dec 2003 11:13:53 +0000 Subject: [PATCH] * fixed tb0350 (support loading address of reference containing the address 0) --- compiler/powerpc/cgcpu.pas | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/compiler/powerpc/cgcpu.pas b/compiler/powerpc/cgcpu.pas index c9d9ba8e16..a54962f84d 100644 --- a/compiler/powerpc/cgcpu.pas +++ b/compiler/powerpc/cgcpu.pas @@ -1661,7 +1661,9 @@ const list.concat(taicpu.op_reg_reg_reg(A_ADD,r,ref2.base,ref2.index)) else if (ref2.base <> NR_NO) and (r <> ref2.base) then - list.concat(taicpu.op_reg_reg(A_MR,r,ref2.base)); + list.concat(taicpu.op_reg_reg(A_MR,r,ref2.base)) + else + list.concat(taicpu.op_reg_const(A_LI,r,0)); if freereg then rg[R_INTREGISTER].ungetregister(list,ref2.base); end; @@ -2324,7 +2326,11 @@ begin end. { $Log$ - Revision 1.152 2003-12-28 23:49:30 jonas + Revision 1.153 2003-12-29 11:13:53 jonas + * fixed tb0350 (support loading address of reference containing the + address 0) + + Revision 1.152 2003/12/28 23:49:30 jonas * fixed tnotnode for < 32 bit quantities Revision 1.151 2003/12/28 19:22:27 florian