diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-05 15:56:17 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-05 15:56:17 +0200 |
| commit | 00332244ee74e60f4d7a54db20839c3a35b07588 (patch) | |
| tree | 05cbd8c8c3fd685d5701db0a6d80712885cae65e /gcc/ada/switch.adb | |
| parent | 0da80d7dbbbd8e772cf30f8866b4fdc02cb9c64f (diff) | |
| download | gcc-00332244ee74e60f4d7a54db20839c3a35b07588.zip gcc-00332244ee74e60f4d7a54db20839c3a35b07588.tar.gz gcc-00332244ee74e60f4d7a54db20839c3a35b07588.tar.bz2 | |
[multiple changes]
2011-08-05 Arnaud Charlet <charlet@adacore.com>
* make.adb (Linking_Phase): No longer need to set source search path
before calling gnatlink in CodePeer mode.
* gnatlink.adb (Gnatlink): No longer pass -gnat83/95/05/12 switch to
gcc in CodePeer mode, since the binder generated file no longer has a
'with Main'.
* switch.ads, switch.adb (Is_Language_Switch): Removed.
* switch-c.adb: Update comment.
2011-08-05 Thomas Quinot <quinot@adacore.com>
* exp_strm.adb, bindgen.adb, s-ficobl.ads: Minor reformatting.
2011-08-05 Nicolas Roche <roche@adacore.com>
* gnat_ugn.texi: Fix minor syntax error issue.
2011-08-05 Vincent Celier <celier@adacore.com>
* gnatcmd.adb (Get_Closure): Do not crash when it is not possible to
delete or close the file when the call to gnatmake returns a non
successful return code.
2011-08-05 Ed Schonberg <schonberg@adacore.com>
* exp_ch4.adb (Expand_N_Type_Conversion): When expanding a predicate
check, indicate that the copy of the original node does not come from
source, to prevent an infinite recursion of the expansion.
2011-08-05 Johannes Kanig <kanig@adacore.com>
* debug.adb: document switch -gnatd.G for gnat2why, which deactivates
VC generation for subprogram bodies.
2011-08-05 Yannick Moy <moy@adacore.com>
* einfo.ads: Typo.
* sem_ch3.adb (Signed_Integer_Type_Declaration): in ALFA mode, define
the base type with the smallest allowed base type.
2011-08-05 Sergey Rybin <rybin@adacore.com>
* tree_gen.adb, tree_in.adb, aspects.adb: Fix tree read-write for
aspects.
2011-08-05 Ed Schonberg <schonberg@adacore.com>
* sem_ch12.ads: minor comment updates.
2011-08-05 Ed Schonberg <schonberg@adacore.com>
* sem_ch12.adb (Analyze_Formal_Package_Declaration): in an
instantiation and a formal package the compiler generates a package
renaming declaration so that the generic name within the declaration
is interpreted as a renaming of the instance. At the end of a formal
package declaration, this renaming must become invisible.
From-SVN: r177437
Diffstat (limited to 'gcc/ada/switch.adb')
| -rw-r--r-- | gcc/ada/switch.adb | 17 |
1 files changed, 0 insertions, 17 deletions
diff --git a/gcc/ada/switch.adb b/gcc/ada/switch.adb index e298706..000f951 100644 --- a/gcc/ada/switch.adb +++ b/gcc/ada/switch.adb @@ -138,23 +138,6 @@ package body Switch is and then Switch_Chars (Ptr + 2 .. Ptr + 4) = "RTS")); end Is_Front_End_Switch; - ------------------------- - -- Is_Language_Switch -- - ------------------------- - - function Is_Language_Switch (Switch_Chars : String) return Boolean is - Ptr : constant Positive := Switch_Chars'First; - begin - return Is_Switch (Switch_Chars) - and then - (Switch_Chars (Ptr + 1 .. Switch_Chars'Last) = "gnat83" - or else Switch_Chars (Ptr + 1 .. Switch_Chars'Last) = "gnat95" - or else Switch_Chars (Ptr + 1 .. Switch_Chars'Last) = "gnat05" - or else Switch_Chars (Ptr + 1 .. Switch_Chars'Last) = "gnat2005" - or else Switch_Chars (Ptr + 1 .. Switch_Chars'Last) = "gnat12" - or else Switch_Chars (Ptr + 1 .. Switch_Chars'Last) = "gnat2012"); - end Is_Language_Switch; - ---------------------------- -- Is_Internal_GCC_Switch -- ---------------------------- |