diff options
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 715a26a285e..e4137c2add6 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 |