diff options
| author | Robert Dewar <dewar@adacore.com> | 2009-07-27 13:47:11 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-07-27 15:47:11 +0200 |
| commit | d33744e42a08e71e9e3425dd9b08903e64c0f964 (patch) | |
| tree | c01f4f9157f276fa89e016d54921d2aad79f8c47 /gcc/ada/gnatfind.adb | |
| parent | df7c3f6275380f0228dbf6edf62133357ec3a8d7 (diff) | |
| download | gcc-d33744e42a08e71e9e3425dd9b08903e64c0f964.zip gcc-d33744e42a08e71e9e3425dd9b08903e64c0f964.tar.gz gcc-d33744e42a08e71e9e3425dd9b08903e64c0f964.tar.bz2 | |
gnatfind.adb, [...]: Minor reformatting and code clean up.
2009-07-27 Robert Dewar <dewar@adacore.com>
* gnatfind.adb, osint.ads, sem.adb, xr_tabls.adb: Minor reformatting
and code clean up.
From-SVN: r150117
Diffstat (limited to 'gcc/ada/gnatfind.adb')
| -rw-r--r-- | gcc/ada/gnatfind.adb | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/gcc/ada/gnatfind.adb b/gcc/ada/gnatfind.adb index 45bc5ee..8af7b9e 100644 --- a/gcc/ada/gnatfind.adb +++ b/gcc/ada/gnatfind.adb @@ -157,14 +157,13 @@ procedure Gnatfind is -- Only switch starting with -- recognized is --RTS - when '-' => - + when '-' => if GNAT.Command_Line.Full_Switch = "-RTS" then + -- Check that it is the first time we see this switch if RTS_Specified = null then RTS_Specified := new String'(GNAT.Command_Line.Parameter); - elsif RTS_Specified.all /= GNAT.Command_Line.Parameter then Osint.Fail ("--RTS cannot be specified multiple times"); end if; @@ -204,18 +203,21 @@ procedure Gnatfind is "adalib directory"); end if; end; + + -- Process -ext switch + elsif GNAT.Command_Line.Full_Switch = "-ext" then + -- Check that it is the first time we see this switch if EXT_Specified = null then EXT_Specified := new String'(GNAT.Command_Line.Parameter); - elsif EXT_Specified.all /= GNAT.Command_Line.Parameter then Osint.Fail ("--ext cannot be specified multiple times"); end if; - if EXT_Specified'Length - = Osint.ALI_Default_Suffix'Length + if + EXT_Specified'Length = Osint.ALI_Default_Suffix'Length then Osint.ALI_Suffix := EXT_Specified.all'Access; else |