paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-10 22:06:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed tb0350 (support loading address of reference containing the

Browse Source 
address 0)
This commit is contained in:
Jonas Maebe 2003-12-29 11:13:53 +00:00
parent e9051dc267
commit 83323b4955
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/powerpc/cgcpu.pas
View File

@ -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