paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 13:29:26 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fix getlabelwithsym for 64 bit hosts and 32 bit targets

Browse Source 
git-svn-id: trunk@12049 -
This commit is contained in:
florian 2008-11-11 19:10:11 +00:00
parent a3a66ba74d
commit 74efea399e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/aoptobj.pas
View File

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