Преглед на файлове

* 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);