Browse Source

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

florian 1 year ago
parent
commit
bf1c674672
1 changed files with 1 additions and 1 deletions
  1. 1 1
      compiler/aoptobj.pas

+ 1 - 1
compiler/aoptobj.pas

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