2012-03-01 Pedro Alves <palves@redhat.com>

	* ada-lang.c (ada_modulus_from_name): Delete.
	* ada-lex.l (lexer_init): Make static.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index f20d58bf9a53441d3ff5c3d10b782d3f3c1b09f5..e0baa2d2ba1bf6c3969645c0dc9372eaf9f3c3f2 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,8 @@
+2012-03-01  Pedro Alves  <palves@redhat.com>
+
+       * ada-lang.c (ada_modulus_from_name): Delete.
+       * ada-lex.l (lexer_init): Make static.
+
 2012-03-01  Pedro Alves  <palves@redhat.com>
 
        PR gdb/13767

diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c
index 349ca172ac0fc486396e646aafb6a668d1ff9c5f..4c17eaaae390a3682fd19b70a5a332bca8be0872 100644 (file)
--- a/gdb/ada-lang.c
+++ b/gdb/ada-lang.c
@@ -10598,37 +10598,6 @@ ada_is_modular_type (struct type *type)
           && TYPE_UNSIGNED (subranged_type));
 }
 
-/* Try to determine the lower and upper bounds of the given modular type
-   using the type name only.  Return non-zero and set L and U as the lower
-   and upper bounds (respectively) if successful.  */
-
-int
-ada_modulus_from_name (struct type *type, ULONGEST *modulus)
-{
-  const char *name = ada_type_name (type);
-  const char *suffix;
-  int k;
-  LONGEST U;
-
-  if (name == NULL)
-    return 0;
-
-  /* Discrete type bounds are encoded using an __XD suffix.  In our case,
-     we are looking for static bounds, which means an __XDLU suffix.
-     Moreover, we know that the lower bound of modular types is always
-     zero, so the actual suffix should start with "__XDLU_0__", and
-     then be followed by the upper bound value.  */
-  suffix = strstr (name, "__XDLU_0__");
-  if (suffix == NULL)
-    return 0;
-  k = 10;
-  if (!ada_scan_number (suffix, k, &U, NULL))
-    return 0;
-
-  *modulus = (ULONGEST) U + 1;
-  return 1;
-}
-
 /* Assuming ada_is_modular_type (TYPE), the modulus of TYPE.  */
 
 ULONGEST

diff --git a/gdb/ada-lex.l b/gdb/ada-lex.l
index 5102ff49f59642c484596b1591faf5bc0cd21b1e..714265ef385ef3d9cf130cf6c9facae91e704847 100644 (file)
--- a/gdb/ada-lex.l
+++ b/gdb/ada-lex.l
@@ -293,7 +293,7 @@ false               { return FALSEKEYWORD; }
 
 /* Initialize the lexer for processing new expression. */
 
-void
+static void
 lexer_init (FILE *inp)
 {
   BEGIN INITIAL;