paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-15 10:09:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

* ignore alignment entries in FindLabel

Browse Source 
git-svn-id: trunk@22306 -
This commit is contained in:
florian 2012-09-04 10:43:44 +00:00
parent 59012afe26
commit b6a4602989
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/aoptobj.pas
View File

@ -929,7 +929,7 @@ Unit AoptObj;
Begin Begin
TempP := hp; TempP := hp;
While Assigned(TempP) and While Assigned(TempP) and
(TempP.typ In SkipInstr + [ait_label]) Do (TempP.typ In SkipInstr + [ait_label,ait_align]) Do
If (TempP.typ <> ait_Label) Or If (TempP.typ <> ait_Label) Or
(Tai_label(TempP).labsym <> L) (Tai_label(TempP).labsym <> L)
Then GetNextInstruction(TempP, TempP) Then GetNextInstruction(TempP, TempP)