gdb/python/py-unwind.c

   1 /* Python frame unwinder interface.
   2
   3    Copyright (C) 2015-2017 Free Software Foundation, Inc.
   4
   5    This file is part of GDB.
   6
   7    This program is free software; you can redistribute it and/or modify
   8    it under the terms of the GNU General Public License as published by
   9    the Free Software Foundation; either version 3 of the License, or
  10    (at your option) any later version.
  11
  12    This program is distributed in the hope that it will be useful,
  13    but WITHOUT ANY WARRANTY; without even the implied warranty of
  14    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15    GNU General Public License for more details.
  16
  17    You should have received a copy of the GNU General Public License
  18    along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
  19
  20 #include "defs.h"
  21 #include "arch-utils.h"
  22 #include "frame-unwind.h"
  23 #include "gdb_obstack.h"
  24 #include "gdbcmd.h"
  25 #include "language.h"
  26 #include "observer.h"
  27 #include "python-internal.h"
  28 #include "regcache.h"
  29 #include "valprint.h"
  30 #include "user-regs.h"
  31 #include "py-ref.h"
  32
  33 #define TRACE_PY_UNWIND(level, args...) if (pyuw_debug >= level)  \
  34   { fprintf_unfiltered (gdb_stdlog, args); }
  35
  36 typedef struct
  37 {
  38   PyObject_HEAD
  39
  40   /* Frame we are unwinding.  */
  41   struct frame_info *frame_info;
  42
  43   /* Its architecture, passed by the sniffer caller.  */
  44   struct gdbarch *gdbarch;
  45 } pending_frame_object;
  46
  47 /* Saved registers array item.  */
  48
  49 typedef struct
  50 {
  51   int number;
  52   PyObject *value;
  53 } saved_reg;
  54 DEF_VEC_O (saved_reg);
  55
  56 /* The data we keep for the PyUnwindInfo: pending_frame, saved registers
  57    and frame ID.  */
  58
  59 typedef struct
  60 {
  61   PyObject_HEAD
  62
  63   /* gdb.PendingFrame for the frame we are unwinding.  */
  64   PyObject *pending_frame;
  65
  66   /* Its ID.  */
  67   struct frame_id frame_id;
  68
  69   /* Saved registers array.  */
  70   VEC (saved_reg) *saved_regs;
  71 } unwind_info_object;
  72
  73 /* The data we keep for a frame we can unwind: frame ID and an array of
  74    (register_number, register_value) pairs.  */
  75
  76 struct reg_info
  77 {
  78   /* Register number.  */
  79   int number;
  80
  81   /* Register data bytes pointer.  */
  82   gdb_byte data[MAX_REGISTER_SIZE];
  83 };
  84
  85 typedef struct
  86 {
  87   /* Frame ID.  */
  88   struct frame_id frame_id;
  89
  90   /* GDB Architecture.  */
  91   struct gdbarch *gdbarch;
  92
  93   /* Length of the `reg' array below.  */
  94   int reg_count;
  95
  96   struct reg_info reg[];
  97 } cached_frame_info;
  98
  99 extern PyTypeObject pending_frame_object_type
 100     CPYCHECKER_TYPE_OBJECT_FOR_TYPEDEF ("pending_frame_object");
 101
 102 extern PyTypeObject unwind_info_object_type
 103     CPYCHECKER_TYPE_OBJECT_FOR_TYPEDEF ("unwind_info_object");
 104
 105 static unsigned int pyuw_debug = 0;
 106
 107 static struct gdbarch_data *pyuw_gdbarch_data;
 108
 109 /* Parses register id, which can be either a number or a name.
 110    Returns 1 on success, 0 otherwise.  */
 111
 112 static int
 113 pyuw_parse_register_id (struct gdbarch *gdbarch, PyObject *pyo_reg_id,
 114                         int *reg_num)
 115 {
 116   if (pyo_reg_id == NULL)
 117     return 0;
 118   if (gdbpy_is_string (pyo_reg_id))
 119     {
 120       gdb::unique_xmalloc_ptr<char> reg_name (gdbpy_obj_to_string (pyo_reg_id));
 121
 122       if (reg_name == NULL)
 123         return 0;
 124       *reg_num = user_reg_map_name_to_regnum (gdbarch, reg_name.get (),
 125                                               strlen (reg_name.get ()));
 126       return *reg_num >= 0;
 127     }
 128   else if (PyInt_Check (pyo_reg_id))
 129     {
 130       long value;
 131       if (gdb_py_int_as_long (pyo_reg_id, &value) && (int) value == value)
 132         {
 133           *reg_num = (int) value;
 134           return user_reg_map_regnum_to_name (gdbarch, *reg_num) != NULL;
 135         }
 136     }
 137   return 0;
 138 }
 139
 140 /* Convert gdb.Value instance to inferior's pointer.  Return 1 on success,
 141    0 on failure.  */
 142
 143 static int
 144 pyuw_value_obj_to_pointer (PyObject *pyo_value, CORE_ADDR *addr)
 145 {
 146   int rc = 0;
 147   struct value *value;
 148
 149   TRY
 150     {
 151       if ((value = value_object_to_value (pyo_value)) != NULL)
 152         {
 153           *addr = unpack_pointer (value_type (value),
 154                                   value_contents (value));
 155           rc = 1;
 156         }
 157     }
 158   CATCH (except, RETURN_MASK_ALL)
 159     {
 160       gdbpy_convert_exception (except);
 161     }
 162   END_CATCH
 163   return rc;
 164 }
 165
 166 /* Get attribute from an object and convert it to the inferior's
 167    pointer value.  Return 1 if attribute exists and its value can be
 168    converted.  Otherwise, if attribute does not exist or its value is
 169    None, return 0.  In all other cases set Python error and return
 170    0.  */
 171
 172 static int
 173 pyuw_object_attribute_to_pointer (PyObject *pyo, const char *attr_name,
 174                                   CORE_ADDR *addr)
 175 {
 176   int rc = 0;
 177
 178   if (PyObject_HasAttrString (pyo, attr_name))
 179     {
 180       gdbpy_ref<> pyo_value (PyObject_GetAttrString (pyo, attr_name));
 181
 182       if (pyo_value != NULL && pyo_value != Py_None)
 183         {
 184           rc = pyuw_value_obj_to_pointer (pyo_value.get (), addr);
 185           if (!rc)
 186             PyErr_Format (
 187                 PyExc_ValueError,
 188                 _("The value of the '%s' attribute is not a pointer."),
 189                 attr_name);
 190         }
 191     }
 192   return rc;
 193 }
 194
 195 /* Called by the Python interpreter to obtain string representation
 196    of the UnwindInfo object.  */
 197
 198 static PyObject *
 199 unwind_infopy_str (PyObject *self)
 200 {
 201   unwind_info_object *unwind_info = (unwind_info_object *) self;
 202   string_file stb;
 203
 204   stb.puts ("Frame ID: ");
 205   fprint_frame_id (&stb, unwind_info->frame_id);
 206   {
 207     char *sep = "";
 208     int i;
 209     struct value_print_options opts;
 210     saved_reg *reg;
 211
 212     get_user_print_options (&opts);
 213     stb.printf ("\nSaved registers: (");
 214     for (i = 0; VEC_iterate (saved_reg, unwind_info->saved_regs, i, reg); i++)
 215       {
 216         struct value *value = value_object_to_value (reg->value);
 217
 218         stb.printf ("%s(%d, ", sep, reg->number);
 219         if (value != NULL)
 220           {
 221             TRY
 222               {
 223                 value_print (value, &stb, &opts);
 224                 stb.puts (")");
 225               }
 226             CATCH (except, RETURN_MASK_ALL)
 227               {
 228                 GDB_PY_HANDLE_EXCEPTION (except);
 229               }
 230             END_CATCH
 231           }
 232         else
 233           stb.puts ("<BAD>)");
 234         sep = ", ";
 235       }
 236     stb.puts (")");
 237   }
 238
 239   return PyString_FromString (stb.c_str ());
 240 }
 241
 242 /* Create UnwindInfo instance for given PendingFrame and frame ID.
 243    Sets Python error and returns NULL on error.  */
 244
 245 static PyObject *
 246 pyuw_create_unwind_info (PyObject *pyo_pending_frame,
 247                          struct frame_id frame_id)
 248 {
 249   unwind_info_object *unwind_info
 250       = PyObject_New (unwind_info_object, &unwind_info_object_type);
 251
 252   if (((pending_frame_object *) pyo_pending_frame)->frame_info == NULL)
 253     {
 254       PyErr_SetString (PyExc_ValueError,
 255                        "Attempting to use stale PendingFrame");
 256       return NULL;
 257     }
 258   unwind_info->frame_id = frame_id;
 259   Py_INCREF (pyo_pending_frame);
 260   unwind_info->pending_frame = pyo_pending_frame;
 261   unwind_info->saved_regs = VEC_alloc (saved_reg, 4);
 262   return (PyObject *) unwind_info;
 263 }
 264
 265 /* The implementation of
 266    gdb.UnwindInfo.add_saved_register (REG, VALUE) -> None.  */
 267
 268 static PyObject *
 269 unwind_infopy_add_saved_register (PyObject *self, PyObject *args)
 270 {
 271   unwind_info_object *unwind_info = (unwind_info_object *) self;
 272   pending_frame_object *pending_frame
 273       = (pending_frame_object *) (unwind_info->pending_frame);
 274   PyObject *pyo_reg_id;
 275   PyObject *pyo_reg_value;
 276   int regnum;
 277
 278   if (pending_frame->frame_info == NULL)
 279     {
 280       PyErr_SetString (PyExc_ValueError,
 281                        "UnwindInfo instance refers to a stale PendingFrame");
 282       return NULL;
 283     }
 284   if (!PyArg_UnpackTuple (args, "previous_frame_register", 2, 2,
 285                           &pyo_reg_id, &pyo_reg_value))
 286     return NULL;
 287   if (!pyuw_parse_register_id (pending_frame->gdbarch, pyo_reg_id, &regnum))
 288     {
 289       PyErr_SetString (PyExc_ValueError, "Bad register");
 290       return NULL;
 291     }
 292   {
 293     struct value *value;
 294     size_t data_size;
 295
 296     if (pyo_reg_value == NULL
 297       || (value = value_object_to_value (pyo_reg_value)) == NULL)
 298       {
 299         PyErr_SetString (PyExc_ValueError, "Bad register value");
 300         return NULL;
 301       }
 302     data_size = register_size (pending_frame->gdbarch, regnum);
 303     if (data_size != TYPE_LENGTH (value_type (value)))
 304       {
 305         PyErr_Format (
 306             PyExc_ValueError,
 307             "The value of the register returned by the Python "
 308             "sniffer has unexpected size: %u instead of %u.",
 309             (unsigned) TYPE_LENGTH (value_type (value)),
 310             (unsigned) data_size);
 311         return NULL;
 312       }
 313   }
 314   {
 315     int i;
 316     saved_reg *reg;
 317
 318     for (i = 0; VEC_iterate (saved_reg, unwind_info->saved_regs, i, reg); i++)
 319       {
 320         if (regnum == reg->number)
 321           {
 322             Py_DECREF (reg->value);
 323             break;
 324           }
 325       }
 326     if (reg == NULL)
 327       {
 328         reg = VEC_safe_push (saved_reg, unwind_info->saved_regs, NULL);
 329         reg->number = regnum;
 330       }
 331     Py_INCREF (pyo_reg_value);
 332     reg->value = pyo_reg_value;
 333   }
 334   Py_RETURN_NONE;
 335 }
 336
 337 /* UnwindInfo cleanup.  */
 338
 339 static void
 340 unwind_infopy_dealloc (PyObject *self)
 341 {
 342   unwind_info_object *unwind_info = (unwind_info_object *) self;
 343   int i;
 344   saved_reg *reg;
 345
 346   Py_XDECREF (unwind_info->pending_frame);
 347   for (i = 0; VEC_iterate (saved_reg, unwind_info->saved_regs, i, reg); i++)
 348       Py_DECREF (reg->value);
 349   VEC_free (saved_reg, unwind_info->saved_regs);
 350   Py_TYPE (self)->tp_free (self);
 351 }
 352
 353 /* Called by the Python interpreter to obtain string representation
 354    of the PendingFrame object.  */
 355
 356 static PyObject *
 357 pending_framepy_str (PyObject *self)
 358 {
 359   struct frame_info *frame = ((pending_frame_object *) self)->frame_info;
 360   const char *sp_str = NULL;
 361   const char *pc_str = NULL;
 362
 363   if (frame == NULL)
 364     return PyString_FromString ("Stale PendingFrame instance");
 365   TRY
 366     {
 367       sp_str = core_addr_to_string_nz (get_frame_sp (frame));
 368       pc_str = core_addr_to_string_nz (get_frame_pc (frame));
 369     }
 370   CATCH (except, RETURN_MASK_ALL)
 371     {
 372       GDB_PY_HANDLE_EXCEPTION (except);
 373     }
 374   END_CATCH
 375
 376   return PyString_FromFormat ("SP=%s,PC=%s", sp_str, pc_str);
 377 }
 378
 379 /* Implementation of gdb.PendingFrame.read_register (self, reg) -> gdb.Value.
 380    Returns the value of register REG as gdb.Value instance.  */
 381
 382 static PyObject *
 383 pending_framepy_read_register (PyObject *self, PyObject *args)
 384 {
 385   pending_frame_object *pending_frame = (pending_frame_object *) self;
 386   struct value *val = NULL;
 387   int regnum;
 388   PyObject *pyo_reg_id;
 389
 390   if (pending_frame->frame_info == NULL)
 391     {
 392       PyErr_SetString (PyExc_ValueError,
 393                        "Attempting to read register from stale PendingFrame");
 394       return NULL;
 395     }
 396   if (!PyArg_UnpackTuple (args, "read_register", 1, 1, &pyo_reg_id))
 397     return NULL;
 398   if (!pyuw_parse_register_id (pending_frame->gdbarch, pyo_reg_id, &regnum))
 399     {
 400       PyErr_SetString (PyExc_ValueError, "Bad register");
 401       return NULL;
 402     }
 403
 404   TRY
 405     {
 406       /* Fetch the value associated with a register, whether it's
 407          a real register or a so called "user" register, like "pc",
 408          which maps to a real register.  In the past,
 409          get_frame_register_value() was used here, which did not
 410          handle the user register case.  */
 411       val = value_of_register (regnum, pending_frame->frame_info);
 412       if (val == NULL)
 413         PyErr_Format (PyExc_ValueError,
 414                       "Cannot read register %d from frame.",
 415                       regnum);
 416     }
 417   CATCH (except, RETURN_MASK_ALL)
 418     {
 419       GDB_PY_HANDLE_EXCEPTION (except);
 420     }
 421   END_CATCH
 422
 423   return val == NULL ? NULL : value_to_value_object (val);
 424 }
 425
 426 /* Implementation of
 427    PendingFrame.create_unwind_info (self, frameId) -> UnwindInfo.  */
 428
 429 static PyObject *
 430 pending_framepy_create_unwind_info (PyObject *self, PyObject *args)
 431 {
 432   PyObject *pyo_frame_id;
 433   CORE_ADDR sp;
 434   CORE_ADDR pc;
 435   CORE_ADDR special;
 436
 437   if (!PyArg_ParseTuple (args, "O:create_unwind_info", &pyo_frame_id))
 438       return NULL;
 439   if (!pyuw_object_attribute_to_pointer (pyo_frame_id, "sp", &sp))
 440     {
 441       PyErr_SetString (PyExc_ValueError,
 442                        _("frame_id should have 'sp' attribute."));
 443       return NULL;
 444     }
 445
 446   /* The logic of building frame_id depending on the attributes of
 447      the frame_id object:
 448      Has     Has    Has           Function to call
 449      'sp'?   'pc'?  'special'?
 450      ------|------|--------------|-------------------------
 451      Y       N      *             frame_id_build_wild (sp)
 452      Y       Y      N             frame_id_build (sp, pc)
 453      Y       Y      Y             frame_id_build_special (sp, pc, special)
 454   */
 455   if (!pyuw_object_attribute_to_pointer (pyo_frame_id, "pc", &pc))
 456     return pyuw_create_unwind_info (self, frame_id_build_wild (sp));
 457   if (!pyuw_object_attribute_to_pointer (pyo_frame_id, "special", &special))
 458     return pyuw_create_unwind_info (self, frame_id_build (sp, pc));
 459   else
 460     return pyuw_create_unwind_info (self,
 461                                     frame_id_build_special (sp, pc, special));
 462 }
 463
 464 /* frame_unwind.this_id method.  */
 465
 466 static void
 467 pyuw_this_id (struct frame_info *this_frame, void **cache_ptr,
 468               struct frame_id *this_id)
 469 {
 470   *this_id = ((cached_frame_info *) *cache_ptr)->frame_id;
 471   if (pyuw_debug >= 1)
 472     {
 473       fprintf_unfiltered (gdb_stdlog, "%s: frame_id: ", __FUNCTION__);
 474       fprint_frame_id (gdb_stdlog, *this_id);
 475       fprintf_unfiltered (gdb_stdlog, "\n");
 476     }
 477 }
 478
 479 /* frame_unwind.prev_register.  */
 480
 481 static struct value *
 482 pyuw_prev_register (struct frame_info *this_frame, void **cache_ptr,
 483                     int regnum)
 484 {
 485   cached_frame_info *cached_frame = (cached_frame_info *) *cache_ptr;
 486   struct reg_info *reg_info = cached_frame->reg;
 487   struct reg_info *reg_info_end = reg_info + cached_frame->reg_count;
 488
 489   TRACE_PY_UNWIND (1, "%s (frame=%p,...,reg=%d)\n", __FUNCTION__, this_frame,
 490                    regnum);
 491   for (; reg_info < reg_info_end; ++reg_info)
 492     {
 493       if (regnum == reg_info->number)
 494         return frame_unwind_got_bytes (this_frame, regnum, reg_info->data);
 495     }
 496
 497   return frame_unwind_got_optimized (this_frame, regnum);
 498 }
 499
 500 /* Frame sniffer dispatch.  */
 501
 502 static int
 503 pyuw_sniffer (const struct frame_unwind *self, struct frame_info *this_frame,
 504               void **cache_ptr)
 505 {
 506   struct gdbarch *gdbarch = (struct gdbarch *) (self->unwind_data);
 507   cached_frame_info *cached_frame;
 508
 509   gdbpy_enter enter_py (gdbarch, current_language);
 510
 511   TRACE_PY_UNWIND (3, "%s (SP=%s, PC=%s)\n", __FUNCTION__,
 512                    paddress (gdbarch, get_frame_sp (this_frame)),
 513                    paddress (gdbarch, get_frame_pc (this_frame)));
 514
 515   /* Create PendingFrame instance to pass to sniffers.  */
 516   pending_frame_object *pfo = PyObject_New (pending_frame_object,
 517                                             &pending_frame_object_type);
 518   gdbpy_ref<> pyo_pending_frame ((PyObject *) pfo);
 519   if (pyo_pending_frame == NULL)
 520     {
 521       gdbpy_print_stack ();
 522       return 0;
 523     }
 524   pfo->gdbarch = gdbarch;
 525   scoped_restore invalidate_frame = make_scoped_restore (&pfo->frame_info,
 526                                                          this_frame);
 527
 528   /* Run unwinders.  */
 529   if (gdb_python_module == NULL
 530       || ! PyObject_HasAttrString (gdb_python_module, "execute_unwinders"))
 531     {
 532       PyErr_SetString (PyExc_NameError,
 533                        "Installation error: gdb.execute_unwinders function "
 534                        "is missing");
 535       gdbpy_print_stack ();
 536       return 0;
 537     }
 538   gdbpy_ref<> pyo_execute (PyObject_GetAttrString (gdb_python_module,
 539                                                    "execute_unwinders"));
 540   if (pyo_execute == NULL)
 541     {
 542       gdbpy_print_stack ();
 543       return 0;
 544     }
 545
 546   gdbpy_ref<> pyo_unwind_info
 547     (PyObject_CallFunctionObjArgs (pyo_execute.get (),
 548                                    pyo_pending_frame.get (), NULL));
 549   if (pyo_unwind_info == NULL)
 550     {
 551       gdbpy_print_stack ();
 552       return 0;
 553     }
 554   if (pyo_unwind_info == Py_None)
 555     return 0;
 556
 557   /* Received UnwindInfo, cache data.  */
 558   if (PyObject_IsInstance (pyo_unwind_info.get (),
 559                            (PyObject *) &unwind_info_object_type) <= 0)
 560     error (_("A Unwinder should return gdb.UnwindInfo instance."));
 561
 562   {
 563     unwind_info_object *unwind_info =
 564       (unwind_info_object *) pyo_unwind_info.get ();
 565     int reg_count = VEC_length (saved_reg, unwind_info->saved_regs);
 566     saved_reg *reg;
 567     int i;
 568
 569     cached_frame
 570       = ((cached_frame_info *)
 571          xmalloc (sizeof (*cached_frame)
 572                   + reg_count * sizeof (cached_frame->reg[0])));
 573     cached_frame->gdbarch = gdbarch;
 574     cached_frame->frame_id = unwind_info->frame_id;
 575     cached_frame->reg_count = reg_count;
 576
 577     /* Populate registers array.  */
 578     for (i = 0; VEC_iterate (saved_reg, unwind_info->saved_regs, i, reg); i++)
 579       {
 580         struct value *value = value_object_to_value (reg->value);
 581         size_t data_size = register_size (gdbarch, reg->number);
 582
 583         cached_frame->reg[i].number = reg->number;
 584
 585         /* `value' validation was done before, just assert.  */
 586         gdb_assert (value != NULL);
 587         gdb_assert (data_size == TYPE_LENGTH (value_type (value)));
 588         gdb_assert (data_size <= MAX_REGISTER_SIZE);
 589
 590         memcpy (cached_frame->reg[i].data, value_contents (value), data_size);
 591       }
 592   }
 593
 594   *cache_ptr = cached_frame;
 595   return 1;
 596 }
 597
 598 /* Frame cache release shim.  */
 599
 600 static void
 601 pyuw_dealloc_cache (struct frame_info *this_frame, void *cache)
 602 {
 603   TRACE_PY_UNWIND (3, "%s: enter", __FUNCTION__);
 604   xfree (cache);
 605 }
 606
 607 struct pyuw_gdbarch_data_type
 608 {
 609   /* Has the unwinder shim been prepended? */
 610   int unwinder_registered;
 611 };
 612
 613 static void *
 614 pyuw_gdbarch_data_init (struct gdbarch *gdbarch)
 615 {
 616   return GDBARCH_OBSTACK_ZALLOC (gdbarch, struct pyuw_gdbarch_data_type);
 617 }
 618
 619 /* New inferior architecture callback: register the Python unwinders
 620    intermediary.  */
 621
 622 static void
 623 pyuw_on_new_gdbarch (struct gdbarch *newarch)
 624 {
 625   struct pyuw_gdbarch_data_type *data
 626     = (struct pyuw_gdbarch_data_type *) gdbarch_data (newarch,
 627                                                       pyuw_gdbarch_data);
 628
 629   if (!data->unwinder_registered)
 630     {
 631       struct frame_unwind *unwinder
 632           = GDBARCH_OBSTACK_ZALLOC (newarch, struct frame_unwind);
 633
 634       unwinder->type = NORMAL_FRAME;
 635       unwinder->stop_reason = default_frame_unwind_stop_reason;
 636       unwinder->this_id = pyuw_this_id;
 637       unwinder->prev_register = pyuw_prev_register;
 638       unwinder->unwind_data = (const struct frame_data *) newarch;
 639       unwinder->sniffer = pyuw_sniffer;
 640       unwinder->dealloc_cache = pyuw_dealloc_cache;
 641       frame_unwind_prepend_unwinder (newarch, unwinder);
 642       data->unwinder_registered = 1;
 643     }
 644 }
 645
 646 /* Initialize unwind machinery.  */
 647
 648 int
 649 gdbpy_initialize_unwind (void)
 650 {
 651   int rc;
 652   add_setshow_zuinteger_cmd
 653       ("py-unwind", class_maintenance, &pyuw_debug,
 654         _("Set Python unwinder debugging."),
 655         _("Show Python unwinder debugging."),
 656         _("When non-zero, Python unwinder debugging is enabled."),
 657         NULL,
 658         NULL,
 659         &setdebuglist, &showdebuglist);
 660   pyuw_gdbarch_data
 661       = gdbarch_data_register_post_init (pyuw_gdbarch_data_init);
 662   observer_attach_architecture_changed (pyuw_on_new_gdbarch);
 663
 664   if (PyType_Ready (&pending_frame_object_type) < 0)
 665     return -1;
 666   rc = gdb_pymodule_addobject (gdb_module, "PendingFrame",
 667       (PyObject *) &pending_frame_object_type);
 668   if (rc)
 669     return rc;
 670
 671   if (PyType_Ready (&unwind_info_object_type) < 0)
 672     return -1;
 673   return gdb_pymodule_addobject (gdb_module, "UnwindInfo",
 674       (PyObject *) &unwind_info_object_type);
 675 }
 676
 677 static PyMethodDef pending_frame_object_methods[] =
 678 {
 679   { "read_register", pending_framepy_read_register, METH_VARARGS,
 680     "read_register (REG) -> gdb.Value\n"
 681     "Return the value of the REG in the frame." },
 682   { "create_unwind_info",
 683     pending_framepy_create_unwind_info, METH_VARARGS,
 684     "create_unwind_info (FRAME_ID) -> gdb.UnwindInfo\n"
 685     "Construct UnwindInfo for this PendingFrame, using FRAME_ID\n"
 686     "to identify it." },
 687   {NULL}  /* Sentinel */
 688 };
 689
 690 PyTypeObject pending_frame_object_type =
 691 {
 692   PyVarObject_HEAD_INIT (NULL, 0)
 693   "gdb.PendingFrame",             /* tp_name */
 694   sizeof (pending_frame_object),  /* tp_basicsize */
 695   0,                              /* tp_itemsize */
 696   0,                              /* tp_dealloc */
 697   0,                              /* tp_print */
 698   0,                              /* tp_getattr */
 699   0,                              /* tp_setattr */
 700   0,                              /* tp_compare */
 701   0,                              /* tp_repr */
 702   0,                              /* tp_as_number */
 703   0,                              /* tp_as_sequence */
 704   0,                              /* tp_as_mapping */
 705   0,                              /* tp_hash  */
 706   0,                              /* tp_call */
 707   pending_framepy_str,            /* tp_str */
 708   0,                              /* tp_getattro */
 709   0,                              /* tp_setattro */
 710   0,                              /* tp_as_buffer */
 711   Py_TPFLAGS_DEFAULT,             /* tp_flags */
 712   "GDB PendingFrame object",      /* tp_doc */
 713   0,                              /* tp_traverse */
 714   0,                              /* tp_clear */
 715   0,                              /* tp_richcompare */
 716   0,                              /* tp_weaklistoffset */
 717   0,                              /* tp_iter */
 718   0,                              /* tp_iternext */
 719   pending_frame_object_methods,   /* tp_methods */
 720   0,                              /* tp_members */
 721   0,                              /* tp_getset */
 722   0,                              /* tp_base */
 723   0,                              /* tp_dict */
 724   0,                              /* tp_descr_get */
 725   0,                              /* tp_descr_set */
 726   0,                              /* tp_dictoffset */
 727   0,                              /* tp_init */
 728   0,                              /* tp_alloc */
 729 };
 730
 731 static PyMethodDef unwind_info_object_methods[] =
 732 {
 733   { "add_saved_register",
 734     unwind_infopy_add_saved_register, METH_VARARGS,
 735     "add_saved_register (REG, VALUE) -> None\n"
 736     "Set the value of the REG in the previous frame to VALUE." },
 737   { NULL }  /* Sentinel */
 738 };
 739
 740 PyTypeObject unwind_info_object_type =
 741 {
 742   PyVarObject_HEAD_INIT (NULL, 0)
 743   "gdb.UnwindInfo",               /* tp_name */
 744   sizeof (unwind_info_object),    /* tp_basicsize */
 745   0,                              /* tp_itemsize */
 746   unwind_infopy_dealloc,          /* tp_dealloc */
 747   0,                              /* tp_print */
 748   0,                              /* tp_getattr */
 749   0,                              /* tp_setattr */
 750   0,                              /* tp_compare */
 751   0,                              /* tp_repr */
 752   0,                              /* tp_as_number */
 753   0,                              /* tp_as_sequence */
 754   0,                              /* tp_as_mapping */
 755   0,                              /* tp_hash  */
 756   0,                              /* tp_call */
 757   unwind_infopy_str,              /* tp_str */
 758   0,                              /* tp_getattro */
 759   0,                              /* tp_setattro */
 760   0,                              /* tp_as_buffer */
 761   Py_TPFLAGS_DEFAULT | Py_TPFLAGS_BASETYPE,  /* tp_flags */
 762   "GDB UnwindInfo object",        /* tp_doc */
 763   0,                              /* tp_traverse */
 764   0,                              /* tp_clear */
 765   0,                              /* tp_richcompare */
 766   0,                              /* tp_weaklistoffset */
 767   0,                              /* tp_iter */
 768   0,                              /* tp_iternext */
 769   unwind_info_object_methods,     /* tp_methods */
 770   0,                              /* tp_members */
 771   0,                              /* tp_getset */
 772   0,                              /* tp_base */
 773   0,                              /* tp_dict */
 774   0,                              /* tp_descr_get */
 775   0,                              /* tp_descr_set */
 776   0,                              /* tp_dictoffset */
 777   0,                              /* tp_init */
 778   0,                              /* tp_alloc */
 779 };