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 -

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