diff options
author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-02-19 11:25:53 +0100 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-02-19 11:25:53 +0100 |
commit | e0f63680d9a8239e801b7f9a0c6f7ddabf433c06 (patch) | |
tree | 81beccc9022d393327bfc13b482c3b472b676ace /gcc/ada/output.ads | |
parent | 4df65a859021297d34af56094b2baa6502b59ddf (diff) | |
download | gcc-e0f63680d9a8239e801b7f9a0c6f7ddabf433c06.zip gcc-e0f63680d9a8239e801b7f9a0c6f7ddabf433c06.tar.gz gcc-e0f63680d9a8239e801b7f9a0c6f7ddabf433c06.tar.bz2 |
[multiple changes]
2014-02-19 Robert Dewar <dewar@adacore.com>
* exp_attr.adb (Expand_Min_Max_Attribute): New procedure
(Expand_N_Attribute_Reference): Use this procedure for Min and Max.
* exp_ch4.adb (Expand_N_Expression_With_Actions): Remove object
declarations from list of actions.
* output.ads, output.adb (Delete_Last_Char): New procedure.
* sinfo.ads: Document handling of Mod and expression with actions
in Modify_Tree_For_C mode.
2014-02-19 Ed Schonberg <schonberg@adacore.com>
* par-ch9.adb (P_Task): Add a null statement to produce a
well-formed task body when due to a previous syntax error the
statement list is empty.
2014-02-19 Hristian Kirtchev <kirtchev@adacore.com>
* sem_prag.adb (Check_Dependency_Clause): Account
for the case where a state with a non-null refinement matches a
null output list. Comment reformatting.
(Inputs_Match): Copy a solitary input to avoid an assertion failure
when trying to match the same input in multiple clauses.
2014-02-19 Gary Dismukes <dismukes@adacore.com>
* sem_attr.adb: Minor typo fix.
From-SVN: r207880
Diffstat (limited to 'gcc/ada/output.ads')
-rw-r--r-- | gcc/ada/output.ads | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/gcc/ada/output.ads b/gcc/ada/output.ads index 715a26a..e4137c2 100644 --- a/gcc/ada/output.ads +++ b/gcc/ada/output.ads @@ -141,6 +141,10 @@ package Output is -- Returns last character written on the current line, or null if the -- current line is (so far) empty. + procedure Delete_Last_Char; + -- Deletes last character written on the current line, no effect if the + -- current line is (so far) empty. + function Column return Pos; pragma Inline (Column); -- Returns the number of the column about to be written (e.g. a value of 1 |