[Dotgnu-pnet-commits] CVS: pnet/engine int_proto.h,1.31,1.32 int_table.c,1.34,1.35 lib_task.c,1.2,1.3

[Rhys Weatherley <address@hidden>]

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

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


Add the "TaskMethods.GetRuntimeVerison" internalcall.


Index: int_proto.h
===================================================================
RCS file: /cvsroot/dotgnu-pnet/pnet/engine/int_proto.h,v
retrieving revision 1.31
retrieving revision 1.32
diff -C2 -r1.31 -r1.32
*** int_proto.h 21 Nov 2002 21:24:56 -0000      1.31
--- int_proto.h 28 Nov 2002 04:57:32 -0000      1.32
***************
*** 64,67 ****
--- 64,68 ----
  extern System_String * _IL_String_Concat_StringString(ILExecThread * _thread, 
System_String * str1, System_String * str2);
  extern System_String * _IL_String_ctor_ci(ILExecThread * _thread, ILUInt16 c, 
ILInt32 count);
+ extern System_String * _IL_String_ctor_ac(ILExecThread * _thread, 
System_Array * value);
  extern ILBool _IL_String_Equals(ILExecThread * _thread, System_String * a, 
System_String * b);
  extern ILUInt16 _IL_String_GetChar(ILExecThread * _thread, System_String * 
_this, ILInt32 posn);
***************
*** 71,75 ****
  extern System_String * _IL_String_Trim(ILExecThread * _thread, System_String 
* _this, System_Array * trimChars, ILInt32 trimFlags);
  extern System_String * _IL_String_ctor_acii(ILExecThread * _thread, 
System_Array * value, ILInt32 startIndex, ILInt32 length);
- extern System_String * _IL_String_ctor_ac(ILExecThread * _thread, 
System_Array * value);
  extern System_String * _IL_String_ctor_pcii(ILExecThread * _thread, ILUInt16 
* value, ILInt32 startIndex, ILInt32 length);
  extern System_String * _IL_String_ctor_pc(ILExecThread * _thread, ILUInt16 * 
value);
--- 72,75 ----
***************
*** 85,92 ****
  extern System_String * _IL_String_Concat_StringStringString(ILExecThread * 
_thread, System_String * str1, System_String * str2, System_String * str3);
  extern void _IL_String_CopyToChecked(ILExecThread * _thread, System_String * 
_this, ILInt32 sourceIndex, System_Array * destination, ILInt32 
destinationIndex, ILInt32 count);
  extern ILInt32 _IL_String_IndexOf(ILExecThread * _thread, System_String * 
_this, ILUInt16 value, ILInt32 startIndex, ILInt32 count);
  extern ILInt32 _IL_String_GetHashCode(ILExecThread * _thread, System_String * 
_this);
  extern ILInt32 _IL_String_FindInRange(ILExecThread * _thread, System_String * 
_this, ILInt32 srcFirst, ILInt32 srcLast, ILInt32 step, System_String * dest);
- extern ILInt32 _IL_String_IndexOfAny(ILExecThread * _thread, System_String * 
_this, System_Array * anyOf, ILInt32 startIndex, ILInt32 count);
  extern System_String * _IL_String_Intern(ILExecThread * _thread, 
System_String * str);
  extern System_String * _IL_String_IsInterned(ILExecThread * _thread, 
System_String * str);
--- 85,92 ----
  extern System_String * _IL_String_Concat_StringStringString(ILExecThread * 
_thread, System_String * str1, System_String * str2, System_String * str3);
  extern void _IL_String_CopyToChecked(ILExecThread * _thread, System_String * 
_this, ILInt32 sourceIndex, System_Array * destination, ILInt32 
destinationIndex, ILInt32 count);
+ extern ILInt32 _IL_String_IndexOfAny(ILExecThread * _thread, System_String * 
_this, System_Array * anyOf, ILInt32 startIndex, ILInt32 count);
  extern ILInt32 _IL_String_IndexOf(ILExecThread * _thread, System_String * 
_this, ILUInt16 value, ILInt32 startIndex, ILInt32 count);
  extern ILInt32 _IL_String_GetHashCode(ILExecThread * _thread, System_String * 
_this);
  extern ILInt32 _IL_String_FindInRange(ILExecThread * _thread, System_String * 
_this, ILInt32 srcFirst, ILInt32 srcLast, ILInt32 step, System_String * dest);
  extern System_String * _IL_String_Intern(ILExecThread * _thread, 
System_String * str);
  extern System_String * _IL_String_IsInterned(ILExecThread * _thread, 
System_String * str);
***************
*** 358,363 ****
  extern ILNativeInt _IL_ModuleBuilder_ClrModuleCreate(ILExecThread * _thread, 
ILNativeInt assembly, ILString * name);
  
- extern ILString * _IL_NumberFormatter_FormatReal(ILExecThread * _thread, 
ILDouble d, ILString * format, ILInt32 buflen);
- 
  extern ILInt32 _IL_CultureInfo_InternalCultureID(ILExecThread * _thread);
  extern ILString * _IL_CultureInfo_InternalCultureName(ILExecThread * _thread);
--- 358,361 ----
***************
*** 404,407 ****
--- 402,406 ----
  extern void _IL_TaskMethods_Exit(ILExecThread * _thread, ILInt32 exitCode);
  extern void _IL_TaskMethods_SetExitCode(ILExecThread * _thread, ILInt32 
exitCode);
+ extern ILString * _IL_TaskMethods_GetRuntimeVersion(ILExecThread * _thread);
  extern System_Array * _IL_TaskMethods_GetCommandLineArgs(ILExecThread * 
_thread);
  extern ILString * _IL_TaskMethods_GetEnvironmentVariable(ILExecThread * 
_thread, ILString * variable);
***************
*** 436,439 ****
--- 435,442 ----
  extern void _IL_Security_SetSecurityManager(ILExecThread * _thread, ILObject 
* mgr);
  
+ extern ILNativeInt _IL_RegexpMethods_CompileInternal(ILExecThread * _thread, 
ILString * pattern, ILInt32 flags);
+ extern ILInt32 _IL_RegexpMethods_ExecInternal(ILExecThread * _thread, 
ILNativeInt compiled, ILString * input, ILInt32 flags);
+ extern void _IL_RegexpMethods_FreeInternal(ILExecThread * _thread, 
ILNativeInt compiled);
+ 
  extern ILBool _IL_CryptoMethods_IsSemiWeakKey(ILExecThread * _thread, 
System_Array * key, ILInt32 offset);
  extern ILBool _IL_CryptoMethods_IsWeakKey(ILExecThread * _thread, 
System_Array * key, ILInt32 offset);
***************
*** 442,447 ****
  extern void _IL_CryptoMethods_SymmetricFree(ILExecThread * _thread, 
ILNativeInt state);
  extern ILNativeInt _IL_CryptoMethods_HashNew(ILExecThread * _thread, ILInt32 
algorithm);
- extern void _IL_CryptoMethods_HashFree(ILExecThread * _thread, ILNativeInt 
state);
  extern void _IL_CryptoMethods_HashReset(ILExecThread * _thread, ILNativeInt 
state);
  extern void _IL_CryptoMethods_HashUpdate(ILExecThread * _thread, ILNativeInt 
state, System_Array * buffer, ILInt32 offset, ILInt32 count);
  extern void _IL_CryptoMethods_HashFinal(ILExecThread * _thread, ILNativeInt 
state, System_Array * hash);
--- 445,450 ----
  extern void _IL_CryptoMethods_SymmetricFree(ILExecThread * _thread, 
ILNativeInt state);
  extern ILNativeInt _IL_CryptoMethods_HashNew(ILExecThread * _thread, ILInt32 
algorithm);
  extern void _IL_CryptoMethods_HashReset(ILExecThread * _thread, ILNativeInt 
state);
+ extern void _IL_CryptoMethods_HashFree(ILExecThread * _thread, ILNativeInt 
state);
  extern void _IL_CryptoMethods_HashUpdate(ILExecThread * _thread, ILNativeInt 
state, System_Array * buffer, ILInt32 offset, ILInt32 count);
  extern void _IL_CryptoMethods_HashFinal(ILExecThread * _thread, ILNativeInt 
state, System_Array * hash);
***************
*** 462,475 ****
  extern void _IL_CryptoMethods_StoreKey(ILExecThread * _thread, ILInt32 
algorithm, ILString * name, System_Array * key);
  
- 
- extern ILNativeInt _IL_RegexpMethods_CompileInternal(ILExecThread * _thread, 
-                                                                               
ILString * pattern, ILInt32 flags);
- 
- extern ILInt32 _IL_RegexpMethods_ExecInternal(ILExecThread * _thread,
-                                               ILNativeInt compiled, ILString 
* input, ILInt32 flags);
- 
- void _IL_RegexpMethods_FreeInternal(ILExecThread * _thread, 
-                                                                               
        ILNativeInt compiled);
- 
  extern ILBool _IL_SocketMethods_Create(ILExecThread * _thread, ILInt32 af, 
ILInt32 st, ILInt32 pt, ILNativeInt * handle);
  extern ILBool _IL_SocketMethods_Bind(ILExecThread * _thread, ILNativeInt 
handle, ILInt32 af, ILInt64 address, ILInt32 port);
--- 465,468 ----
***************
*** 494,498 ****
  extern ILInt16 _IL_IPAddress_NetworkToHostOrder_s(ILExecThread * _thread, 
ILInt16 network);
  
- extern ILBool _IL_Dns_InternalGetHostByAddr(ILExecThread * _thread, ILInt64 
address, ILString * * h_name, System_Array * * h_aliases, System_Array * * 
h_addr_list);
  extern ILBool _IL_Dns_InternalGetHostByName(ILExecThread * _thread, ILString 
* host, ILString * * h_name, System_Array * * h_aliases, System_Array * * 
h_addr_list);
  
--- 487,491 ----
  extern ILInt16 _IL_IPAddress_NetworkToHostOrder_s(ILExecThread * _thread, 
ILInt16 network);
  
  extern ILBool _IL_Dns_InternalGetHostByName(ILExecThread * _thread, ILString 
* host, ILString * * h_name, System_Array * * h_aliases, System_Array * * 
h_addr_list);
+ extern ILBool _IL_Dns_InternalGetHostByAddr(ILExecThread * _thread, ILInt64 
address, ILString * * h_name, System_Array * * h_aliases, System_Array * * 
h_addr_list);
  

Index: int_table.c
===================================================================
RCS file: /cvsroot/dotgnu-pnet/pnet/engine/int_table.c,v
retrieving revision 1.34
retrieving revision 1.35
diff -C2 -r1.34 -r1.35
*** int_table.c 22 Nov 2002 08:38:07 -0000      1.34
--- int_table.c 28 Nov 2002 04:57:32 -0000      1.35
***************
*** 439,445 ****
  #if !defined(HAVE_LIBFFI)
  
! static void marshal_ippSii(void (*fn)(), void *rvalue, void **avalue)
  {
!       *((ILNativeInt *)rvalue) = (*(ILInt32 (*)(void *, void *, ILUInt16, 
ILInt32, ILInt32))fn)(*((void * *)(avalue[0])), *((void * *)(avalue[1])), 
*((ILUInt16 *)(avalue[2])), *((ILInt32 *)(avalue[3])), *((ILInt32 
*)(avalue[4])));
  }
  
--- 439,445 ----
  #if !defined(HAVE_LIBFFI)
  
! static void marshal_ipppii(void (*fn)(), void *rvalue, void **avalue)
  {
!       *((ILNativeInt *)rvalue) = (*(ILInt32 (*)(void *, void *, void *, 
ILInt32, ILInt32))fn)(*((void * *)(avalue[0])), *((void * *)(avalue[1])), 
*((void * *)(avalue[2])), *((ILInt32 *)(avalue[3])), *((ILInt32 *)(avalue[4])));
  }
  
***************
*** 448,454 ****
  #if !defined(HAVE_LIBFFI)
  
! static void marshal_ippiiip(void (*fn)(), void *rvalue, void **avalue)
  {
!       *((ILNativeInt *)rvalue) = (*(ILInt32 (*)(void *, void *, ILInt32, 
ILInt32, ILInt32, void *))fn)(*((void * *)(avalue[0])), *((void * 
*)(avalue[1])), *((ILInt32 *)(avalue[2])), *((ILInt32 *)(avalue[3])), 
*((ILInt32 *)(avalue[4])), *((void * *)(avalue[5])));
  }
  
--- 448,454 ----
  #if !defined(HAVE_LIBFFI)
  
! static void marshal_ippSii(void (*fn)(), void *rvalue, void **avalue)
  {
!       *((ILNativeInt *)rvalue) = (*(ILInt32 (*)(void *, void *, ILUInt16, 
ILInt32, ILInt32))fn)(*((void * *)(avalue[0])), *((void * *)(avalue[1])), 
*((ILUInt16 *)(avalue[2])), *((ILInt32 *)(avalue[3])), *((ILInt32 
*)(avalue[4])));
  }
  
***************
*** 457,463 ****
  #if !defined(HAVE_LIBFFI)
  
! static void marshal_ipppii(void (*fn)(), void *rvalue, void **avalue)
  {
!       *((ILNativeInt *)rvalue) = (*(ILInt32 (*)(void *, void *, void *, 
ILInt32, ILInt32))fn)(*((void * *)(avalue[0])), *((void * *)(avalue[1])), 
*((void * *)(avalue[2])), *((ILInt32 *)(avalue[3])), *((ILInt32 *)(avalue[4])));
  }
  
--- 457,463 ----
  #if !defined(HAVE_LIBFFI)
  
! static void marshal_ippiiip(void (*fn)(), void *rvalue, void **avalue)
  {
!       *((ILNativeInt *)rvalue) = (*(ILInt32 (*)(void *, void *, ILInt32, 
ILInt32, ILInt32, void *))fn)(*((void * *)(avalue[0])), *((void * 
*)(avalue[1])), *((ILInt32 *)(avalue[2])), *((ILInt32 *)(avalue[3])), 
*((ILInt32 *)(avalue[4])), *((void * *)(avalue[5])));
  }
  
***************
*** 496,499 ****
--- 496,500 ----
        IL_METHOD("Concat", "(oSystem.String;oSystem.String;)oSystem.String;", 
_IL_String_Concat_StringString, marshal_pppp)
        IL_CONSTRUCTOR(".ctor", "(Tci)V", 0, 0, _IL_String_ctor_ci, 
marshal_ppSi)
+       IL_CONSTRUCTOR(".ctor", "(T[c)V", 0, 0, _IL_String_ctor_ac, marshal_ppp)
        IL_METHOD("Equals", "(oSystem.String;oSystem.String;)Z", 
_IL_String_Equals, marshal_bppp)
        IL_METHOD("GetChar", "(Ti)c", _IL_String_GetChar, marshal_Sppi)
***************
*** 503,507 ****
        IL_METHOD("Trim", "(T[ci)oSystem.String;", _IL_String_Trim, 
marshal_ppppi)
        IL_CONSTRUCTOR(".ctor", "(T[cii)V", 0, 0, _IL_String_ctor_acii, 
marshal_pppii)
-       IL_CONSTRUCTOR(".ctor", "(T[c)V", 0, 0, _IL_String_ctor_ac, marshal_ppp)
        IL_CONSTRUCTOR(".ctor", "(T*cii)V", 0, 0, _IL_String_ctor_pcii, 
marshal_pppii)
        IL_CONSTRUCTOR(".ctor", "(T*c)V", 0, 0, _IL_String_ctor_pc, marshal_ppp)
--- 504,507 ----
***************
*** 517,524 ****
        IL_METHOD("Concat", 
"(oSystem.String;oSystem.String;oSystem.String;)oSystem.String;", 
_IL_String_Concat_StringStringString, marshal_ppppp)
        IL_METHOD("CopyToChecked", "(Ti[cii)V", _IL_String_CopyToChecked, 
marshal_vppipii)
        IL_METHOD("IndexOf", "(Tcii)i", _IL_String_IndexOf, marshal_ippSii)
        IL_METHOD("GetHashCode", "(T)i", _IL_String_GetHashCode, marshal_ipp)
        IL_METHOD("FindInRange", "(TiiioSystem.String;)i", 
_IL_String_FindInRange, marshal_ippiiip)
-       IL_METHOD("IndexOfAny", "(T[cii)i", _IL_String_IndexOfAny, 
marshal_ipppii)
        IL_METHOD("Intern", "(oSystem.String;)oSystem.String;", 
_IL_String_Intern, marshal_ppp)
        IL_METHOD("IsInterned", "(oSystem.String;)oSystem.String;", 
_IL_String_IsInterned, marshal_ppp)
--- 517,524 ----
        IL_METHOD("Concat", 
"(oSystem.String;oSystem.String;oSystem.String;)oSystem.String;", 
_IL_String_Concat_StringStringString, marshal_ppppp)
        IL_METHOD("CopyToChecked", "(Ti[cii)V", _IL_String_CopyToChecked, 
marshal_vppipii)
+       IL_METHOD("IndexOfAny", "(T[cii)i", _IL_String_IndexOfAny, 
marshal_ipppii)
        IL_METHOD("IndexOf", "(Tcii)i", _IL_String_IndexOf, marshal_ippSii)
        IL_METHOD("GetHashCode", "(T)i", _IL_String_GetHashCode, marshal_ipp)
        IL_METHOD("FindInRange", "(TiiioSystem.String;)i", 
_IL_String_FindInRange, marshal_ippiiip)
        IL_METHOD("Intern", "(oSystem.String;)oSystem.String;", 
_IL_String_Intern, marshal_ppp)
        IL_METHOD("IsInterned", "(oSystem.String;)oSystem.String;", 
_IL_String_IsInterned, marshal_ppp)
***************
*** 1807,1827 ****
  #endif
  
- #if !defined(HAVE_LIBFFI)
- 
- static void marshal_ppdpi(void (*fn)(), void *rvalue, void **avalue)
- {
-       *((void * *)rvalue) = (*(void * (*)(void *, ILDouble, void *, 
ILInt32))fn)(*((void * *)(avalue[0])), *((ILDouble *)(avalue[1])), *((void * 
*)(avalue[2])), *((ILInt32 *)(avalue[3])));
- }
- 
- #endif
- 
- #ifndef _IL_NumberFormatter_suppressed
- 
- IL_METHOD_BEGIN(NumberFormatter_Methods)
-       IL_METHOD("FormatReal", "(doSystem.String;i)oSystem.String;", 
_IL_NumberFormatter_FormatReal, marshal_ppdpi)
- IL_METHOD_END
- 
- #endif
- 
  #ifndef _IL_CultureInfo_suppressed
  
--- 1807,1810 ----
***************
*** 1970,1973 ****
--- 1953,1957 ----
        IL_METHOD("Exit", "(i)V", _IL_TaskMethods_Exit, marshal_vpi)
        IL_METHOD("SetExitCode", "(i)V", _IL_TaskMethods_SetExitCode, 
marshal_vpi)
+       IL_METHOD("GetRuntimeVersion", "()oSystem.String;", 
_IL_TaskMethods_GetRuntimeVersion, marshal_pp)
        IL_METHOD("GetCommandLineArgs", "()[oSystem.String;", 
_IL_TaskMethods_GetCommandLineArgs, marshal_pp)
        IL_METHOD("GetEnvironmentVariable", "(oSystem.String;)oSystem.String;", 
_IL_TaskMethods_GetEnvironmentVariable, marshal_ppp)
***************
*** 2112,2115 ****
--- 2096,2118 ----
  #if !defined(HAVE_LIBFFI)
  
+ static void marshal_ipjpi(void (*fn)(), void *rvalue, void **avalue)
+ {
+       *((ILNativeInt *)rvalue) = (*(ILInt32 (*)(void *, ILNativeUInt, void *, 
ILInt32))fn)(*((void * *)(avalue[0])), *((ILNativeUInt *)(avalue[1])), *((void 
* *)(avalue[2])), *((ILInt32 *)(avalue[3])));
+ }
+ 
+ #endif
+ 
+ #ifndef _IL_RegexpMethods_suppressed
+ 
+ IL_METHOD_BEGIN(RegexpMethods_Methods)
+       IL_METHOD("CompileInternal", "(oSystem.String;i)j", 
_IL_RegexpMethods_CompileInternal, marshal_jppi)
+       IL_METHOD("ExecInternal", "(joSystem.String;i)i", 
_IL_RegexpMethods_ExecInternal, marshal_ipjpi)
+       IL_METHOD("FreeInternal", "(j)V", _IL_RegexpMethods_FreeInternal, 
marshal_vpj)
+ IL_METHOD_END
+ 
+ #endif
+ 
+ #if !defined(HAVE_LIBFFI)
+ 
  static void marshal_jpip(void (*fn)(), void *rvalue, void **avalue)
  {
***************
*** 2164,2169 ****
        IL_METHOD("SymmetricFree", "(j)V", _IL_CryptoMethods_SymmetricFree, 
marshal_vpj)
        IL_METHOD("HashNew", "(i)j", _IL_CryptoMethods_HashNew, marshal_jpi)
-       IL_METHOD("HashFree", "(j)V", _IL_CryptoMethods_HashFree, marshal_vpj)
        IL_METHOD("HashReset", "(j)V", _IL_CryptoMethods_HashReset, marshal_vpj)
        IL_METHOD("HashUpdate", "(j[Bii)V", _IL_CryptoMethods_HashUpdate, 
marshal_vpjpii)
        IL_METHOD("HashFinal", "(j[B)V", _IL_CryptoMethods_HashFinal, 
marshal_vpjp)
--- 2167,2172 ----
        IL_METHOD("SymmetricFree", "(j)V", _IL_CryptoMethods_SymmetricFree, 
marshal_vpj)
        IL_METHOD("HashNew", "(i)j", _IL_CryptoMethods_HashNew, marshal_jpi)
        IL_METHOD("HashReset", "(j)V", _IL_CryptoMethods_HashReset, marshal_vpj)
+       IL_METHOD("HashFree", "(j)V", _IL_CryptoMethods_HashFree, marshal_vpj)
        IL_METHOD("HashUpdate", "(j[Bii)V", _IL_CryptoMethods_HashUpdate, 
marshal_vpjpii)
        IL_METHOD("HashFinal", "(j[B)V", _IL_CryptoMethods_HashFinal, 
marshal_vpjp)
***************
*** 2189,2212 ****
  #if !defined(HAVE_LIBFFI)
  
- static void marshal_ipjpi(void (*fn)(), void *rvalue, void **avalue)
- {
-       *((ILNativeInt *)rvalue) = (*(ILInt32 (*)(void *, ILNativeUInt, void *, 
ILInt32))fn)(*((void * *)(avalue[0])), *((ILNativeUInt *)(avalue[1])), *((void 
* *)(avalue[2])), *((ILInt32 *)(avalue[3])));
- }
- 
- #endif
- 
- #ifndef _IL_RegexpMethods_suppressed
- 
- IL_METHOD_BEGIN(RegexpMethods_Methods)
-       IL_METHOD("CompileInternal", "(oSystem.String;i)j", 
_IL_RegexpMethods_CompileInternal, marshal_jppi)
-       IL_METHOD("ExecInternal", "(joSystem.String;i)i", 
_IL_RegexpMethods_ExecInternal, marshal_ipjpi)
-       IL_METHOD("FreeInternal", "(j)V", _IL_RegexpMethods_FreeInternal, 
marshal_vpj)
- IL_METHOD_END
- 
- #endif
-  
- 
- #if !defined(HAVE_LIBFFI)
- 
  static void marshal_bpiiip(void (*fn)(), void *rvalue, void **avalue)
  {
--- 2192,2195 ----
***************
*** 2324,2330 ****
  #if !defined(HAVE_LIBFFI)
  
! static void marshal_bplppp(void (*fn)(), void *rvalue, void **avalue)
  {
!       *((ILNativeInt *)rvalue) = (*(ILInt8 (*)(void *, ILInt64, void *, void 
*, void *))fn)(*((void * *)(avalue[0])), *((ILInt64 *)(avalue[1])), *((void * 
*)(avalue[2])), *((void * *)(avalue[3])), *((void * *)(avalue[4])));
  }
  
--- 2307,2313 ----
  #if !defined(HAVE_LIBFFI)
  
! static void marshal_bppppp(void (*fn)(), void *rvalue, void **avalue)
  {
!       *((ILNativeInt *)rvalue) = (*(ILInt8 (*)(void *, void *, void *, void 
*, void *))fn)(*((void * *)(avalue[0])), *((void * *)(avalue[1])), *((void * 
*)(avalue[2])), *((void * *)(avalue[3])), *((void * *)(avalue[4])));
  }
  
***************
*** 2333,2339 ****
  #if !defined(HAVE_LIBFFI)
  
! static void marshal_bppppp(void (*fn)(), void *rvalue, void **avalue)
  {
!       *((ILNativeInt *)rvalue) = (*(ILInt8 (*)(void *, void *, void *, void 
*, void *))fn)(*((void * *)(avalue[0])), *((void * *)(avalue[1])), *((void * 
*)(avalue[2])), *((void * *)(avalue[3])), *((void * *)(avalue[4])));
  }
  
--- 2316,2322 ----
  #if !defined(HAVE_LIBFFI)
  
! static void marshal_bplppp(void (*fn)(), void *rvalue, void **avalue)
  {
!       *((ILNativeInt *)rvalue) = (*(ILInt8 (*)(void *, ILInt64, void *, void 
*, void *))fn)(*((void * *)(avalue[0])), *((ILInt64 *)(avalue[1])), *((void * 
*)(avalue[2])), *((void * *)(avalue[3])), *((void * *)(avalue[4])));
  }
  
***************
*** 2343,2348 ****
  
  IL_METHOD_BEGIN(Dns_Methods)
-       IL_METHOD("InternalGetHostByAddr", 
"(l&oSystem.String;&[oSystem.String;&[l)Z", _IL_Dns_InternalGetHostByAddr, 
marshal_bplppp)
        IL_METHOD("InternalGetHostByName", 
"(oSystem.String;&oSystem.String;&[oSystem.String;&[l)Z", 
_IL_Dns_InternalGetHostByName, marshal_bppppp)
  IL_METHOD_END
  
--- 2326,2331 ----
  
  IL_METHOD_BEGIN(Dns_Methods)
        IL_METHOD("InternalGetHostByName", 
"(oSystem.String;&oSystem.String;&[oSystem.String;&[l)Z", 
_IL_Dns_InternalGetHostByName, marshal_bppppp)
+       IL_METHOD("InternalGetHostByAddr", 
"(l&oSystem.String;&[oSystem.String;&[l)Z", _IL_Dns_InternalGetHostByAddr, 
marshal_bplppp)
  IL_METHOD_END
  
***************
*** 2476,2482 ****
  #ifndef _IL_Mutex_suppressed
        {"Mutex", "System.Threading", Mutex_Methods},
- #endif
- #ifndef _IL_NumberFormatter_suppressed
-       {"NumberFormatter", "System.Private", NumberFormatter_Methods},
  #endif
  #ifndef _IL_Object_suppressed
--- 2459,2462 ----

Index: lib_task.c
===================================================================
RCS file: /cvsroot/dotgnu-pnet/pnet/engine/lib_task.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** lib_task.c  14 Jun 2002 05:24:48 -0000      1.2
--- lib_task.c  28 Nov 2002 04:57:32 -0000      1.3
***************
*** 143,146 ****
--- 143,154 ----
  }
  
+ /*
+  * public static String GetRuntimeVersion();
+  */
+ ILString *_IL_TaskMethods_GetRuntimeVersion(ILExecThread *thread)
+ {
+       return ILStringCreate(thread, VERSION);
+ }
+ 
  #ifdef        __cplusplus
  };