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.ads | |
| 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.ads')
| -rw-r--r-- | gcc/ada/output.ads | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/gcc/ada/output.ads b/gcc/ada/output.ads index 2df0da661e5..d88272c05a6 100644 --- a/gcc/ada/output.ads +++ b/gcc/ada/output.ads @@ -33,6 +33,8 @@ -- writing error messages and informational output. It is also used by the -- debug source file output routines (see Sprint.Print_Debug_Line). +with System.OS_Lib; use System.OS_Lib; + with Hostparm; use Hostparm; with Types; use Types; @@ -85,6 +87,12 @@ package Output is -- has been cancelled. Output to standard output is the default mode -- before any call to either of the Set procedures. + procedure Set_Output (FD : File_Descriptor); + -- Sets subsequent output to appear on the given file descriptor when no + -- special output is in effect. When a special output is in effect, + -- the output will appear on the given file descriptor only after special + -- output has been cancelled. + procedure Indent; -- Increases the current indentation level. Whenever a line is written -- (triggered by Eol), an appropriate amount of whitespace is added to the |