فهرست منبع

* don't remove align directives before case jump tables (they have the type alt_addr)

florian 1 سال پیش
والد
کامیت
bf1c674672
1فایلهای تغییر یافته به همراه1 افزوده شده و 1 حذف شده
  1. 1 1
      compiler/aoptobj.pas

+ 1 - 1
compiler/aoptobj.pas

@@ -1934,7 +1934,7 @@ Unit AoptObj;
                           repeat
                             with tai_label(tmp).labsym do
                               begin
-                                if (labeltype <> alt_jump) then
+                                if not(labeltype in [alt_addr,alt_jump]) then
                                   begin
                                     { Non-jump label - skip over }
                                     tmp := tai(tmp.Next);