2010-06-28 Phil Muldoon <pmuldoon@redhat.com>

[deliverable/binutils-gdb.git] / gdb / python / py-utils.c

diff --git a/gdb/python/py-utils.c b/gdb/python/py-utils.c
index 944e6b42583b30b64da0a38202781cb89fad0af3..90609fa85dbdb7264ec6b15f238dca506b447e31 100644 (file)
--- a/gdb/python/py-utils.c
+++ b/gdb/python/py-utils.c
@@ -19,6 +19,7 @@
 
 #include "defs.h"
 #include "charset.h"
+#include "value.h"
 #include "python-internal.h"
 
 
@@ -272,3 +273,51 @@ gdbpy_exception_to_string (PyObject *ptype, PyObject *pvalue)
 
   return str;
 }
+
+/* Converts OBJ to a CORE_ADDR value.
+
+   Returns 1 on success or 0 on failure, with a Python exception set.  This
+   function can also throw GDB exceptions.
+*/
+
+int
+get_addr_from_python (PyObject *obj, CORE_ADDR *addr)
+{
+  if (gdbpy_is_value_object (obj))
+    *addr = value_as_address (value_object_to_value (obj));
+  else if (PyLong_Check (obj))
+    {
+      /* Assume CORE_ADDR corresponds to unsigned long.  */
+      *addr = PyLong_AsUnsignedLong (obj);
+      if (PyErr_Occurred () != NULL)
+       return 0;
+    }
+  else if (PyInt_Check (obj))
+    {
+      long val;
+
+      /* Assume CORE_ADDR corresponds to unsigned long.  */
+      val = PyInt_AsLong (obj);
+
+      if (val >= 0)
+       *addr = val;
+      else
+      {
+       /* If no error ocurred, VAL is indeed negative.  */
+       if (PyErr_Occurred () != NULL)
+         return 0;
+
+       PyErr_SetString (PyExc_ValueError,
+                        _("Supplied address is negative."));
+       return 0;
+      }
+    }
+  else
+    {
+      PyErr_SetString (PyExc_TypeError,
+                      _("Invalid type for address."));
+      return 0;
+    }
+
+  return 1;
+}