Delete dead function.

        * ada-lang.c (extract_string): Delete.  No longer used.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 54c9c4299c0a83b89e1bdf640ad2bf736fe62ca8..ff22a9061cf2e56b624913b00ac6fa0f792c65a2 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,8 @@
+2010-01-12  Joel Brobecker  <brobecker@adacore.com>
+
+       Delete dead function.
+       * ada-lang.c (extract_string): Delete.  No longer used.
+
 2010-01-12  Joel Brobecker  <brobecker@adacore.com>
 
        Fix -Wunused warning in dec-thread.c.

diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c
index 317c8d3ed72e2aa2cb9166d6349c623190418617..24def9589bf2be2a01bc0b0dea0791cd813eb0d2 100644 (file)
--- a/gdb/ada-lang.c
+++ b/gdb/ada-lang.c
@@ -65,8 +65,6 @@
 #define TRUNCATION_TOWARDS_ZERO ((-5 / 2) == -2)
 #endif
 
-static void extract_string (CORE_ADDR addr, char *buf);
-
 static void modify_general_field (struct type *, char *, LONGEST, int, int);
 
 static struct type *desc_base_type (struct type *);
@@ -359,25 +357,6 @@ ada_print_array_index (struct value *index_value, struct ui_file *stream,
   fprintf_filtered (stream, " => ");
 }
 
-/* Read the string located at ADDR from the inferior and store the
-   result into BUF.  */
-
-static void
-extract_string (CORE_ADDR addr, char *buf)
-{
-  int char_index = 0;
-
-  /* Loop, reading one byte at a time, until we reach the '\000'
-     end-of-string marker.  */
-  do
-    {
-      target_read_memory (addr + char_index * sizeof (char),
-                          buf + char_index * sizeof (char), sizeof (char));
-      char_index++;
-    }
-  while (buf[char_index - 1] != '\000');
-}
-
 /* Assuming VECT points to an array of *SIZE objects of size
    ELEMENT_SIZE, grow it to contain at least MIN_SIZE objects,
    updating *SIZE as necessary and returning the (new) array.  */