aboutsummaryrefslogtreecommitdiff
path: root/gdb/ada-lang.c
diff options
context:
space:
mode:
authorJoel Brobecker <brobecker@gnat.com>2008-10-01 02:23:18 +0000
committerJoel Brobecker <brobecker@gnat.com>2008-10-01 02:23:18 +0000
commitd35e579508b6eba9f7d9224761a42e988d1a247d (patch)
tree648245b6dd2e97fb40f927e91b276f912b3b6323 /gdb/ada-lang.c
parente846c30a01d9ba12ccd07a2d0ce65ea551ef9a5d (diff)
downloadgdb-d35e579508b6eba9f7d9224761a42e988d1a247d.zip
gdb-d35e579508b6eba9f7d9224761a42e988d1a247d.tar.gz
gdb-d35e579508b6eba9f7d9224761a42e988d1a247d.tar.bz2
* ada-lang.c (is_digits_suffix): Delete unused function.
Diffstat (limited to 'gdb/ada-lang.c')
-rw-r--r--gdb/ada-lang.c13
1 files changed, 0 insertions, 13 deletions
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. */