diff options
| author | Robert Dewar <dewar@adacore.com> | 2007-12-19 17:22:02 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2007-12-19 17:22:02 +0100 |
| commit | 9d77af56e7fbe51db303f87b38a191fa81595b8d (patch) | |
| tree | 04693c1133b45828714a8b06bf6425f20c2f00f8 /gcc/ada/g-expect.adb | |
| parent | 41d4f4a794638918620b77fc226abd61438e5af0 (diff) | |
| download | gcc-9d77af56e7fbe51db303f87b38a191fa81595b8d.zip gcc-9d77af56e7fbe51db303f87b38a191fa81595b8d.tar.gz gcc-9d77af56e7fbe51db303f87b38a191fa81595b8d.tar.bz2 | |
g-expect-vms.adb, [...]: Add pragma Warnings (Off) for unassigned IN OUT arguments
2007-12-19 Robert Dewar <dewar@adacore.com>
* g-expect-vms.adb, g-expect.adb, s-poosiz.adb:
Add pragma Warnings (Off) for unassigned IN OUT arguments
* sem_warn.adb (Output_Reference): Suppress messages for internal names
(Check_References): Extensive changes to tune up warnings
(Output_Non_Modifed_In_Out_Warnings): Changes to tune up warnings
(Has_Pragma_Unmodifed_Check_Spec): New function
(Check_References): Implement pragma Unmodified
(Warn_On_Unassigned_Out_Parameter): Implement pragma Unmodified
* par-prag.adb: Dummy entry for pragma Unmodified
* sem_prag.adb: Implement pragma Unmodified
* einfo.ads, einfo.adb: (Has_Pragma_Unmodified): New flag
(Proc_Next_Component_Or_Discriminant): Fix typo.
Update comments.
* sem_util.adb (Note_Possible_Modification): Add processinng for pragma
Unmodified.
(Reset_Analyzed_Flags): Use Traverse_Proc instead of Traverse_Func,
because the former already takes care of discarding the result.
(Mark_Coextensions): Remove ununused initial value from Is_Dynamic.
Add comment.
* snames.h, snames.ads, snames.adb: Add entry for pragma Unmodified
From-SVN: r131068
Diffstat (limited to 'gcc/ada/g-expect.adb')
| -rw-r--r-- | gcc/ada/g-expect.adb | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/gcc/ada/g-expect.adb b/gcc/ada/g-expect.adb index 237f3f4..99e6f63 100644 --- a/gcc/ada/g-expect.adb +++ b/gcc/ada/g-expect.adb @@ -1190,6 +1190,9 @@ package body GNAT.Expect is Args : System.Address) is pragma Warnings (Off, Pid); + pragma Warnings (Off, Pipe1); + pragma Warnings (Off, Pipe2); + pragma Warnings (Off, Pipe3); Input : File_Descriptor; Output : File_Descriptor; @@ -1210,7 +1213,8 @@ package body GNAT.Expect is -- Since we are still called from the parent process, there is no way -- currently we can cleanly close the unneeded ends of the pipes, but -- this doesn't really matter. - -- We could close Pipe1.Output, Pipe2.Input, Pipe3.Input. + + -- We could close Pipe1.Output, Pipe2.Input, Pipe3.Input Dup2 (Pipe1.Input, GNAT.OS_Lib.Standin); Dup2 (Pipe2.Output, GNAT.OS_Lib.Standout); @@ -1298,6 +1302,9 @@ package body GNAT.Expect is Pipe3 : in out Pipe_Type) is pragma Warnings (Off, Pid); + pragma Warnings (Off, Pipe1); + pragma Warnings (Off, Pipe2); + pragma Warnings (Off, Pipe3); begin Close (Pipe1.Input); Close (Pipe2.Output); |