diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-02-06 11:11:07 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-02-06 11:11:07 +0100 |
| commit | a0367a97c5b4c714b43066ea44c66333f0526056 (patch) | |
| tree | fa134c2379a030767243524185079b49ece51c23 /gcc/ada/output.adb | |
| parent | ce3904da34e70f926123e730107380dede9353d3 (diff) | |
| download | gcc-a0367a97c5b4c714b43066ea44c66333f0526056.zip gcc-a0367a97c5b4c714b43066ea44c66333f0526056.tar.gz gcc-a0367a97c5b4c714b43066ea44c66333f0526056.tar.bz2 | |
[multiple changes]
2014-02-06 Pascal Obry <obry@adacore.com>
* prj-util.adb (For_Interface_Sources): Fix handling of required
bodies for aggregate libs.
2014-02-06 Robert Dewar <dewar@adacore.com>
* nlists.ads: Minor comment clarifications.
2014-02-06 Robert Dewar <dewar@adacore.com>
* gnat1drv.adb (Adjust_Global_Switches): Set Modify_Tree_For_C
if gnatd.V set.
* opt.ads (Modify_Tree_For_C): New flag.
* output.ads, output.adb (Last_Char): New function.
2014-02-06 Pascal Obry <obry@adacore.com>
* projects.texi, prj-env.adb (Initialize_Default_Project_Path): Add
share/gpr for cross-builds.
From-SVN: r207542
Diffstat (limited to 'gcc/ada/output.adb')
| -rw-r--r-- | gcc/ada/output.adb | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/gcc/ada/output.adb b/gcc/ada/output.adb index da3c25d..901c922 100644 --- a/gcc/ada/output.adb +++ b/gcc/ada/output.adb @@ -181,6 +181,19 @@ package body Output is (Cur_Indentation + Indentation_Amount) mod Indentation_Limit; end Indent; + --------------- + -- Last_Char -- + --------------- + + function Last_Char return Character is + begin + if Next_Col /= 1 then + return Buffer (Next_Col - 1); + else + return ASCII.NUL; + end if; + end Last_Char; + ------------- -- Outdent -- ------------- |