* ada-lang.c (value_from_contents_and_address): Move...

	* value.c: ... here.
	* ada-lang.h (value_from_contents_and_address): Move
	declaration...
	* value.h: ... here.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 984cf47421898b211d9813ff7025f4df860618fd..4467e97145c573ab509aeb15784214a33904f4ff 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,11 @@
+2008-11-24  Tom Tromey  <tromey@redhat.com>
+
+       * ada-lang.c (value_from_contents_and_address): Move...
+       * value.c: ... here.
+       * ada-lang.h (value_from_contents_and_address): Move
+       declaration...
+       * value.h: ... here.
+
 2008-11-24  Paul Pluzhnikov  <ppluzhnikov@google.com>
 
        * valprint.c (val_print_array_elements): Pass correct

diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c
index 2ccba785e06c9591027824c4ce80d6bc24d9ceae..1dc3c8891df712aa3e0313832ba761cdfc4a4a3d 100644 (file)
--- a/gdb/ada-lang.c
+++ b/gdb/ada-lang.c
@@ -465,26 +465,6 @@ is_suffix (const char *str, const char *suffix)
   return (len1 >= len2 && strcmp (str + len1 - len2, suffix) == 0);
 }
 
-/* Create a value of type TYPE whose contents come from VALADDR, if it
-   is non-null, and whose memory address (in the inferior) is
-   ADDRESS.  */
-
-struct value *
-value_from_contents_and_address (struct type *type,
-                                const gdb_byte *valaddr,
-                                 CORE_ADDR address)
-{
-  struct value *v = allocate_value (type);
-  if (valaddr == NULL)
-    set_value_lazy (v, 1);
-  else
-    memcpy (value_contents_raw (v), valaddr, TYPE_LENGTH (type));
-  VALUE_ADDRESS (v) = address;
-  if (address != 0)
-    VALUE_LVAL (v) = lval_memory;
-  return v;
-}
-
 /* The contents of value VAL, treated as a value of type TYPE.  The
    result is an lval in memory if VAL is.  */
 

diff --git a/gdb/ada-lang.h b/gdb/ada-lang.h
index 562a8673f0e60dffc370bd87049bf4726d480312..440558cba71e598586d786d4f0273ceb07d151d8 100644 (file)
--- a/gdb/ada-lang.h
+++ b/gdb/ada-lang.h
@@ -257,10 +257,6 @@ extern int ada_value_print (struct value *, struct ui_file *,
 
                                 /* Defined in ada-lang.c */
 
-extern struct value *value_from_contents_and_address (struct type *,
-                                                     const gdb_byte *,
-                                                      CORE_ADDR);
-
 extern void ada_emit_char (int, struct ui_file *, int, int);
 
 extern void ada_printchar (int, struct ui_file *);

diff --git a/gdb/value.c b/gdb/value.c
index 695aa334390c572f52de323c31b75da974ba1fc7..904b942ac34806385901900eb3ca9ec0fb954752 100644 (file)
--- a/gdb/value.c
+++ b/gdb/value.c
@@ -1686,6 +1686,26 @@ value_from_string (char *ptr)
   return val;
 }
 
+/* Create a value of type TYPE whose contents come from VALADDR, if it
+   is non-null, and whose memory address (in the inferior) is
+   ADDRESS.  */
+
+struct value *
+value_from_contents_and_address (struct type *type,
+                                const gdb_byte *valaddr,
+                                CORE_ADDR address)
+{
+  struct value *v = allocate_value (type);
+  if (valaddr == NULL)
+    set_value_lazy (v, 1);
+  else
+    memcpy (value_contents_raw (v), valaddr, TYPE_LENGTH (type));
+  VALUE_ADDRESS (v) = address;
+  if (address != 0)
+    VALUE_LVAL (v) = lval_memory;
+  return v;
+}
+
 struct value *
 value_from_double (struct type *type, DOUBLEST num)
 {

diff --git a/gdb/value.h b/gdb/value.h
index 65fea99a99ebee01b9c8d0837d56e6939b7e5081..384a1ed391e4d8f8d7a2f9a82a45b23e323b6d98 100644 (file)
--- a/gdb/value.h
+++ b/gdb/value.h
@@ -289,6 +289,10 @@ extern struct value *value_from_string (char *string);
 extern struct value *value_at (struct type *type, CORE_ADDR addr);
 extern struct value *value_at_lazy (struct type *type, CORE_ADDR addr);
 
+extern struct value *value_from_contents_and_address (struct type *,
+                                                     const gdb_byte *,
+                                                     CORE_ADDR);
+
 extern struct value *default_value_from_register (struct type *type,
                                                  int regnum,
                                                  struct frame_info *frame);