Turn value_bitpos into method

This changes value_bitpos 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 9cbbbb06db359407a6995027bb73a0bb6b224311..d1ad9a28ca784fda77909123a29b4bc955054c77 100644 (file)
--- a/gdb/ada-lang.c
+++ b/gdb/ada-lang.c
@@ -569,7 +569,7 @@ coerce_unspec_val_to_type (struct value *val, struct type *type)
        }
       set_value_component_location (result, val);
       result->set_bitsize (val->bitsize ());
-      set_value_bitpos (result, value_bitpos (val));
+      result->set_bitpos (val->bitpos ());
       if (VALUE_LVAL (result) == lval_memory)
        set_value_address (result, value_address (val));
       return result;
@@ -2831,12 +2831,12 @@ ada_value_primitive_packed_val (struct value *obj, const gdb_byte *valaddr,
       long new_offset = offset;
 
       set_value_component_location (v, obj);
-      set_value_bitpos (v, bit_offset + value_bitpos (obj));
+      v->set_bitpos (bit_offset + obj->bitpos ());
       v->set_bitsize (bit_size);
-      if (value_bitpos (v) >= HOST_CHAR_BIT)
+      if (v->bitpos () >= HOST_CHAR_BIT)
        {
          ++new_offset;
-         set_value_bitpos (v, value_bitpos (v) - HOST_CHAR_BIT);
+         v->set_bitpos (v->bitpos () - HOST_CHAR_BIT);
        }
       set_value_offset (v, new_offset);
 
@@ -2896,7 +2896,7 @@ ada_value_assign (struct value *toval, struct value *fromval)
       && (type->code () == TYPE_CODE_FLT
          || type->code () == TYPE_CODE_STRUCT))
     {
-      int len = (value_bitpos (toval)
+      int len = (toval->bitpos ()
                 + bits + HOST_CHAR_BIT - 1) / HOST_CHAR_BIT;
       int from_size;
       gdb_byte *buffer = (gdb_byte *) alloca (len);
@@ -2915,7 +2915,7 @@ ada_value_assign (struct value *toval, struct value *fromval)
       ULONGEST from_offset = 0;
       if (is_big_endian && is_scalar_type (fromval->type ()))
        from_offset = from_size - bits;
-      copy_bitwise (buffer, value_bitpos (toval),
+      copy_bitwise (buffer, toval->bitpos (),
                    value_contents (fromval).data (), from_offset,
                    bits, is_big_endian);
       write_memory_with_notification (to_addr, buffer, len);
@@ -2951,7 +2951,7 @@ value_assign_to_component (struct value *container, struct value *component,
   LONGEST offset_in_container =
     (LONGEST)  (value_address (component) - value_address (container));
   int bit_offset_in_container =
-    value_bitpos (component) - value_bitpos (container);
+    component->bitpos () - container->bitpos ();
   int bits;
 
   val = value_cast (component->type (), val);
@@ -2972,13 +2972,13 @@ value_assign_to_component (struct value *container, struct value *component,
        src_offset = 0;
       copy_bitwise ((value_contents_writeable (container).data ()
                     + offset_in_container),
-                   value_bitpos (container) + bit_offset_in_container,
+                   container->bitpos () + bit_offset_in_container,
                    value_contents (val).data (), src_offset, bits, 1);
     }
   else
     copy_bitwise ((value_contents_writeable (container).data ()
                   + offset_in_container),
-                 value_bitpos (container) + bit_offset_in_container,
+                 container->bitpos () + bit_offset_in_container,
                  value_contents (val).data (), 0, bits, 0);
 }
 
@@ -6918,7 +6918,7 @@ ada_value_primitive_field (struct value *arg1, int offset, int fieldno,
   /* Handle packed fields.  It might be that the field is not packed
      relative to its containing structure, but the structure itself is
      packed; in this case we must take the bit-field path.  */
-  if (TYPE_FIELD_BITSIZE (arg_type, fieldno) != 0 || value_bitpos (arg1) != 0)
+  if (TYPE_FIELD_BITSIZE (arg_type, fieldno) != 0 || arg1->bitpos () != 0)
     {
       int bit_pos = arg_type->field (fieldno).loc_bitpos ();
       int bit_size = TYPE_FIELD_BITSIZE (arg_type, fieldno);

diff --git a/gdb/breakpoint.c b/gdb/breakpoint.c
index 7245e8b5b4324d89e169375b9150bc43a8d6e1d5..24697691421239c4306c60f8921649236a13043f 100644 (file)
--- a/gdb/breakpoint.c
+++ b/gdb/breakpoint.c
@@ -2096,7 +2096,7 @@ update_watchpoint (struct watchpoint *b, bool reparse)
                    {
                      /* Extract the bit parameters out from the bitfield
                         sub-expression.  */
-                     bitpos = value_bitpos (v);
+                     bitpos = v->bitpos ();
                      bitsize = v->bitsize ();
                    }
                  else if (v == result && b->val_bitsize != 0)
@@ -10198,7 +10198,7 @@ watch_command_1 (const char *arg, int accessflag, int from_tty,
 
   if (val_as_value != NULL && just_location)
     {
-      saved_bitpos = value_bitpos (val_as_value);
+      saved_bitpos = val_as_value->bitpos ();
       saved_bitsize = val_as_value->bitsize ();
     }
 

diff --git a/gdb/dwarf2/expr.c b/gdb/dwarf2/expr.c
index cbc20509cbe024d46e6b75e0f7e03068b872ce0f..826573b628d0735cd02276287b53f517ebfacfee 100644 (file)
--- a/gdb/dwarf2/expr.c
+++ b/gdb/dwarf2/expr.c
@@ -172,7 +172,7 @@ rw_pieced_value (value *v, value *from, bool check_optimized)
   if (v->bitsize ())
     {
       bits_to_skip += (8 * value_offset (value_parent (v))
-                      + value_bitpos (v));
+                      + v->bitpos ());
       if (from != nullptr
          && (type_byte_order (from->type ())
              == BFD_ENDIAN_BIG))
@@ -468,7 +468,7 @@ check_pieced_synthetic_pointer (const value *value, LONGEST bit_offset,
 
   bit_offset += 8 * value_offset (value);
   if (value->bitsize ())
-    bit_offset += value_bitpos (value);
+    bit_offset += value->bitpos ();
 
   for (i = 0; i < c->pieces.size () && bit_length > 0; i++)
     {
@@ -514,7 +514,7 @@ indirect_pieced_value (value *value)
   int bit_length = 8 * type->length ();
   LONGEST bit_offset = 8 * value_offset (value);
   if (value->bitsize ())
-    bit_offset += value_bitpos (value);
+    bit_offset += value->bitpos ();
 
   for (i = 0; i < c->pieces.size () && bit_length > 0; i++)
     {

diff --git a/gdb/valops.c b/gdb/valops.c
index 2ad19eaf8c7718ab50de90eebd183b1bc0876316..45356919185936e584c4093e15ed0ab6c7b85b10 100644 (file)
--- a/gdb/valops.c
+++ b/gdb/valops.c
@@ -1137,7 +1137,7 @@ value_assign (struct value *toval, struct value *fromval)
 
        set_internalvar_component (VALUE_INTERNALVAR (toval),
                                   offset,
-                                  value_bitpos (toval),
+                                  toval->bitpos (),
                                   toval->bitsize (),
                                   fromval);
       }
@@ -1155,7 +1155,7 @@ value_assign (struct value *toval, struct value *fromval)
            struct value *parent = value_parent (toval);
 
            changed_addr = value_address (parent) + value_offset (toval);
-           changed_len = (value_bitpos (toval)
+           changed_len = (toval->bitpos ()
                           + toval->bitsize ()
                           + HOST_CHAR_BIT - 1)
              / HOST_CHAR_BIT;
@@ -1176,7 +1176,7 @@ value_assign (struct value *toval, struct value *fromval)
 
            read_memory (changed_addr, buffer, changed_len);
            modify_field (type, buffer, value_as_long (fromval),
-                         value_bitpos (toval), toval->bitsize ());
+                         toval->bitpos (), toval->bitsize ());
            dest_buffer = buffer;
          }
        else
@@ -1221,7 +1221,7 @@ value_assign (struct value *toval, struct value *fromval)
            gdb_byte buffer[sizeof (LONGEST)];
            int optim, unavail;
 
-           changed_len = (value_bitpos (toval)
+           changed_len = (toval->bitpos ()
                           + toval->bitsize ()
                           + HOST_CHAR_BIT - 1)
                          / HOST_CHAR_BIT;
@@ -1244,7 +1244,7 @@ value_assign (struct value *toval, struct value *fromval)
              }
 
            modify_field (type, buffer, value_as_long (fromval),
-                         value_bitpos (toval), toval->bitsize ());
+                         toval->bitpos (), toval->bitsize ());
 
            put_frame_register_bytes (frame, value_reg, offset,
                                      {buffer, changed_len});

diff --git a/gdb/value.c b/gdb/value.c
index 2cdbd7eb93c249ab537e9ff7f371af5bb8a6647a..a51f5ad7773865b626b6c7e9992342de0d164d81 100644 (file)
--- a/gdb/value.c
+++ b/gdb/value.c
@@ -1035,17 +1035,6 @@ set_value_offset (struct value *value, LONGEST offset)
   value->m_offset = offset;
 }
 
-LONGEST
-value_bitpos (const struct value *value)
-{
-  return value->m_bitpos;
-}
-void
-set_value_bitpos (struct value *value, LONGEST bit)
-{
-  value->m_bitpos = bit;
-}
-
 struct value *
 value_parent (const struct value *value)
 {
@@ -3941,7 +3930,7 @@ value_fetch_lazy_bitfield (struct value *val)
   if (value_lazy (parent))
     value_fetch_lazy (parent);
 
-  unpack_value_bitfield (val, value_bitpos (val), val->bitsize (),
+  unpack_value_bitfield (val, val->bitpos (), val->bitsize (),
                         value_contents_for_printing (parent).data (),
                         value_offset (val), parent);
 }

diff --git a/gdb/value.h b/gdb/value.h
index c18e28e4f7d0b417bc0ee3adaaf2a7eb45045032..7249cdcb5c0b91608e2ae04968c58782eb8e094b 100644 (file)
--- a/gdb/value.h
+++ b/gdb/value.h
@@ -180,6 +180,15 @@ struct value
   void set_bitsize (LONGEST bit)
   { m_bitsize = bit; }
 
+  /* Only used for bitfields; position of start of field.  For
+     little-endian targets, it is the position of the LSB.  For
+     big-endian targets, it is the position of the MSB.  */
+  LONGEST bitpos () const
+  { return m_bitpos; }
+
+  void set_bitpos (LONGEST bit)
+  { m_bitpos = bit; }
+
 
   /* Type of value; either not an lval, or one of the various
      different possible kinds of lval.  */
@@ -358,13 +367,6 @@ struct value
   ULONGEST m_limited_length = 0;
 };
 
-/* Only used for bitfields; position of start of field.  For
-   little-endian targets, it is the position of the LSB.  For
-   big-endian targets, it is the position of the MSB.  */
-
-extern LONGEST value_bitpos (const struct value *);
-extern void set_value_bitpos (struct value *, LONGEST bit);
-
 /* Only used for bitfields; the containing value.  This allows a
    single read from the target when displaying multiple
    bitfields.  */