diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2021-12-21 15:44:47 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2022-01-07 16:24:15 +0000 |
| commit | 22a69380dc62776a30a6ad91c05acafb2b5daa96 (patch) | |
| tree | 015e5d613aa83ac0519a436d1a63ce08ee22ada4 /gcc/ada | |
| parent | 8313d0ee55970c7a0fe16595345f53de9698ec95 (diff) | |
| download | gcc-22a69380dc62776a30a6ad91c05acafb2b5daa96.zip gcc-22a69380dc62776a30a6ad91c05acafb2b5daa96.tar.gz gcc-22a69380dc62776a30a6ad91c05acafb2b5daa96.tar.bz2 | |
[Ada] Fix layout of pragma Inline in generated AST unit
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.
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/gen_il-gen.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/ada/gen_il-gen.adb b/gcc/ada/gen_il-gen.adb index 2e81149..28322ae 100644 --- a/gcc/ada/gen_il-gen.adb +++ b/gcc/ada/gen_il-gen.adb @@ -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; |