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

* macos: fixed large offsets in references

Browse Source
This commit is contained in:
olle 2004-04-04 17:50:36 +00:00
parent 3221a5d75c
commit 6be3ad0f87
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/powerpc/cgcpu.pas
View File

@ -2165,7 +2165,11 @@ const
if largeOffset then
begin {Add hi part of offset}
reference_reset(tmpref);
tmpref.offset := Hi(ref.offset);
if Smallint(Lo(ref.offset)) < 0 then
tmpref.offset := Hi(ref.offset) + 1 {Compensate when lo part is negative}
else
tmpref.offset := Hi(ref.offset);
if (tmpreg <> NR_NO) then
list.concat(taicpu.op_reg_reg_ref(A_ADDIS,tmpreg, tmpreg,tmpref))
@ -2187,7 +2191,8 @@ const
ref.symbol:= nil;
ref.base:= tmpreg;
if largeOffset then
ref.offset := Lo(ref.offset);
ref.offset := Smallint(Lo(ref.offset));
list.concat(taicpu.op_reg_ref(op,reg,ref));
//list.concat(tai_comment.create(strpnew('*** a_load_store indirect global')));
end
@ -2351,7 +2356,10 @@ begin
end.
{
$Log$
Revision 1.168 2004-03-06 21:37:45 florian
Revision 1.169 2004-04-04 17:50:36 olle
* macos: fixed large offsets in references
Revision 1.168 2004/03/06 21:37:45 florian
* fixed ppc compilation
Revision 1.167 2004/03/02 17:48:32 florian