Implement Ada operator overloading
[deliverable/binutils-gdb.git] / gdb / ax-general.c
index 5c8a25bb3a092536d8565abc9128c702e8707534..2a3869c197beb037b53f3119c146ccfcc47701d1 100644 (file)
@@ -1,5 +1,5 @@
 /* Functions for manipulating expressions designed to be executed on the agent
-   Copyright (C) 1998-2015 Free Software Foundation, Inc.
+   Copyright (C) 1998-2021 Free Software Foundation, Inc.
 
    This file is part of GDB.
 
@@ -23,6 +23,7 @@
 
 #include "defs.h"
 #include "ax.h"
+#include "gdbarch.h"
 
 #include "value.h"
 #include "user-regs.h"
@@ -37,52 +38,30 @@ static void generic_ext (struct agent_expr *x, enum agent_op op, int n);
 \f
 /* Functions for building expressions.  */
 
-/* Allocate a new, empty agent expression.  */
-struct agent_expr *
-new_agent_expr (struct gdbarch *gdbarch, CORE_ADDR scope)
+agent_expr::agent_expr (struct gdbarch *gdbarch, CORE_ADDR scope)
 {
-  struct agent_expr *x = XNEW (struct agent_expr);
-
-  x->len = 0;
-  x->size = 1;                 /* Change this to a larger value once
+  this->len = 0;
+  this->size = 1;              /* Change this to a larger value once
                                   reallocation code is tested.  */
-  x->buf = (unsigned char *) xmalloc (x->size);
+  this->buf = (unsigned char *) xmalloc (this->size);
 
-  x->gdbarch = gdbarch;
-  x->scope = scope;
+  this->gdbarch = gdbarch;
+  this->scope = scope;
 
   /* Bit vector for registers used.  */
-  x->reg_mask_len = 1;
-  x->reg_mask = XCNEWVEC (unsigned char, x->reg_mask_len);
-
-  x->tracing = 0;
-  x->trace_string = 0;
-
-  return x;
-}
+  this->reg_mask_len = 1;
+  this->reg_mask = XCNEWVEC (unsigned char, this->reg_mask_len);
 
-/* Free a agent expression.  */
-void
-free_agent_expr (struct agent_expr *x)
-{
-  xfree (x->buf);
-  xfree (x->reg_mask);
-  xfree (x);
+  this->tracing = 0;
+  this->trace_string = 0;
 }
 
-static void
-do_free_agent_expr_cleanup (void *x)
+agent_expr::~agent_expr ()
 {
-  free_agent_expr ((struct agent_expr *) x);
+  xfree (this->buf);
+  xfree (this->reg_mask);
 }
 
-struct cleanup *
-make_cleanup_free_agent_expr (struct agent_expr *x)
-{
-  return make_cleanup (do_free_agent_expr_cleanup, x);
-}
-
-
 /* Make sure that X has room for at least N more bytes.  This doesn't
    affect the length, just the allocated size.  */
 static void
@@ -265,7 +244,7 @@ ax_const_l (struct agent_expr *x, LONGEST l)
       LONGEST lim = ((LONGEST) 1) << (size - 1);
 
       if (-lim <= l && l <= lim - 1)
-        break;
+       break;
     }
 
   /* Emit the right opcode...  */
@@ -308,9 +287,12 @@ ax_reg (struct agent_expr *x, int reg)
     }
   else
     {
+      /* Get the remote register number.  */
+      reg = gdbarch_remote_register_number (x->gdbarch, reg);
+
       /* Make sure the register number is in range.  */
       if (reg < 0 || reg > 0xffff)
-        error (_("GDB bug: ax-general.c (ax_reg): "
+       error (_("GDB bug: ax-general.c (ax_reg): "
                 "register number out of range"));
       grow_expr (x, 3);
       x->buf[x->len] = aop_reg;
@@ -372,7 +354,7 @@ struct aop_map aop_map[] =
   {0, 0, 0, 0, 0}
 #define DEFOP(NAME, SIZE, DATA_SIZE, CONSUMED, PRODUCED, VALUE) \
   , { # NAME, SIZE, DATA_SIZE, CONSUMED, PRODUCED }
-#include "ax.def"
+#include "gdbsupport/ax.def"
 #undef DEFOP
 };
 
@@ -456,22 +438,26 @@ ax_reg_mask (struct agent_expr *ax, int reg)
     }
   else
     {
-      int byte = reg / 8;
+      int byte;
+
+      /* Get the remote register number.  */
+      reg = gdbarch_remote_register_number (ax->gdbarch, reg);
+      byte = reg / 8;
 
       /* Grow the bit mask if necessary.  */
       if (byte >= ax->reg_mask_len)
-        {
-          /* It's not appropriate to double here.  This isn't a
+       {
+         /* It's not appropriate to double here.  This isn't a
             string buffer.  */
-          int new_len = byte + 1;
-          unsigned char *new_reg_mask
+         int new_len = byte + 1;
+         unsigned char *new_reg_mask
            = XRESIZEVEC (unsigned char, ax->reg_mask, new_len);
 
-          memset (new_reg_mask + ax->reg_mask_len, 0,
-                 (new_len - ax->reg_mask_len) * sizeof (ax->reg_mask[0]));
-          ax->reg_mask_len = new_len;
-          ax->reg_mask = new_reg_mask;
-        }
+         memset (new_reg_mask + ax->reg_mask_len, 0,
+                 (new_len - ax->reg_mask_len) * sizeof (ax->reg_mask[0]));
+         ax->reg_mask_len = new_len;
+         ax->reg_mask = new_reg_mask;
+       }
 
       ax->reg_mask[byte] |= 1 << (reg % 8);
     }
@@ -531,8 +517,8 @@ ax_reqs (struct agent_expr *ax)
        }
 
       /* If this instruction is a forward jump target, does the
-         current stack height match the stack height at the jump
-         source?  */
+        current stack height match the stack height at the jump
+        source?  */
       if (targets[i] && (heights[i] != height))
        {
          ax->flaw = agent_flaw_height_mismatch;
@@ -553,8 +539,8 @@ ax_reqs (struct agent_expr *ax)
        ax->max_data_size = op->data_size;
 
       /* For jump instructions, check that the target is a valid
-         offset.  If it is, record the fact that that location is a
-         jump target, and record the height we expect there.  */
+        offset.  If it is, record the fact that that location is a
+        jump target, and record the height we expect there.  */
       if (aop_goto == op - aop_map
          || aop_if_goto == op - aop_map)
        {
@@ -566,7 +552,7 @@ ax_reqs (struct agent_expr *ax)
            }
 
          /* Do we have any information about what the stack height
-             should be at the target?  */
+            should be at the target?  */
          if (targets[target] || boundary[target])
            {
              if (heights[target] != height)
@@ -576,13 +562,13 @@ ax_reqs (struct agent_expr *ax)
                }
            }
 
-          /* Record the target, along with the stack height we expect.  */
-          targets[target] = 1;
-          heights[target] = height;
+         /* Record the target, along with the stack height we expect.  */
+         targets[target] = 1;
+         heights[target] = height;
        }
 
       /* For unconditional jumps with a successor, check that the
-         successor is a target, and pick up its stack height.  */
+        successor is a target, and pick up its stack height.  */
       if (aop_goto == op - aop_map
          && i + 3 < ax->len)
        {
This page took 0.027296 seconds and 4 git commands to generate.