diff options
| author | Robert Dewar <dewar@adacore.com> | 2006-10-31 18:58:16 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2006-10-31 18:58:16 +0100 |
| commit | 3f1ede06fc28db443347a22c579551d926e626d6 (patch) | |
| tree | 822b27575fa161de1d3401c4f2b7073cea546bbb /gcc/ada/g-expect.adb | |
| parent | ac3b962ec3965793916eea80eab7f5dd42aa7570 (diff) | |
| download | gcc-3f1ede06fc28db443347a22c579551d926e626d6.zip gcc-3f1ede06fc28db443347a22c579551d926e626d6.tar.gz gcc-3f1ede06fc28db443347a22c579551d926e626d6.tar.bz2 | |
freeze.adb: Add handling of Last_Assignment field
2006-10-31 Robert Dewar <dewar@adacore.com>
Ed Schonberg <schonberg@adacore.com>
* freeze.adb: Add handling of Last_Assignment field
(Warn_Overlay): Supply missing continuation marks in error msgs
(Freeze_Entity): Add check for Preelaborable_Initialization
* g-comlin.adb: Add Warnings (Off) to prevent new warning
* g-expect.adb: Add Warnings (Off) to prevent new warning
* lib-xref.adb: Add handling of Last_Assignment field
(Generate_Reference): Centralize handling of pragma Obsolescent here
(Generate_Reference): Accept an implicit reference generated for a
default in an instance.
(Generate_Reference): Accept a reference for a node that is not in the
main unit, if it is the generic body corresponding to an subprogram
instantiation.
* xref_lib.adb: Add pragma Warnings (Off) to avoid new warnings
* sem_warn.ads, sem_warn.adb (Set_Warning_Switch): Add processing for
-gnatwq/Q.
(Warn_On_Useless_Assignment): Suppress warning if enclosing inner
exception handler.
(Output_Obsolescent_Entity_Warnings): Rewrite to avoid any messages on
use clauses, to avoid messages on packages used to qualify, and also
to avoid messages from obsolescent units.
(Warn_On_Useless_Assignments): Don't generate messages for imported
and exported variables.
(Warn_On_Useless_Assignments): New procedure
(Output_Obsolescent_Entity_Warnings): New procedure
(Check_Code_Statement): New procedure
* einfo.ads, einfo.adb (Has_Static_Discriminants): New flag
Change name Is_Ada_2005 to Is_Ada_2005_Only
(Last_Assignment): New field for useless assignment warning
From-SVN: r118271
Diffstat (limited to 'gcc/ada/g-expect.adb')
| -rw-r--r-- | gcc/ada/g-expect.adb | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/gcc/ada/g-expect.adb b/gcc/ada/g-expect.adb index c4902b5..9517905 100644 --- a/gcc/ada/g-expect.adb +++ b/gcc/ada/g-expect.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2000-2005, AdaCore -- +-- Copyright (C) 2000-2006, AdaCore -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -1110,8 +1110,8 @@ package body GNAT.Expect is Result : Expect_Match; Descriptors : Array_Of_Pd := (1 => Descriptor'Unrestricted_Access); - Dummy : Natural; - pragma Unreferenced (Dummy); + Discard : Natural; + pragma Warnings (Off, Discard); begin if Empty_Buffer then @@ -1135,7 +1135,7 @@ package body GNAT.Expect is Call_Filters (Descriptor, Full_Str (Full_Str'First .. Last), Input); - Dummy := + Discard := Write (Descriptor.Input_Fd, Full_Str'Address, Last - Full_Str'First + 1); @@ -1275,7 +1275,6 @@ package body GNAT.Expect is Pipe3 : in out Pipe_Type) is pragma Warnings (Off, Pid); - begin Close (Pipe1.Input); Close (Pipe2.Output); |