[dotgnu-pnet-commits] pnet ChangeLog dumpasm/dump_class.c

[Klaus Treichel]

CVSROOT:        /cvsroot/dotgnu-pnet
Module name:    pnet
Changes by:     Klaus Treichel <ktreichel>      09/03/25 19:26:05

Modified files:
        .              : ChangeLog 
        dumpasm        : dump_class.c 

Log message:
        Dump the constant attached to a property.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/pnet/ChangeLog?cvsroot=dotgnu-pnet&r1=1.3609&r2=1.3610
http://cvs.savannah.gnu.org/viewcvs/pnet/dumpasm/dump_class.c?cvsroot=dotgnu-pnet&r1=1.7&r2=1.8

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/dotgnu-pnet/pnet/ChangeLog,v
retrieving revision 1.3609
retrieving revision 1.3610
diff -u -b -r1.3609 -r1.3610
--- ChangeLog   22 Mar 2009 20:39:10 -0000      1.3609
+++ ChangeLog   25 Mar 2009 19:26:04 -0000      1.3610
@@ -1,3 +1,8 @@
+2009-03-25  Klaus Treichel  <address@hidden>
+
+       * dumpasm/dump_class.c (Dump_PropertyDef): Add output of the constant
+       attached to a property.
+
 2009-03-22  Klaus Treichel  <address@hidden>
 
        * ilalink/link_class.c (CreateClass): Set new class in <Module> even if

Index: dumpasm/dump_class.c
===================================================================
RCS file: /cvsroot/dotgnu-pnet/pnet/dumpasm/dump_class.c,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -b -r1.7 -r1.8
--- dumpasm/dump_class.c        26 Nov 2008 20:15:22 -0000      1.7
+++ dumpasm/dump_class.c        25 Mar 2009 19:26:04 -0000      1.8
@@ -347,6 +347,10 @@
        /* Dump the property type */
        ILDumpMethodType(outstream, image, ILProperty_Signature(property), 
flags,
                                         0, ILProperty_Name(property), 0);
+       if((ILProperty_Attrs(property) & IL_META_PROPDEF_HAS_DEFAULT) != 0)
+       {
+               ILDumpConstant(outstream, (ILProgramItem *)property, 0);
+       }
        fputs("\n\t{\n", outstream);
 
        /* Dump the custom attributes */