Преглед изворни кода

+ comment to explain last commit

florian пре 1 година
родитељ
комит
e88248d453
1 измењених фајлова са 2 додато и 0 уклоњено
  1. 2 0
      compiler/aoptobj.pas

+ 2 - 0
compiler/aoptobj.pas

@@ -1934,6 +1934,8 @@ Unit AoptObj;
                           repeat
                             with tai_label(tmp).labsym do
                               begin
+                                { alt_addr is needed so alignment directives before
+                                  jump tables e.g. for arm thumb are not removed }
                                 if not(labeltype in [alt_addr,alt_jump]) then
                                   begin
                                     { Non-jump label - skip over }