瀏覽代碼

* GetFinalDestination now calls SkipLabels on an alignment field

J. Gareth "Curious Kit" Moreton 1 年之前
父節點
當前提交
3a2342fec4
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      compiler/aoptobj.pas

+ 1 - 1
compiler/aoptobj.pas

@@ -2400,7 +2400,7 @@ Unit AoptObj;
                 while (p1<>StartPoint) and CollapseZeroDistJump(p1, TAsmLabel(JumpTargetOp(taicpu(p1))^.ref^.symbol)) do
                 while (p1<>StartPoint) and CollapseZeroDistJump(p1, TAsmLabel(JumpTargetOp(taicpu(p1))^.ref^.symbol)) do
                   begin
                   begin
                     { Note: Cannot remove the first instruction }
                     { Note: Cannot remove the first instruction }
-                    if (p1.typ = ait_label) then
+                    if (p1.typ in [ait_align, ait_label]) then
                       SkipLabels(p1, p1);
                       SkipLabels(p1, p1);
 
 
                     if not Assigned(p1) then
                     if not Assigned(p1) then