diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-06-22 09:36:25 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-06-22 09:36:25 +0000 |
| commit | a6e14bbe170b50d5b949f73bc016037e073800cd (patch) | |
| tree | 9f819b958fa5cdcdd7d140ae5149fc01169432de /gcc/ada/output.adb | |
| parent | 293f8df8c493503a01e32b779608a2eb52bbc3db (diff) | |
| download | gcc-a6e14bbe170b50d5b949f73bc016037e073800cd.tar.gz | |
2010-06-22 Thomas Quinot <quinot@adacore.com>
* sem_res.adb (Make_Call_Into_Operator): Use First_Subtype for better
error reporting with generic types.
2010-06-22 Thomas Quinot <quinot@adacore.com>
* bindgen.adb, bindusg.adb, gnatbind.adb, gnat_ugn.texi, opt.ads,
osint-b.adb, osint-b.ads, output.adb, output.ads, switch-b.adb,
vms_data.ads: Add a new command line switch -A to gnatbind to output
the list of all ALI files for the partition.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@161153 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/output.adb')
| -rw-r--r-- | gcc/ada/output.adb | 29 |
1 files changed, 16 insertions, 13 deletions
diff --git a/gcc/ada/output.adb b/gcc/ada/output.adb index 141c12fb294..8210d3f258f 100644 --- a/gcc/ada/output.adb +++ b/gcc/ada/output.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2010, Free Software Foundation, Inc. -- -- -- -- 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- -- @@ -29,8 +29,6 @@ -- -- ------------------------------------------------------------------------------ -with System.OS_Lib; use System.OS_Lib; - package body Output is Current_FD : File_Descriptor := Standout; @@ -228,17 +226,26 @@ package body Output is Special_Output_Proc := P; end Set_Special_Output; - ------------------------ - -- Set_Standard_Error -- - ------------------------ + ---------------- + -- Set_Output -- + ---------------- - procedure Set_Standard_Error is + procedure Set_Output (FD : File_Descriptor) is begin if Special_Output_Proc = null then Flush_Buffer; end if; - Current_FD := Standerr; + Current_FD := FD; + end Set_Output; + + ------------------------ + -- Set_Standard_Error -- + ------------------------ + + procedure Set_Standard_Error is + begin + Set_Output (Standerr); end Set_Standard_Error; ------------------------- @@ -247,11 +254,7 @@ package body Output is procedure Set_Standard_Output is begin - if Special_Output_Proc = null then - Flush_Buffer; - end if; - - Current_FD := Standout; + Set_Output (Standout); end Set_Standard_Output; ------- |