From d487e3c10ad8ed3327106a84c27d97be497b4798 Mon Sep 17 00:00:00 2001 From: Laurent GUERBY Date: Wed, 26 Jan 2005 21:35:50 +0000 Subject: [PATCH] re PR ada/19414 (ACATS cxb4003 - valgrind detects wrong code (invalid read)) 2005-01-26 Laurent GUERBY PR ada/19414 * i-cobol.adb (Valid_Numeric): Handle zero length case. From-SVN: r94287 --- gcc/ada/ChangeLog | 5 +++++ gcc/ada/i-cobol.adb | 4 ++++ 2 files changed, 9 insertions(+) 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 + + PR ada/19414 + * i-cobol.adb (Valid_Numeric): Handle zero length case. + 2005-01-20 Richard Henderson * 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. -- 2.30.2