[dotgnu-pnet-commits] pnet ChangeLog engine/debugger.c

[Radek Polak]

CVSROOT:        /sources/dotgnu-pnet
Module name:    pnet
Changes by:     Radek Polak <radekp>    07/10/22 04:41:47

Modified files:
        .              : ChangeLog 
        engine         : debugger.c 

Log message:
        Dump information whether project contains entry point

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/pnet/ChangeLog?cvsroot=dotgnu-pnet&r1=1.3509&r2=1.3510
http://cvs.savannah.gnu.org/viewcvs/pnet/engine/debugger.c?cvsroot=dotgnu-pnet&r1=1.25&r2=1.26

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/dotgnu-pnet/pnet/ChangeLog,v
retrieving revision 1.3509
retrieving revision 1.3510
diff -u -b -r1.3509 -r1.3510
--- ChangeLog   15 Oct 2007 19:31:07 -0000      1.3509
+++ ChangeLog   22 Oct 2007 04:41:46 -0000      1.3510
@@ -1,3 +1,8 @@
+2007-10-22  Radek Polak  <address@hidden>
+
+       * engine/debugger.c: Dump information whether image contains entry
+       point.
+
 2007-10-15  Klaus Treichel  <address@hidden>
 
        * codegen/cg_output.c: Use the number of dimensions of the last nested

Index: engine/debugger.c
===================================================================
RCS file: /sources/dotgnu-pnet/pnet/engine/debugger.c,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -b -r1.25 -r1.26
--- engine/debugger.c   3 Aug 2007 08:20:00 -0000       1.25
+++ engine/debugger.c   22 Oct 2007 04:41:47 -0000      1.26
@@ -2090,12 +2090,15 @@
        ILImage *image;
        int imageId;
        const char *linkDir;
+       ILImage *entryImage;
 
        /* Dump xml header */
        fputs("  <Projects>\n", stream);
 
        /* Iterate all images */
        context = ILExecProcessGetContext(debugger->process);
+       entryImage = ILClassToImage(ILMethod_Owner(ILExecProcessGetEntry
+                                                                               
                                (debugger->process)));
        image = 0;
        while((image = ILContextNextImage(context, image)) != 0)
        {
@@ -2112,6 +2115,12 @@
                        fputs("\" ProjectDir=\"", stream);
                        DumpString(linkDir, stream);
                }
+
+               if(image == entryImage)
+               {
+                       fputs("\" IsEntry=\"1", stream);
+               }
+
                fputs("\" />\n", stream);
        }
        /* Output the library footer information */