[Dotgnu-pnet-commits] CVS: pnet/engine int_proto.h,1.60,1.61 int_table.c,1.62,1.63 lib_reflect.c,1.32,1.33

[Rhys Weatherley <address@hidden>]

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

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


Add the "Assembly.GetImageRuntimeVersion" internalcall.


Index: int_proto.h
===================================================================
RCS file: /cvsroot/dotgnu-pnet/pnet/engine/int_proto.h,v
retrieving revision 1.60
retrieving revision 1.61
diff -C2 -r1.60 -r1.61
*** int_proto.h 24 Apr 2003 06:00:43 -0000      1.60
--- int_proto.h 25 Apr 2003 01:22:00 -0000      1.61
***************
*** 295,298 ****
--- 295,299 ----
  extern ILObject * _IL_Assembly_LoadFromName(ILExecThread * _thread, ILString 
* _p1, ILInt32 * error, ILObject * _p3);
  extern void _IL_Assembly_GetEntryPoint(ILExecThread * _thread, void * 
_result, ILObject * _this);
+ extern ILString * _IL_Assembly_GetImageRuntimeVersion(ILExecThread * _thread, 
ILObject * _this);
  
  extern ILObject * _IL_MethodBase_GetMethodFromHandle(ILExecThread * _thread, 
void * _p1);

Index: int_table.c
===================================================================
RCS file: /cvsroot/dotgnu-pnet/pnet/engine/int_table.c,v
retrieving revision 1.62
retrieving revision 1.63
diff -C2 -r1.62 -r1.63
*** int_table.c 24 Apr 2003 06:00:43 -0000      1.62
--- int_table.c 25 Apr 2003 01:22:00 -0000      1.63
***************
*** 1552,1555 ****
--- 1552,1556 ----
        IL_METHOD("LoadFromName", 
"(oSystem.String;&ioSystem.Reflection.Assembly;)oSystem.Reflection.Assembly;", 
_IL_Assembly_LoadFromName, marshal_ppppp)
        IL_METHOD("GetEntryPoint", "(T)vSystem.RuntimeMethodHandle;", 
_IL_Assembly_GetEntryPoint, marshal_vppp)
+       IL_METHOD("GetImageRuntimeVersion", "(T)oSystem.String;", 
_IL_Assembly_GetImageRuntimeVersion, marshal_ppp)
  IL_METHOD_END
  

Index: lib_reflect.c
===================================================================
RCS file: /cvsroot/dotgnu-pnet/pnet/engine/lib_reflect.c,v
retrieving revision 1.32
retrieving revision 1.33
diff -C2 -r1.32 -r1.33
*** lib_reflect.c       29 Mar 2003 01:39:22 -0000      1.32
--- lib_reflect.c       25 Apr 2003 01:22:00 -0000      1.33
***************
*** 1313,1316 ****
--- 1313,1341 ----
  }
  
+ ILString *_IL_Assembly_GetImageRuntimeVersion(ILExecThread *_thread,
+                                                                               
          ILObject *_this)
+ {
+       ILProgramItem *item = (ILProgramItem *)_ILClrFromObject(_thread, _this);
+       ILImage *image = ((item != 0) ? ILProgramItem_Image(item) : 0);
+       const char *version;
+       int length;
+       if(image)
+       {
+               version = ILImageMetaRuntimeVersion(image, &length);
+               if(version)
+               {
+                       return ILStringCreateLen(_thread, version, length);
+               }
+               else
+               {
+                       return 0;
+               }
+       }
+       else
+       {
+               return 0;
+       }
+ }
+ 
  #ifdef IL_CONFIG_REFLECTION