From c2f0327042399b100d792f828204e32afe4b78a4 Mon Sep 17 00:00:00 2001 From: rwild Date: Sun, 13 Apr 2008 18:03:09 +0000 Subject: 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 --- gcc/ada/sprint.adb | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'gcc/ada/sprint.adb') 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)); -- cgit v1.2.1