diff options
author | Hristian Kirtchev <kirtchev@adacore.com> | 2019-07-11 08:02:03 +0000 |
---|---|---|
committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2019-07-11 08:02:03 +0000 |
commit | 29c64a0f6d13bf413cf338da23580e8a94ead23c (patch) | |
tree | 2d47c3d14a4bdfaf9484ead9543d20c175552d6c /gcc/ada/gnat1drv.adb | |
parent | bce6accb664712f2d046bad9566fee810b43fed6 (diff) | |
download | gcc-29c64a0f6d13bf413cf338da23580e8a94ead23c.zip gcc-29c64a0f6d13bf413cf338da23580e8a94ead23c.tar.gz gcc-29c64a0f6d13bf413cf338da23580e8a94ead23c.tar.bz2 |
[Ada] Minor reformatting
2019-07-11 Hristian Kirtchev <kirtchev@adacore.com>
gcc/ada/
* checks.adb, exp_ch6.adb, gnat1drv.adb, sem_aux.adb,
sem_ch2.adb, sem_ch8.adb, sem_res.adb: Minor reformatting.
From-SVN: r273388
Diffstat (limited to 'gcc/ada/gnat1drv.adb')
-rw-r--r-- | gcc/ada/gnat1drv.adb | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/gcc/ada/gnat1drv.adb b/gcc/ada/gnat1drv.adb index 2e4204b..55a57dd 100644 --- a/gcc/ada/gnat1drv.adb +++ b/gcc/ada/gnat1drv.adb @@ -1056,9 +1056,10 @@ procedure Gnat1drv is for U in Main_Unit .. Last_Unit loop if In_Extended_Main_Source_Unit (Cunit_Entity (U)) then declare - Nam : constant String := - Get_Name_String (File_Name (Source_Index (U))) & ".json"; - Namid : constant File_Name_Type := Name_Enter (Nam); + Nam : constant String := + Get_Name_String + (File_Name (Source_Index (U))) & ".json"; + Namid : constant File_Name_Type := Name_Enter (Nam); Index : constant Source_File_Index := Load_Config_File (Namid); begin |