Bläddra i källkod

Merged revisions 8664 via svnmerge from
http://svn.freepascal.org/svn/fpc/trunk

........
r8664 | peter | 2007-09-27 22:10:30 +0200 (Thu, 27 Sep 2007) | 3 lines

* only for jump instructions we need to look at the relative
offset of an symbol
........

git-svn-id: branches/fixes_2_2@8665 -

peter 18 år sedan
förälder
incheckning
cad3551b57
1 ändrade filer med 5 tillägg och 1 borttagningar
  1. 5 1
      compiler/x86/aasmcpu.pas

+ 5 - 1
compiler/x86/aasmcpu.pas

@@ -952,7 +952,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;