소스 검색

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 년 전
부모
커밋
cad3551b57
1개의 변경된 파일5개의 추가작업 그리고 1개의 파일을 삭제
  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;