[Dotgnu-pnet-commits] CVS: pnet/engine lib_emit.c,1.17,1.18

[Richard Baumann <address@hidden>]

Update of /cvsroot/dotgnu-pnet/pnet/engine
In directory subversions:/tmp/cvs-serv22508/engine

Modified Files:
        lib_emit.c 
Log Message:
More lib_emit changes.


Index: lib_emit.c
===================================================================
RCS file: /cvsroot/dotgnu-pnet/pnet/engine/lib_emit.c,v
retrieving revision 1.17
retrieving revision 1.18
diff -C2 -r1.17 -r1.18
*** lib_emit.c  22 Jul 2003 21:10:06 -0000      1.17
--- lib_emit.c  22 Jul 2003 22:20:53 -0000      1.18
***************
*** 599,606 ****
                                                ILString *name)
  {
!       ILImage *image = ILProgramItem_Image(assembly);
!       ILToken token = ILProgramItem_Token(assembly);
!       const char *str = (const char *)ILStringToAnsi(_thread, name);
!       return (ILNativeInt)ILModuleCreate(image, token, str, NULL);
  }
  
--- 599,626 ----
                                                ILString *name)
  {
!       ILModule *retval;
!       ILImage *image;
!       ILToken token;
!       const char *str;
! 
!       IL_METADATA_WRLOCK(_thread);
! 
!       image = ILProgramItem_Image(assembly);
!       token = ILProgramItem_Token(assembly);
!       if (!(str = (const char *)ILStringToAnsi(_thread, name)))
!       {
!               IL_METADATA_UNLOCK(_thread);
!               ILExecThreadThrowOutOfMemory(_thread);
!               return 0;
!       }
!       if (!(retval = ILModuleCreate(image, token, str, NULL)))
!       {
!               IL_METADATA_UNLOCK(_thread);
!               ILExecThreadThrowOutOfMemory(_thread);
!               return 0;
!       }
! 
!       IL_METADATA_UNLOCK(_thread);
!       return (ILNativeInt)retval;
  }