2002-09-22 Martin Baulig <martin@gnome.org>

	* debug-mono-symfile.c: Added support for reference types and strings.

svn path=/trunk/mono/; revision=7718

diff --git a/mono/metadata/ChangeLog b/mono/metadata/ChangeLog
index 99c83c9dc838accd12f83233217023929099860b..d4dcdf1d505e15bcbb65402a869a2dc50682c902 100644 (file)
--- a/mono/metadata/ChangeLog
+++ b/mono/metadata/ChangeLog
@@ -1,3 +1,7 @@
+2002-09-22  Martin Baulig  <martin@gnome.org>
+
+       * debug-mono-symfile.c: Added support for reference types and strings.
+
 2002-09-22  Martin Baulig  <martin@gnome.org>
 
        * debug-mono-symfile.c: Started to work on the type table.

diff --git a/mono/metadata/debug-mono-symfile.c b/mono/metadata/debug-mono-symfile.c
index 9be7ae13161fcbd2e3251fc4fff17fde8c40c369..030aeb781a1a4ce77d06daa6003ccc1e68fd2500 100644 (file)
--- a/mono/metadata/debug-mono-symfile.c
+++ b/mono/metadata/debug-mono-symfile.c
@@ -896,6 +896,29 @@ write_type (MonoSymbolFile *symfile, int index, MonoType *type)
                        *((guint32 *) ptr)++ = 8;
                        break;
 
+               case MONO_TYPE_STRING: {
+                       MonoString string;
+
+                       *((guint32 *) ptr)++ = -5;
+                       *ptr++ = 1;
+                       *ptr++ = sizeof (MonoString);
+                       *ptr++ = (guint8*)&string.length - (guint8*)&string;
+                       *ptr++ = sizeof (string.length);
+                       *ptr++ = (guint8*)&string.chars - (guint8*)&string;
+                       break;
+               }
+
+               case MONO_TYPE_ARRAY: {
+                       MonoArray array;
+
+                       *((guint32 *) ptr)++ = -4;
+                       *ptr++ = 2;
+                       *ptr++ = sizeof (MonoArray);
+                       *ptr++ = (guint8*)&array.max_length - (guint8*)&array;
+                       *ptr++ = sizeof (array.max_length);
+                       break;
+               }
+
                default:
                        g_message (G_STRLOC ": %d - %p - %x,%x,%x", index, type, type->attrs,
                                   type->type, type->byref);