diff options
| author | Ralf Wildenhues <Ralf.Wildenhues@gmx.de> | 2008-04-13 17:25:22 +0000 |
|---|---|---|
| committer | Ralf Wildenhues <rwild@gcc.gnu.org> | 2008-04-13 17:25:22 +0000 |
| commit | 12a13f016fb663988db80b030c4ef8761dc9c2a9 (patch) | |
| tree | 2e22d192c6479c5accd049be839cdb508473587f /gcc/ada/scng.adb | |
| parent | 305da3ecc8b8f9c1e62204b73fad3d242276e91d (diff) | |
| download | gcc-12a13f016fb663988db80b030c4ef8761dc9c2a9.zip gcc-12a13f016fb663988db80b030c4ef8761dc9c2a9.tar.gz gcc-12a13f016fb663988db80b030c4ef8761dc9c2a9.tar.bz2 | |
s-secsta.adb, [...]: Fix comment typos.
gcc/ada/
* s-secsta.adb, s-sequio.ads, s-shasto.ads,
s-soflin.ads, s-stalib.ads, s-stausa.adb,
s-stausa.ads, s-strxdr.adb, s-taenca.adb, s-taenca.ads,
s-taprob.adb, s-taprop-hpux-dce.adb, s-taprop-irix.adb,
s-taprop-linux.adb, s-taprop-mingw.adb, s-taprop-posix.adb,
s-taprop-solaris.adb, s-taprop-tru64.adb, s-taprop-vms.adb,
s-taprop-vxworks.adb, s-taprop.ads, s-tarest.adb,
s-tarest.ads, s-tasini.adb, s-tasini.ads, s-taskin.ads,
s-tasque.ads, s-tassta.adb, s-tassta.ads, s-tasuti.ads,
s-tpoben.adb, s-tpoben.ads, s-tpobop.adb,
s-tpopsp-posix.adb, s-tpopsp-rtems.adb, s-tposen.adb,
s-tposen.ads, s-traceb-hpux.adb, s-traces.ads,
s-trafor-default.ads, s-unstyp.ads, s-utf_32.ads,
s-vaflop.adb, s-vaflop.ads, s-valrea.adb, s-valuti.adb,
s-wchstw.ads, s-wchwts.adb, s-wchwts.ads, scans.ads,
scn.adb, scng.adb, seh_init.c, sem.ads, sem_aggr.adb,
sem_attr.adb, sem_attr.ads, sem_case.adb, sem_case.ads,
sem_cat.adb, sem_cat.ads: Fix comment typos.
From-SVN: r134241
Diffstat (limited to 'gcc/ada/scng.adb')
| -rw-r--r-- | gcc/ada/scng.adb | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gcc/ada/scng.adb b/gcc/ada/scng.adb index f7f68e6..76f63f9 100644 --- a/gcc/ada/scng.adb +++ b/gcc/ada/scng.adb @@ -236,7 +236,7 @@ package body Scng is -- Scan_Ptr points to the opening string quote (the checksum for this -- character has not been accumulated yet). On return Scan_Ptr points -- past the closing quote of the string literal, Token and Token_Node - -- are set appropriately, and the checksum is upated. + -- are set appropriately, and the checksum is updated. ----------------------- -- Check_End_Of_Line -- @@ -2066,7 +2066,7 @@ package body Scng is Underline_Found := False; goto Scan_Identifier; - -- Mark character is an error (at start of identifer) + -- Mark character is an error (at start of identifier) elsif Is_UTF_32_Mark (Cat) then Error_Msg @@ -2076,7 +2076,7 @@ package body Scng is Underline_Found := False; goto Scan_Identifier; - -- Other format character is an error (at start of identifer) + -- Other format character is an error (at start of identifier) elsif Is_UTF_32_Other (Cat) then Error_Msg @@ -2108,7 +2108,7 @@ package body Scng is -- Routine to scan line terminator. On entry Scan_Ptr points to a -- character which is one of FF,LR,CR,VT, or one of the wide characters - -- that is treated as a line termiantor. + -- that is treated as a line terminator. <<Scan_Line_Terminator>> @@ -2151,7 +2151,7 @@ package body Scng is -- Identifier scanning routine. On entry, some initial characters of -- the identifier may have already been stored in Name_Buffer. If so, - -- Name_Len has the number of characters stored. otherwise Name_Len is + -- Name_Len has the number of characters stored, otherwise Name_Len is -- set to zero on entry. Underline_Found is also set False on entry. <<Scan_Identifier>> @@ -2324,7 +2324,7 @@ package body Scng is Underline_Found := True; end if; - -- Wide character in Unicode cateogory "Other, Format" + -- Wide character in Unicode category "Other, Format" -- is accepted in an identifier, but is ignored and not -- stored. It seems reasonable to exclude it from the -- checksum. |