[Dotgnu-pnet-commits] CVS: pnet/engine lib_emit.c,1.12,1.13

[Richard Baumann <address@hidden>]

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

Modified Files:
        lib_emit.c 
Log Message:
Implement the _IL_MethodBuilder_ClrMethodCreate internal call.


Index: lib_emit.c
===================================================================
RCS file: /cvsroot/dotgnu-pnet/pnet/engine/lib_emit.c,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -r1.12 -r1.13
*** lib_emit.c  12 Jul 2003 10:22:34 -0000      1.12
--- lib_emit.c  12 Jul 2003 12:06:15 -0000      1.13
***************
*** 698,703 ****
                                                                                
          ILNativeInt signature)
  {
!       /* TODO */
!       return 0;
  }
  
--- 698,724 ----
                                                                                
          ILNativeInt signature)
  {
!       ILClass *class;
!       const char *str;
!       ILMethod *method;
! 
!       IL_METADATA_WRLOCK(_thread);
! 
!       class = (ILClass *)classInfo;
!       if (!(str = (const char *)ILStringToAnsi(_thread, name)))
!       {
!               IL_METADATA_UNLOCK(_thread);
!               ILExecThreadThrowOutOfMemory(_thread);
!               return 0;
!       }
!       if (!(method = ILMethodCreate(class, 0, str, (ILUInt32)attributes)))
!       {
!               IL_METADATA_UNLOCK(_thread);
!               ILExecThreadThrowOutOfMemory(_thread);
!               return 0;
!       }
!       ILMemberSetSignature((ILMember *)method, (ILType *)signature);
! 
!       IL_METADATA_UNLOCK(_thread);
!       return (ILNativeInt)method;
  }