Delete dead function.

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

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 54c9c42..ff22a90 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,5 +1,10 @@
 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.
        * dec-thread.c (dec_thread_count_gdb_threads)
        (dec_thread_add_gdb_thread): Prevent -Wunused warning.

diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c
index 317c8d3..24def95 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.  */