diff options
author | rwild <rwild@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-04-13 17:25:22 +0000 |
---|---|---|
committer | rwild <rwild@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-04-13 17:25:22 +0000 |
commit | febb409f6902e6f6fe5898499b6e4088b8b22f31 (patch) | |
tree | 2e22d192c6479c5accd049be839cdb508473587f /gcc/ada/s-valuti.adb | |
parent | 393edb51e5b8553bb4ac2e3ef374184fd8c9e97f (diff) | |
download | ppe42-gcc-febb409f6902e6f6fe5898499b6e4088b8b22f31.tar.gz ppe42-gcc-febb409f6902e6f6fe5898499b6e4088b8b22f31.zip |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@134241 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/s-valuti.adb')
-rw-r--r-- | gcc/ada/s-valuti.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/s-valuti.adb b/gcc/ada/s-valuti.adb index 50be73acd9f..7683d3a9cb8 100644 --- a/gcc/ada/s-valuti.adb +++ b/gcc/ada/s-valuti.adb @@ -294,8 +294,8 @@ package body System.Val_Util is P := P + 1; -- If underscore is at the end of string, then this is an error and - -- we raise Constraint_Error, leaving the pointer past the undescore. - -- This seems a bit strange. It means e,g, that if the field is: + -- we raise Constraint_Error, leaving the pointer past the underscore. + -- This seems a bit strange. It means e.g. that if the field is: -- 345_ |