diff options
| author | Laurent GUERBY <laurent@guerby.net> | 2005-01-26 21:35:50 +0000 |
|---|---|---|
| committer | Laurent Guerby <guerby@gcc.gnu.org> | 2005-01-26 21:35:50 +0000 |
| commit | d487e3c10ad8ed3327106a84c27d97be497b4798 (patch) | |
| tree | a2342cc1c282f58f2998c71122a2a3bc8bbe48a4 /gcc | |
| parent | 4bb3aa7e32e8a5f7c5e4df51f23e2a163a89263f (diff) | |
| download | gcc-d487e3c10ad8ed3327106a84c27d97be497b4798.tar.gz | |
re PR ada/19414 (ACATS cxb4003 - valgrind detects wrong code (invalid read))
2005-01-26 Laurent GUERBY <laurent@guerby.net>
PR ada/19414
* i-cobol.adb (Valid_Numeric): Handle zero length case.
From-SVN: r94287
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/i-cobol.adb | 4 |
2 files changed, 9 insertions, 0 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 815c8b229b3..1cf49090e3f 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2005-01-26 Laurent GUERBY <laurent@guerby.net> + + PR ada/19414 + * i-cobol.adb (Valid_Numeric): Handle zero length case. + 2005-01-20 Richard Henderson <rth@redhat.com> * Makefile.in (alpha-linux, LIBGNAT_TARGET_PAIRS): Use diff --git a/gcc/ada/i-cobol.adb b/gcc/ada/i-cobol.adb index 7dc1f851bed..38de23d8119 100644 --- a/gcc/ada/i-cobol.adb +++ b/gcc/ada/i-cobol.adb @@ -632,6 +632,10 @@ package body Interfaces.COBOL is return Boolean is begin + if Item'Length = 0 then + return False; + end if; + -- All character positions except first and last must be Digits. -- This is true for all the formats. |