diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-02-19 10:25:53 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-02-19 10:25:53 +0000 |
| commit | 389062c95789bc6f7cec1b5d92b7bd233377003d (patch) | |
| tree | 81beccc9022d393327bfc13b482c3b472b676ace /gcc/ada/output.adb | |
| parent | 4563499dfd676ff1ff23a4184253ae2bc8ea5399 (diff) | |
| download | gcc-389062c95789bc6f7cec1b5d92b7bd233377003d.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@207880 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/output.adb')
| -rw-r--r-- | gcc/ada/output.adb | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/gcc/ada/output.adb b/gcc/ada/output.adb index 901c922fd91..0a739370ae0 100644 --- a/gcc/ada/output.adb +++ b/gcc/ada/output.adb @@ -75,6 +75,17 @@ package body Output is return Pos (Next_Col); end Column; + ---------------------- + -- Delete_Last_Char -- + ---------------------- + + procedure Delete_Last_Char is + begin + if Next_Col /= 1 then + Next_Col := Next_Col - 1; + end if; + end Delete_Last_Char; + ------------------ -- Flush_Buffer -- ------------------ |