diff options
author | rwild <rwild@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-04-13 18:03:09 +0000 |
---|---|---|
committer | rwild <rwild@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-04-13 18:03:09 +0000 |
commit | c2f0327042399b100d792f828204e32afe4b78a4 (patch) | |
tree | a0f7f9ee4024602fc581b4936e4483304cea1097 /gcc/ada/sprint.adb | |
parent | 1a34e48c1d7cf4f23d39788e46f64629cddf53b9 (diff) | |
download | gcc-c2f0327042399b100d792f828204e32afe4b78a4.tar.gz |
gcc/ada/
* sfn_scan.adb, sfn_scan.ads, sinfo.ads,
sinput-d.ads, sinput-l.adb, sinput-l.ads, sinput.ads,
snames.ads, sprint.adb, stand.ads, stringt.ads,
styleg.adb, styleg.ads, stylesw.adb, stylesw.ads,
switch.ads, sysdep.c, table.adb, table.ads,
targparm.ads, tb-gcc.c, tbuild.ads, tracebak.c,
trans.c, tree_io.adb, treepr.adb, types.adb, types.ads,
uintp.adb, uintp.ads, utils.c, utils2.c, validsw.ads,
vms_conv.adb, vms_conv.ads, vms_data.ads, widechar.adb,
widechar.ads, xeinfo.adb, xgnatugn.adb, xr_tabls.adb,
xr_tabls.ads, xref_lib.adb, xref_lib.ads, xsinfo.adb:
Fix comment typos.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@134243 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/sprint.adb')
-rw-r--r-- | gcc/ada/sprint.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/sprint.adb b/gcc/ada/sprint.adb index c00eca4b29f..2ead1c33019 100644 --- a/gcc/ada/sprint.adb +++ b/gcc/ada/sprint.adb @@ -230,7 +230,7 @@ package body Sprint is -- then output all source lines up to this matching line. procedure Write_Discr_Specs (N : Node_Id); - -- Ouput discriminant specification for node, which is any of the type + -- Output discriminant specification for node, which is any of the type -- declarations that can have discriminants. procedure Write_Ekind (E : Entity_Id); @@ -269,7 +269,7 @@ package body Sprint is function Write_Indent_Identifiers_Sloc (Node : Node_Id) return Boolean; -- Like Write_Indent_Identifiers except that in Debug_Generated_Code - -- mode, the Sloc of the current debug node is set to point ot the + -- mode, the Sloc of the current debug node is set to point to the -- first output identifier. procedure Write_Indent_Str (S : String); @@ -328,7 +328,7 @@ package body Sprint is -- initial Write_Indent (to get new line) if current line is too full. procedure Write_Str_With_Col_Check_Sloc (S : String); - -- Like Write_Str_WIth_Col_Check, but sets debug Sloc of current debug + -- Like Write_Str_With_Col_Check, but sets debug Sloc of current debug -- node to first non-blank character if a current debug node is active. procedure Write_Uint_With_Col_Check (U : Uint; Format : UI_Format); @@ -1041,7 +1041,7 @@ package body Sprint is Indent_End; -- Note: let the printing of Abortable_Part handle outputting - -- the ABORT keyword, so that the Slco can be set correctly. + -- the ABORT keyword, so that the Sloc can be set correctly. Write_Indent_Str ("then "); Sprint_Node (Abortable_Part (Node)); |