[Dotgnu-pnet-commits] pnet/engine int_proto.h, 1.86, 1.87 int_table.c, 1.89, 1.90 lib_object.c, 1.12, 1.13

[Rhys Weatherley <address@hidden>]

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

Modified Files:
        int_proto.h int_table.c lib_object.c 
Log Message:


Add the "Activator.CreateValueTypeInstance" internalcall.


Index: lib_object.c
===================================================================
RCS file: /cvsroot/dotgnu-pnet/pnet/engine/lib_object.c,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** lib_object.c        2 Jun 2003 06:55:16 -0000       1.12
--- lib_object.c        7 Oct 2003 21:25:57 -0000       1.13
***************
*** 207,210 ****
--- 207,224 ----
  }
  
+ ILObject *_IL_Activator_CreateValueTypeInstance
+                       (ILExecThread *_thread, ILObject *type)
+ {
+       ILClass *classInfo = _ILGetClrClass(_thread, type);
+       if(classInfo)
+       {
+               return _ILEngineAllocObject(_thread, classInfo);
+       }
+       else
+       {
+               return 0;
+       }
+ }
+ 
  #ifdef        __cplusplus
  };

Index: int_proto.h
===================================================================
RCS file: /cvsroot/dotgnu-pnet/pnet/engine/int_proto.h,v
retrieving revision 1.86
retrieving revision 1.87
diff -C2 -d -r1.86 -r1.87
*** int_proto.h 30 Sep 2003 00:36:33 -0000      1.86
--- int_proto.h 7 Oct 2003 21:25:57 -0000       1.87
***************
*** 15,18 ****
--- 15,20 ----
  extern ILObject * _IL_Enum_EnumLongToObject(ILExecThread * _thread, ILObject 
* enumType, ILInt64 value);
  
+ extern ILObject * _IL_Activator_CreateValueTypeInstance(ILExecThread * 
_thread, ILObject * type);
+ 
  extern System_Array * _IL_AppDomain_GetAssemblies(ILExecThread * _thread, 
ILObject * _this);
  

Index: int_table.c
===================================================================
RCS file: /cvsroot/dotgnu-pnet/pnet/engine/int_table.c,v
retrieving revision 1.89
retrieving revision 1.90
diff -C2 -d -r1.89 -r1.90
*** int_table.c 30 Sep 2003 00:36:33 -0000      1.89
--- int_table.c 7 Oct 2003 21:25:57 -0000       1.90
***************
*** 90,93 ****
--- 90,101 ----
  #endif
  
+ #ifndef _IL_Activator_suppressed
+ 
+ IL_METHOD_BEGIN(Activator_Methods)
+       IL_METHOD("CreateValueTypeInstance", "(oSystem.Type;)oSystem.Object;", 
_IL_Activator_CreateValueTypeInstance, marshal_ppp)
+ IL_METHOD_END
+ 
+ #endif
+ 
  #ifndef _IL_AppDomain_suppressed
  
***************
*** 2875,2878 ****
--- 2883,2889 ----
  } InternalClassInfo;
  static InternalClassInfo const internalClassTable[] = {
+ #ifndef _IL_Activator_suppressed
+       {"Activator", "System", Activator_Methods},
+ #endif
  #ifndef _IL_AppDomain_suppressed
        {"AppDomain", "System", AppDomain_Methods},