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

* only for jump instructions we need to look at the relative

Browse Source 
offset of an symbol

git-svn-id: trunk@8664 -
This commit is contained in:
peter 2007-09-27 20:10:30 +00:00
parent f51bac256d
commit c19217f846
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/x86/aasmcpu.pas
View File

@ -953,7 +953,11 @@ implementation
end
else
begin
if assigned(objdata) then
{ Jumps use a relative offset which can be 8bit,
for other opcodes we always need to generate the full
32bit address }
if assigned(objdata) and
is_jmp then
begin
currsym:=objdata.symbolref(ref^.symbol);
l:=ref^.offset;