diff options
| -rw-r--r-- | gdb/ChangeLog | 4 | ||||
| -rw-r--r-- | gdb/ada-lang.c | 13 |
2 files changed, 4 insertions, 13 deletions
diff --git a/gdb/ChangeLog b/gdb/ChangeLog index f6d30f1..7b255ca 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,7 @@ +2008-09-30 Joel Brobecker <brobecker@adacore.com> + + * ada-lang.c (is_digits_suffix): Delete unused function. + 2008-09-30 Paul Hilfinger <hilfinger@adacore.com> * ada-lang.c (ada_modulus): Correct to avoid sign problem with diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c index 3c4f05a..49fb252 100644 --- a/gdb/ada-lang.c +++ b/gdb/ada-lang.c @@ -202,8 +202,6 @@ static int equiv_types (struct type *, struct type *); static int is_name_suffix (const char *); -static int is_digits_suffix (const char *str); - static int wild_match (const char *, int, const char *); static struct value *ada_coerce_ref (struct value *); @@ -5022,17 +5020,6 @@ is_name_suffix (const char *str) return 0; } -/* Return nonzero if the given string contains only digits. - The empty string also matches. */ - -static int -is_digits_suffix (const char *str) -{ - while (isdigit (str[0])) - str++; - return (str[0] == '\0'); -} - /* Return non-zero if the string starting at NAME and ending before NAME_END contains no capital letters. */ |