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

* fixed wrongly fix of r11444 in r12049

Browse Source 
git-svn-id: trunk@12062 -
This commit is contained in:
florian 2008-11-12 20:55:06 +00:00
parent 5e448b47a5
commit c71bc4084d
1 changed files with 2 additions and 2 deletions

4
compiler/aoptobj.pas
View File

@ -890,8 +890,8 @@ Unit AoptObj;
{$endif}
function tAOptObj.getlabelwithsym(sym: tasmlabel): tai;
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
else
getlabelwithsym := nil;