paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 08:19:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

* wrong ifdef exposed by warning with -O3 fixed

Browse Source 
git-svn-id: trunk@39989 -
This commit is contained in:
florian 2018-10-20 09:16:51 +00:00
parent 7d7f966ccb
commit d4cf97a755
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/ppcgen/hlcgppc.pas
View File

@ -118,11 +118,11 @@ implementation
reference_reset_base(href,voidpointertype,NR_R11,tobjectdef(procdef.struct).vmtmethodoffset(procdef.extnumber),ctempposinvalid,sizeof(pint),[]);
if tcgppcgen(cg).hasLargeOffset(href) then
begin
{$ifdef cpu64}
{$ifdef cpu64bitaddr}
if (longint(href.offset) <> href.offset) then
{ add support for offsets > 32 bit }
internalerror(200510201);
{$endif cpu64}
{$endif cpu64bitaddr}
list.concat(taicpu.op_reg_reg_const(A_ADDIS,NR_R11,NR_R11,
smallint((href.offset shr 16)+ord(smallint(href.offset and $ffff) < 0))));
href.offset := smallint(href.offset and $ffff);