[Dotgnu-pnet-commits] CVS: pnet/engine lib_reflect.c,1.41,1.42

[Richard Baumann <address@hidden>]

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

Modified Files:
        lib_reflect.c 
Log Message:
Implement GetAssembly for modules in lib_reflect.


Index: lib_reflect.c
===================================================================
RCS file: /cvsroot/dotgnu-pnet/pnet/engine/lib_reflect.c,v
retrieving revision 1.41
retrieving revision 1.42
diff -C2 -r1.41 -r1.42
*** lib_reflect.c       16 Jul 2003 23:52:00 -0000      1.41
--- lib_reflect.c       26 Jul 2003 06:23:13 -0000      1.42
***************
*** 2306,2310 ****
  ILObject *_IL_Module_GetAssembly(ILExecThread *_thread, ILObject *_this)
  {
!       /* TODO */
        return 0;
  }
--- 2306,2329 ----
  ILObject *_IL_Module_GetAssembly(ILExecThread *_thread, ILObject *_this)
  {
!       ILProgramItem *item;
!       ILImage *image;
!       ILAssembly *assembly;
!       const char *name;
! 
!       item = (ILProgramItem *)_ILClrFromObject(_thread, _this);
!       image = ((item != 0) ? ILProgramItem_Image(item) : 0);
!       if (image)
!       {
!               assembly = ILAssembly_FromToken(image, (IL_META_TOKEN_ASSEMBLY 
| 1));
!               if (ILImageType(image) == IL_IMAGETYPE_BUILDING)
!               {
!                       name = "System.Reflection.Emit.AssemblyBuilder";
!               }
!               else
!               {
!                       name = "System.Reflection.Assembly";
!               }
!               return _ILClrToObject(_thread, assembly, name);
!       }
        return 0;
  }