aggas.pas, tgnuassembler.writetree.doalign:

+ add the case of a label instead of a jump directly in front of the align (happened in "do_open" for StdIO) git-svn-id: trunk@22889 -
2025-04-16 17:19:32 +02:00 · 2012-10-31 20:23:41 +00:00 · 2012-10-31 20:23:41 +00:00 · 17ff90deb9
commit 17ff90deb9
parent c3c7ec8839
1 changed files with 7 additions and 2 deletions
--- a/compiler/aggas.pas
+++ b/compiler/aggas.pas
@ -653,8 +653,13 @@ implementation
                begin
 {$ifdef m68k}
                  if assigned(lasthp) and
-                      (lasthp.typ=ait_instruction) and
-                      (taicpu(lasthp).opcode<>A_JMP) then
+                      (
+                        (lasthp.typ=ait_instruction) and
+                        (taicpu(lasthp).opcode<>A_JMP)
+                      ) or
+                      (
+                        (lasthp.typ=ait_label)
+                      ) then
                    begin
                      if ispowerof2(alignment,i) then
                        begin