* ax-gdb.c (gen_expr) <OP_REGISTER>: Error out if trying to

[deliverable/binutils-gdb.git] / gdb / ax-gdb.c

diff --git a/gdb/ax-gdb.c b/gdb/ax-gdb.c
index ab6b82918bba1a7fe8f6302f7362ac71cd5583aa..f56183b0517160dc31b158d2fc5b51f1cb926616 100644 (file)
--- a/gdb/ax-gdb.c
+++ b/gdb/ax-gdb.c
@@ -1978,6 +1978,12 @@ gen_expr (struct expression *exp, union exp_element **pc,
        if (reg == -1)
          internal_error (__FILE__, __LINE__,
                          _("Register $%s not available"), name);
+       /* No support for tracing user registers yet.  */
+       if (reg >= gdbarch_num_regs (exp->gdbarch)
+           + gdbarch_num_pseudo_regs (exp->gdbarch))
+         error (_("'%s' is a pseudo-register; "
+                  "GDB cannot yet trace pseudoregister contents."),
+                name);
        value->kind = axs_lvalue_register;
        value->u.reg = reg;
        value->type = register_type (exp->gdbarch, reg);