2009-04-07 Zoltan Varga <vargaz@gmail.com>

[mono.git] / data / gdb / mono-gdb.py

diff --git a/data/gdb/mono-gdb.py b/data/gdb/mono-gdb.py
index 35e01afd901c75f24fe4866cf161eb130eacdc1c..523aa90061af40f000139566193da07451b71b73 100644 (file)
--- a/data/gdb/mono-gdb.py
+++ b/data/gdb/mono-gdb.py
@@ -33,12 +33,27 @@ class StringPrinter:
         i = 0
         res = ['"']
         while i < len:
-            c = chr ((chars.cast(gdb.Type ("gint64")) + (i * 2)).cast(gdb.Type ("gunichar2").pointer ()).dereference ())
+            val = (chars.cast(gdb.Type ("gint64")) + (i * 2)).cast(gdb.Type ("gunichar2").pointer ()).dereference ()
+            if val >= 256:
+                c = "\u%X" % val
+            else:
+                c = chr (val)
             res.append (c)
             i = i + 1
         res.append ('"')
         return ''.join (res)
 
+def stringify_class_name(ns, name):
+    if ns == "System":
+        if name == "Byte":
+            return "byte"
+        if name == "String":
+            return "string"
+    if ns == "":
+        return name
+    else:
+        return "%s.%s" % (ns, name)
+
 class ArrayPrinter:
     "Print a C# array"
 
@@ -50,13 +65,16 @@ class ArrayPrinter:
     def to_string(self):
         obj = self.val.cast (gdb.Type ("MonoArray").pointer ()).dereference ()
         length = obj ['max_length']
-        return "%s.%s [%d]" % (self.class_ns, self.class_name [0:len(self.class_name) - 2], int(length))
+        return "%s [%d]" % (stringify_class_name (self.class_ns, self.class_name [0:len(self.class_name) - 2]), int(length))
         
 class ObjectPrinter:
     "Print a C# object"
 
     def __init__(self, val):
-        self.val = val
+        if str(val.type ())[-1] == "&":
+            self.val = val.address.cast (gdb.Type ("MonoObject").pointer ())
+        else:
+            self.val = val.cast (gdb.Type ("MonoObject").pointer ())
 
     class _iterator:
         def __init__(self,obj):
@@ -69,7 +87,15 @@ class ObjectPrinter:
 
         def next(self):
             field = self.iter.next ()
-            return (field.name, self.obj [field.name])
+            try:
+                if str(self.obj [field.name].type ()) == "object":
+                    # Avoid recursion
+                    return (field.name, self.obj [field.name].cast (gdb.Type ("void").pointer ()))
+                else:
+                    return (field.name, self.obj [field.name])
+            except:
+                # Superclass
+                return (field.name, self.obj.cast (gdb.Type ("%s" % (field.name))))
 
     def children(self):
         # FIXME: It would be easier if gdb.Value would support iteration itself
@@ -77,19 +103,23 @@ class ObjectPrinter:
         if int(self.val.cast (gdb.Type ("guint64"))) == 0:
             return {}.__iter__ ()
         try:
-            obj = self.val.cast (gdb.Type ("MonoObject").pointer ()).dereference ()
+            obj = self.val.dereference ()
             class_ns = obj ['vtable'].dereference ()['klass'].dereference ()['name_space'].string ()
             class_name = obj ['vtable'].dereference ()['klass'].dereference ()['name'].string ()
-            gdb_type = gdb.Type ("struct %s.%s" % (class_ns, class_name))
+            if class_name [-2:len(class_name)] == "[]":
+                return {}.__iter__ ()
+            gdb_type = gdb.Type ("struct %s_%s" % (class_ns.replace (".", "_"), class_name))
             return self._iterator(obj.cast (gdb_type))
         except:
+            print sys.exc_info ()[0]
+            print sys.exc_info ()[1]
             return {}.__iter__ ()
 
     def to_string(self):
         if int(self.val.cast (gdb.Type ("guint64"))) == 0:
             return "null"
         try:
-            obj = self.val.cast (gdb.Type ("MonoObject").pointer ()).dereference ()
+            obj = self.val.dereference ()
             class_ns = obj ['vtable'].dereference ()['klass'].dereference ()['name_space'].string ()
             class_name = obj ['vtable'].dereference ()['klass'].dereference ()['name'].string ()
             if class_ns == "System" and class_name == "String":
@@ -111,14 +141,23 @@ class ObjectPrinter:
             # FIXME: This can happen because we don't have liveness information
             return self.val.cast (gdb.Type ("guint64"))
 
+def lookup_pretty_printer(val):
+    t = str (val.type ())
+    if t == "object":
+        return ObjectPrinter (val)
+    if t[0:5] == "class" and t[-1] == "&":
+        return ObjectPrinter (val)    
+    if t == "string":
+        return StringPrinter (val)
+    return None
+
 def register_csharp_printers(obj):
     "Register C# pretty-printers with objfile Obj."
 
     if obj == None:
         obj = gdb
 
-    obj.pretty_printers['object'] = ObjectPrinter
-    obj.pretty_printers['string'] = StringPrinter
+    obj.pretty_printers.append (lookup_pretty_printer)
 
 register_csharp_printers (gdb.current_objfile())
 
@@ -142,15 +181,26 @@ class MonoSupport(object):
             new_size = os.stat ("xdb.s").st_size
             if new_size > self.s_size:
                 sofile = "xdb.so"
-                gdb.execute ("shell as --64 -o xdb.o xdb.s && ld -shared -o %s xdb.o" % sofile)
+                gdb.execute ("shell as -o xdb.o xdb.s && ld -shared -o %s xdb.o" % sofile)
                 # FIXME: This prints messages which couldn't be turned off
                 gdb.execute ("add-symbol-file %s 0" % sofile)
                 self.s_size = new_size
 
+class RunHook (gdb.Command):
+    def __init__ (self):
+        super (RunHook, self).__init__ ("hook-run", gdb.COMMAND_NONE,
+                                        gdb.COMPLETE_COMMAND, pre_hook_of="run")
+
+    def invoke(self, arg, from_tty):
+        mono_support.run_hook ()
+
 print "Mono support loaded."
 
 mono_support = MonoSupport ()
 
+# This depends on the changes in gdb-python.diff to work
+#RunHook ()
+
 # Register our hooks
 # This currently cannot be done from python code
 
@@ -159,5 +209,4 @@ exec_file = gdb.current_objfile ().filename
 if os.stat (exec_file).st_size != os.lstat (exec_file).st_size:
     exec_file = os.readlink (exec_file)
 exec_dir = os.path.dirname (exec_file)
-gdb.execute ("source %s/mono-gdbinit" % exec_dir)
-
+gdb.execute ("source %s/%s-gdbinit" % (exec_dir, os.path.basename (exec_file)))