paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 20:50:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

* only set OT_SHORT if the source and target are in the same objsection

Browse Source 
git-svn-id: trunk@2905 -
This commit is contained in:
peter 2006-03-13 12:28:22 +00:00
parent 2888a21593
commit 94d9a89774
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/x86/aasmcpu.pas
View File

@ -1046,9 +1046,11 @@ implementation
inc(l,InsOffset-LastInsOffset); inc(l,InsOffset-LastInsOffset);
{ instruction size will then always become 2 (PFV) } { instruction size will then always become 2 (PFV) }
relsize:=(InsOffset+2)-l; relsize:=(InsOffset+2)-l;
if (not assigned(currsym) or if (relsize>=-128) and (relsize<=127) and
((currsym.bind<>AB_EXTERNAL) and (currsym.address<>0))) and (
(relsize>=-128) and (relsize<=127) then not assigned(currsym) or
(currsym.objsection=objdata.currobjsec)
) then
ot:=OT_IMM32 or OT_SHORT ot:=OT_IMM32 or OT_SHORT
else else
ot:=OT_IMM32 or OT_NEAR; ot:=OT_IMM32 or OT_NEAR;