[Ada] Fix layout of pragma Inline in generated AST unit
authorPiotr Trojanek <trojanek@adacore.com>
Tue, 21 Dec 2021 14:44:47 +0000 (15:44 +0100)
committerPierre-Marie de Rodat <derodat@adacore.com>
Fri, 7 Jan 2022 16:24:15 +0000 (16:24 +0000)
gcc/ada/

* gen_il-gen.adb (Put_Make_Decls): Put pragma Inline in a
dedicated line, so that the current indentation is taken into
account.

gcc/ada/gen_il-gen.adb

index 2e81149..28322ae 100644 (file)
@@ -2472,7 +2472,8 @@ package body Gen_IL.Gen is
          for T in First_Concrete (Root) .. Last_Concrete (Root) loop
             if T not in N_Unused_At_Start | N_Unused_At_End then
                Put_Make_Spec (S, Root, T);
-               Put (S, ";" & LF & "pragma " & Inline & " (Make_" &
+               Put (S, ";" & LF);
+               Put (S, "pragma " & Inline & " (Make_" &
                     Image_Sans_N (T) & ");" & LF & LF);
             end if;
          end loop;