Turn value_parent into method

This changes value_parent to be a method of value.  Much of this patch
was written by script.

Approved-By: Simon Marchi <simon.marchi@efficios.com>

diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c
index d1ad9a28ca784fda77909123a29b4bc955054c77..b4fcce21a73dc3b24b9f27f3bb5d842078ba1fc1 100644 (file)
--- a/gdb/ada-lang.c
+++ b/gdb/ada-lang.c
@@ -2842,7 +2842,7 @@ ada_value_primitive_packed_val (struct value *obj, const gdb_byte *valaddr,
 
       /* Also set the parent value.  This is needed when trying to
         assign a new value (in inferior memory).  */
-      set_value_parent (v, obj);
+      v->set_parent (obj);
     }
   else
     v->set_bitsize (bit_size);

diff --git a/gdb/dwarf2/expr.c b/gdb/dwarf2/expr.c
index 826573b628d0735cd02276287b53f517ebfacfee..2b8feffe8815890939294c61bc19af00b61a89d8 100644 (file)
--- a/gdb/dwarf2/expr.c
+++ b/gdb/dwarf2/expr.c
@@ -171,7 +171,7 @@ rw_pieced_value (value *v, value *from, bool check_optimized)
   ULONGEST bits_to_skip = 8 * value_offset (v);
   if (v->bitsize ())
     {
-      bits_to_skip += (8 * value_offset (value_parent (v))
+      bits_to_skip += (8 * value_offset (v->parent ())
                       + v->bitpos ());
       if (from != nullptr
          && (type_byte_order (from->type ())

diff --git a/gdb/valops.c b/gdb/valops.c
index 45356919185936e584c4093e15ed0ab6c7b85b10..e522f8466aca432c35ad2b243fc5babafb65d886 100644 (file)
--- a/gdb/valops.c
+++ b/gdb/valops.c
@@ -1125,14 +1125,14 @@ value_assign (struct value *toval, struct value *fromval)
 
        /* Are we dealing with a bitfield?
 
-          It is important to mention that `value_parent (toval)' is
+          It is important to mention that `toval->parent ()' is
           non-NULL iff `toval->bitsize ()' is non-zero.  */
        if (toval->bitsize ())
          {
            /* VALUE_INTERNALVAR below refers to the parent value, while
               the offset is relative to this parent value.  */
-           gdb_assert (value_parent (value_parent (toval)) == NULL);
-           offset += value_offset (value_parent (toval));
+           gdb_assert (toval->parent ()->parent () == NULL);
+           offset += value_offset (toval->parent ());
          }
 
        set_internalvar_component (VALUE_INTERNALVAR (toval),
@@ -1152,7 +1152,7 @@ value_assign (struct value *toval, struct value *fromval)
 
        if (toval->bitsize ())
          {
-           struct value *parent = value_parent (toval);
+           struct value *parent = toval->parent ();
 
            changed_addr = value_address (parent) + value_offset (toval);
            changed_len = (toval->bitpos ()
@@ -1215,7 +1215,7 @@ value_assign (struct value *toval, struct value *fromval)
 
        if (toval->bitsize ())
          {
-           struct value *parent = value_parent (toval);
+           struct value *parent = toval->parent ();
            LONGEST offset = value_offset (parent) + value_offset (toval);
            size_t changed_len;
            gdb_byte buffer[sizeof (LONGEST)];

diff --git a/gdb/value.c b/gdb/value.c
index a51f5ad7773865b626b6c7e9992342de0d164d81..2a53144b161e7d9c7eaeffd63520dadac4cb5e71 100644 (file)
--- a/gdb/value.c
+++ b/gdb/value.c
@@ -1035,20 +1035,6 @@ set_value_offset (struct value *value, LONGEST offset)
   value->m_offset = offset;
 }
 
-struct value *
-value_parent (const struct value *value)
-{
-  return value->m_parent.get ();
-}
-
-/* See value.h.  */
-
-void
-set_value_parent (struct value *value, struct value *parent)
-{
-  value->m_parent = value_ref_ptr::new_reference (parent);
-}
-
 gdb::array_view<gdb_byte>
 value_contents_raw (struct value *value)
 {
@@ -3064,7 +3050,7 @@ value_primitive_field (struct value *arg1, LONGEST offset,
       v->m_offset = (value_embedded_offset (arg1)
                   + offset
                   + (bitpos - v->m_bitpos) / 8);
-      set_value_parent (v, arg1);
+      v->set_parent (arg1);
       if (!value_lazy (arg1))
        value_fetch_lazy (v);
     }
@@ -3925,7 +3911,7 @@ value_fetch_lazy_bitfield (struct value *val)
      per bitfield.  It would be even better to read only the containing
      word, but we have no way to record that just specific bits of a
      value have been fetched.  */
-  struct value *parent = value_parent (val);
+  struct value *parent = val->parent ();
 
   if (value_lazy (parent))
     value_fetch_lazy (parent);

diff --git a/gdb/value.h b/gdb/value.h
index 7249cdcb5c0b91608e2ae04968c58782eb8e094b..9857c4339bf07c842a79892b4bea2feffb014978 100644 (file)
--- a/gdb/value.h
+++ b/gdb/value.h
@@ -189,6 +189,15 @@ struct value
   void set_bitpos (LONGEST bit)
   { m_bitpos = bit; }
 
+  /* Only used for bitfields; the containing value.  This allows a
+     single read from the target when displaying multiple
+     bitfields.  */
+  value *parent () const
+  { return m_parent.get (); }
+
+  void set_parent (struct value *parent)
+  {  m_parent = value_ref_ptr::new_reference (parent); }
+
 
   /* Type of value; either not an lval, or one of the various
      different possible kinds of lval.  */
@@ -367,13 +376,6 @@ struct value
   ULONGEST m_limited_length = 0;
 };
 
-/* Only used for bitfields; the containing value.  This allows a
-   single read from the target when displaying multiple
-   bitfields.  */
-
-struct value *value_parent (const struct value *);
-extern void set_value_parent (struct value *value, struct value *parent);
-
 /* Describes offset of a value within lval of a structure in bytes.
    If lval == lval_memory, this is an offset to the address.  If lval
    == lval_register, this is a further offset from location.address