Browse Source

* fixed wrongly fix of r11444 in r12049

git-svn-id: trunk@12062 -
florian 16 years ago
parent
commit
c71bc4084d
1 changed files with 2 additions and 2 deletions
  1. 2 2
      compiler/aoptobj.pas

+ 2 - 2
compiler/aoptobj.pas

@@ -890,8 +890,8 @@ Unit AoptObj;
 {$endif}
 {$endif}
     function tAOptObj.getlabelwithsym(sym: tasmlabel): tai;
     function tAOptObj.getlabelwithsym(sym: tasmlabel): tai;
       begin
       begin
-        if (aword(sym.labelnr) >= labelinfo^.lowlabel) and
-           (aword(sym.labelnr) <= labelinfo^.highlabel) then   { range check, a jump can go past an assembler block! }
+        if (int64(sym.labelnr) >= int64(labelinfo^.lowlabel)) and
+           (int64(sym.labelnr) <= int64(labelinfo^.highlabel)) then   { range check, a jump can go past an assembler block! }
           getlabelwithsym := labelinfo^.labeltable^[sym.labelnr-labelinfo^.lowlabel].paiobj
           getlabelwithsym := labelinfo^.labeltable^[sym.labelnr-labelinfo^.lowlabel].paiobj
         else
         else
           getlabelwithsym := nil;
           getlabelwithsym := nil;