浏览代码

* ignore alignment entries in FindLabel

git-svn-id: trunk@22306 -
florian 13 年之前
父节点
当前提交
b6a4602989
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      compiler/aoptobj.pas

+ 1 - 1
compiler/aoptobj.pas

@@ -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)