[Dotgnu-pnet-commits] CVS: pnet/ilnative ilinternal.c,1.7,1.8

[Gopal.V <address@hidden>]

Update of /cvsroot/dotgnu-pnet/pnet/ilnative
In directory subversions:/tmp/cvs-serv3764/ilnative

Modified Files:
        ilinternal.c 
Log Message:
Fix nested type bug for ilinternal and update int_table.c


Index: ilinternal.c
===================================================================
RCS file: /cvsroot/dotgnu-pnet/pnet/ilnative/ilinternal.c,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -r1.7 -r1.8
*** ilinternal.c        28 May 2003 02:14:25 -0000      1.7
--- ilinternal.c        22 Jul 2003 18:01:20 -0000      1.8
***************
*** 666,669 ****
--- 666,690 ----
  
  /*
+  * Dump a class in "lookup" form (recursively handle nesting)
+  */
+ static void dumpLookupClass(FILE *outfile, ILClass *classInfo)
+ {
+       const char *namespace;
+       ILClass *nestedParent=ILClassGetNestedParent(classInfo);
+       if(nestedParent)
+       {
+               dumpLookupClass(outfile,nestedParent);
+               putc('/', outfile);
+       }
+       namespace = ILClass_Namespace(classInfo);
+       if(namespace)
+       {
+               fputs(namespace, outfile);
+               putc('.', outfile);
+       }
+       fputs(ILClass_Name(classInfo), outfile);
+ }
+ 
+ /*
   * Dump a type in "lookup" form.
   */
***************
*** 672,676 ****
        unsigned long numParams;
        unsigned long param;
-       const char *namespace;
  
        if(ILType_IsPrimitive(type))
--- 693,696 ----
***************
*** 701,711 ****
        {
                putc('o', outfile);
!               namespace = ILClass_Namespace(ILType_ToClass(type));
!               if(namespace)
!               {
!                       fputs(namespace, outfile);
!                       putc('.', outfile);
!               }
!               fputs(ILClass_Name(ILType_ToClass(type)), outfile);
                putc(';', outfile);
        }
--- 721,725 ----
        {
                putc('o', outfile);
!               dumpLookupClass(outfile,ILType_ToClass(type));
                putc(';', outfile);
        }
***************
*** 713,723 ****
        {
                putc('v', outfile);
!               namespace = ILClass_Namespace(ILType_ToClass(type));
!               if(namespace)
!               {
!                       fputs(namespace, outfile);
!                       putc('.', outfile);
!               }
!               fputs(ILClass_Name(ILType_ToClass(type)), outfile);
                putc(';', outfile);
        }
--- 727,731 ----
        {
                putc('v', outfile);
!               dumpLookupClass(outfile,ILType_ToClass(type));
                putc(';', outfile);
        }