[Dotgnu-pnet-commits] CVS: pnet/engine int_proto.h,1.50,1.51 int_table.c,1.52,1.53 lib_emit.c,1.6,1.7

[Rhys Weatherley <address@hidden>]

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

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


Stub out new Reflection.Emit internalcalls.


Index: int_proto.h
===================================================================
RCS file: /cvsroot/dotgnu-pnet/pnet/engine/int_proto.h,v
retrieving revision 1.50
retrieving revision 1.51
diff -C2 -r1.50 -r1.51
*** int_proto.h 22 Mar 2003 05:13:43 -0000      1.50
--- int_proto.h 28 Mar 2003 01:05:33 -0000      1.51
***************
*** 367,371 ****
  extern ILUInt8 * _IL_ClrResourceStream_ResourceGetAddress(ILExecThread * 
_thread, ILNativeInt _p1, ILInt64 _p2);
  
! extern ILNativeInt _IL_TypeBuilder_ClrTypeCreate(ILExecThread * _thread, 
ILNativeInt _p1, ILString * _p2, ILString * _p3, ILInt32 _p4, void * _p5);
  extern void _IL_TypeBuilder_ClrTypeSetPackingSize(ILExecThread * _thread, 
ILNativeInt _p1, ILInt32 _p2);
  extern void _IL_TypeBuilder_ClrTypeSetClassSize(ILExecThread * _thread, 
ILNativeInt _p1, ILInt32 _p2);
--- 367,371 ----
  extern ILUInt8 * _IL_ClrResourceStream_ResourceGetAddress(ILExecThread * 
_thread, ILNativeInt _p1, ILInt64 _p2);
  
! extern ILNativeInt _IL_TypeBuilder_ClrTypeCreate(ILExecThread * _thread, 
ILNativeInt _p1, ILNativeInt _p2, ILString * _p3, ILString * _p4, ILInt32 _p5, 
void * _p6);
  extern void _IL_TypeBuilder_ClrTypeSetPackingSize(ILExecThread * _thread, 
ILNativeInt _p1, ILInt32 _p2);
  extern void _IL_TypeBuilder_ClrTypeSetClassSize(ILExecThread * _thread, 
ILNativeInt _p1, ILInt32 _p2);
***************
*** 373,376 ****
--- 373,377 ----
  extern ILInt32 _IL_TypeBuilder_ClrTypeGetPackingSize(ILExecThread * _thread, 
ILNativeInt _p1);
  extern ILInt32 _IL_TypeBuilder_ClrTypeGetClassSize(ILExecThread * _thread, 
ILNativeInt _p1);
+ extern void _IL_TypeBuilder_ClrTypeAddOverride(ILExecThread * _thread, 
ILNativeInt _p1, ILInt32 _p2, ILInt32 _p3);
  extern void _IL_TypeBuilder_ClrTypeSetParent(ILExecThread * _thread, 
ILNativeInt _p1, void * _p2);
  extern ILInt32 _IL_TypeBuilder_ClrTypeImport(ILExecThread * _thread, 
ILNativeInt _p1, ILNativeInt _p2);
***************
*** 386,397 ****
--- 387,403 ----
  
  extern ILNativeInt _IL_FieldBuilder_ClrFieldCreate(ILExecThread * _thread, 
ILNativeInt _p1, ILString * _p2, ILNativeInt _p3, ILInt32 _p4);
+ extern void _IL_FieldBuilder_ClrFieldSetRVA(ILExecThread * _thread, 
ILNativeInt _p1, ILInt32 _p2);
  extern void _IL_FieldBuilder_ClrFieldSetConstant(ILExecThread * _thread, 
ILNativeInt _p1, ILObject * _p2);
  extern void _IL_FieldBuilder_ClrFieldSetMarshal(ILExecThread * _thread, 
ILNativeInt _p1, System_Array * _p2);
  extern void _IL_FieldBuilder_ClrFieldSetOffset(ILExecThread * _thread, 
ILNativeInt _p1, ILInt32 _p2);
  
+ extern void _IL_MethodBuilder_ClrMethodAddPInvoke(ILExecThread * _thread, 
ILNativeInt _p1, ILInt32 _p2, ILString * _p3, ILString * _p4);
+ extern void _IL_MethodBuilder_ClrMethodSetRVA(ILExecThread * _thread, 
ILNativeInt _p1, ILInt32 _p2);
  extern ILNativeInt _IL_MethodBuilder_ClrMethodCreate(ILExecThread * _thread, 
ILNativeInt _p1, ILString * _p2, ILInt32 _p3, ILNativeInt _p4);
  extern void _IL_MethodBuilder_ClrMethodSetImplAttrs(ILExecThread * _thread, 
ILNativeInt _p1, ILInt32 _p2);
  extern ILInt32 _IL_MethodBuilder_ClrMethodCreateVarArgRef(ILExecThread * 
_thread, ILNativeInt _p1, ILInt32 _p2, ILNativeInt _p3);
  
+ extern ILInt32 _IL_ModuleBuilder_ClrModuleWriteData(ILExecThread * _thread, 
ILNativeInt _p1, System_Array * _p2);
+ extern ILInt32 _IL_ModuleBuilder_ClrModuleWriteGap(ILExecThread * _thread, 
ILNativeInt _p1, ILInt32 _p2);
  extern ILNativeInt _IL_ModuleBuilder_ClrModuleCreate(ILExecThread * _thread, 
ILNativeInt _p1, ILString * _p2);
  extern ILInt32 _IL_ModuleBuilder_ClrModuleCreateString(ILExecThread * 
_thread, ILNativeInt _p1, ILString * _p2);
***************
*** 399,403 ****
  extern ILNativeInt _IL_PropertyBuilder_ClrPropertyCreate(ILExecThread * 
_thread, ILNativeInt _p1, ILString * _p2, ILInt32 _p3, ILNativeInt _p4);
  extern void _IL_PropertyBuilder_ClrPropertyAddSemantics(ILExecThread * 
_thread, ILNativeInt _p1, ILInt32 _p2, void * _p3);
- extern void _IL_PropertyBuilder_ClrPropertySetConstant(ILExecThread * 
_thread, ILNativeInt _p1, ILObject * _p2);
  
  extern ILNativeInt _IL_SignatureHelper_ClrSigCreateMethod(ILExecThread * 
_thread, ILNativeInt _p1, ILInt32 _p2, ILNativeInt _p3);
--- 405,408 ----
***************
*** 418,421 ****
--- 423,431 ----
  extern ILInt32 _IL_SignatureHelper_ClrSigGetHashCode(ILExecThread * _thread, 
ILNativeInt _p1);
  extern System_Array * _IL_SignatureHelper_ClrSigGetBytes(ILExecThread * 
_thread, ILNativeInt _p1, ILNativeInt _p2);
+ 
+ extern ILNativeInt _IL_ParameterBuilder_ClrParameterCreate(ILExecThread * 
_thread, ILNativeInt _p1, ILInt32 _p2, ILInt32 _p3, ILString * _p4);
+ extern ILInt32 _IL_ParameterBuilder_ClrParameterGetPosition(ILExecThread * 
_thread, ILNativeInt _p1);
+ extern ILInt32 _IL_ParameterBuilder_ClrParameterGetAttrs(ILExecThread * 
_thread, ILNativeInt _p1);
+ extern ILString * _IL_ParameterBuilder_ClrParameterGetName(ILExecThread * 
_thread, ILNativeInt _p1);
  
  extern ILInt32 _IL_CultureInfo_InternalCultureID(ILExecThread * _thread);

Index: int_table.c
===================================================================
RCS file: /cvsroot/dotgnu-pnet/pnet/engine/int_table.c,v
retrieving revision 1.52
retrieving revision 1.53
diff -C2 -r1.52 -r1.53
*** int_table.c 22 Mar 2003 05:13:43 -0000      1.52
--- int_table.c 28 Mar 2003 01:05:33 -0000      1.53
***************
*** 1830,1836 ****
  #if !defined(HAVE_LIBFFI)
  
! static void marshal_jpjppip(void (*fn)(), void *rvalue, void **avalue)
  {
!       *((ILNativeUInt *)rvalue) = (*(ILNativeUInt (*)(void *, ILNativeUInt, 
void *, void *, ILInt32, void *))fn)(*((void * *)(avalue[0])), *((ILNativeUInt 
*)(avalue[1])), *((void * *)(avalue[2])), *((void * *)(avalue[3])), *((ILInt32 
*)(avalue[4])), *((void * *)(avalue[5])));
  }
  
--- 1830,1836 ----
  #if !defined(HAVE_LIBFFI)
  
! static void marshal_jpjjppip(void (*fn)(), void *rvalue, void **avalue)
  {
!       *((ILNativeUInt *)rvalue) = (*(ILNativeUInt (*)(void *, ILNativeUInt, 
ILNativeUInt, void *, void *, ILInt32, void *))fn)(*((void * *)(avalue[0])), 
*((ILNativeUInt *)(avalue[1])), *((ILNativeUInt *)(avalue[2])), *((void * 
*)(avalue[3])), *((void * *)(avalue[4])), *((ILInt32 *)(avalue[5])), *((void * 
*)(avalue[6])));
  }
  
***************
*** 1858,1862 ****
  
  IL_METHOD_BEGIN(TypeBuilder_Methods)
!       IL_METHOD("ClrTypeCreate", 
"(joSystem.String;oSystem.String;vSystem.Reflection.TypeAttributes;vSystem.Reflection.Emit.TypeToken;)j",
 _IL_TypeBuilder_ClrTypeCreate, marshal_jpjppip)
        IL_METHOD("ClrTypeSetPackingSize", "(ji)V", 
_IL_TypeBuilder_ClrTypeSetPackingSize, marshal_vpji)
        IL_METHOD("ClrTypeSetClassSize", "(ji)V", 
_IL_TypeBuilder_ClrTypeSetClassSize, marshal_vpji)
--- 1858,1862 ----
  
  IL_METHOD_BEGIN(TypeBuilder_Methods)
!       IL_METHOD("ClrTypeCreate", 
"(jjoSystem.String;oSystem.String;vSystem.Reflection.TypeAttributes;vSystem.Reflection.Emit.TypeToken;)j",
 _IL_TypeBuilder_ClrTypeCreate, marshal_jpjjppip)
        IL_METHOD("ClrTypeSetPackingSize", "(ji)V", 
_IL_TypeBuilder_ClrTypeSetPackingSize, marshal_vpji)
        IL_METHOD("ClrTypeSetClassSize", "(ji)V", 
_IL_TypeBuilder_ClrTypeSetClassSize, marshal_vpji)
***************
*** 1864,1867 ****
--- 1864,1868 ----
        IL_METHOD("ClrTypeGetPackingSize", "(j)i", 
_IL_TypeBuilder_ClrTypeGetPackingSize, marshal_ipj)
        IL_METHOD("ClrTypeGetClassSize", "(j)i", 
_IL_TypeBuilder_ClrTypeGetClassSize, marshal_ipj)
+       IL_METHOD("ClrTypeAddOverride", "(jii)V", 
_IL_TypeBuilder_ClrTypeAddOverride, marshal_vpjii)
        IL_METHOD("ClrTypeSetParent", "(jvSystem.Reflection.Emit.TypeToken;)V", 
_IL_TypeBuilder_ClrTypeSetParent, marshal_vpjp)
        IL_METHOD("ClrTypeImport", "(jj)i", _IL_TypeBuilder_ClrTypeImport, 
marshal_ipjj)
***************
*** 1931,1934 ****
--- 1932,1936 ----
  IL_METHOD_BEGIN(FieldBuilder_Methods)
        IL_METHOD("ClrFieldCreate", 
"(joSystem.String;jvSystem.Reflection.FieldAttributes;)j", 
_IL_FieldBuilder_ClrFieldCreate, marshal_jpjpji)
+       IL_METHOD("ClrFieldSetRVA", "(ji)V", _IL_FieldBuilder_ClrFieldSetRVA, 
marshal_vpji)
        IL_METHOD("ClrFieldSetConstant", "(joSystem.Object;)V", 
_IL_FieldBuilder_ClrFieldSetConstant, marshal_vpjp)
        IL_METHOD("ClrFieldSetMarshal", "(j[B)V", 
_IL_FieldBuilder_ClrFieldSetMarshal, marshal_vpjp)
***************
*** 1940,1943 ****
--- 1942,1954 ----
  #if !defined(HAVE_LIBFFI)
  
+ static void marshal_vpjipp(void (*fn)(), void *rvalue, void **avalue)
+ {
+       (*(void (*)(void *, ILNativeUInt, ILInt32, void *, void *))fn)(*((void 
* *)(avalue[0])), *((ILNativeUInt *)(avalue[1])), *((ILInt32 *)(avalue[2])), 
*((void * *)(avalue[3])), *((void * *)(avalue[4])));
+ }
+ 
+ #endif
+ 
+ #if !defined(HAVE_LIBFFI)
+ 
  static void marshal_jpjpij(void (*fn)(), void *rvalue, void **avalue)
  {
***************
*** 1959,1962 ****
--- 1970,1975 ----
  
  IL_METHOD_BEGIN(MethodBuilder_Methods)
+       IL_METHOD("ClrMethodAddPInvoke", "(jioSystem.String;oSystem.String;)V", 
_IL_MethodBuilder_ClrMethodAddPInvoke, marshal_vpjipp)
+       IL_METHOD("ClrMethodSetRVA", "(ji)V", 
_IL_MethodBuilder_ClrMethodSetRVA, marshal_vpji)
        IL_METHOD("ClrMethodCreate", 
"(joSystem.String;vSystem.Reflection.MethodAttributes;j)j", 
_IL_MethodBuilder_ClrMethodCreate, marshal_jpjpij)
        IL_METHOD("ClrMethodSetImplAttrs", 
"(jvSystem.Reflection.MethodImplAttributes;)V", 
_IL_MethodBuilder_ClrMethodSetImplAttrs, marshal_vpji)
***************
*** 1968,1974 ****
  #if !defined(HAVE_LIBFFI)
  
! static void marshal_jpjp(void (*fn)(), void *rvalue, void **avalue)
  {
!       *((ILNativeUInt *)rvalue) = (*(ILNativeUInt (*)(void *, ILNativeUInt, 
void *))fn)(*((void * *)(avalue[0])), *((ILNativeUInt *)(avalue[1])), *((void * 
*)(avalue[2])));
  }
  
--- 1981,1987 ----
  #if !defined(HAVE_LIBFFI)
  
! static void marshal_ipjp(void (*fn)(), void *rvalue, void **avalue)
  {
!       *((ILNativeInt *)rvalue) = (*(ILInt32 (*)(void *, ILNativeUInt, void 
*))fn)(*((void * *)(avalue[0])), *((ILNativeUInt *)(avalue[1])), *((void * 
*)(avalue[2])));
  }
  
***************
*** 1977,1983 ****
  #if !defined(HAVE_LIBFFI)
  
! static void marshal_ipjp(void (*fn)(), void *rvalue, void **avalue)
  {
!       *((ILNativeInt *)rvalue) = (*(ILInt32 (*)(void *, ILNativeUInt, void 
*))fn)(*((void * *)(avalue[0])), *((ILNativeUInt *)(avalue[1])), *((void * 
*)(avalue[2])));
  }
  
--- 1990,1996 ----
  #if !defined(HAVE_LIBFFI)
  
! static void marshal_jpjp(void (*fn)(), void *rvalue, void **avalue)
  {
!       *((ILNativeUInt *)rvalue) = (*(ILNativeUInt (*)(void *, ILNativeUInt, 
void *))fn)(*((void * *)(avalue[0])), *((ILNativeUInt *)(avalue[1])), *((void * 
*)(avalue[2])));
  }
  
***************
*** 1987,1990 ****
--- 2000,2005 ----
  
  IL_METHOD_BEGIN(ModuleBuilder_Methods)
+       IL_METHOD("ClrModuleWriteData", "(j[B)i", 
_IL_ModuleBuilder_ClrModuleWriteData, marshal_ipjp)
+       IL_METHOD("ClrModuleWriteGap", "(ji)i", 
_IL_ModuleBuilder_ClrModuleWriteGap, marshal_ipji)
        IL_METHOD("ClrModuleCreate", "(joSystem.String;)j", 
_IL_ModuleBuilder_ClrModuleCreate, marshal_jpjp)
        IL_METHOD("ClrModuleCreateString", "(joSystem.String;)i", 
_IL_ModuleBuilder_ClrModuleCreateString, marshal_ipjp)
***************
*** 1998,2002 ****
        IL_METHOD("ClrPropertyCreate", 
"(joSystem.String;vSystem.Reflection.PropertyAttributes;j)j", 
_IL_PropertyBuilder_ClrPropertyCreate, marshal_jpjpij)
        IL_METHOD("ClrPropertyAddSemantics", 
"(jvSystem.Reflection.MethodSemanticsAttributes;vSystem.Reflection.Emit.MethodToken;)V",
 _IL_PropertyBuilder_ClrPropertyAddSemantics, marshal_vpjip)
-       IL_METHOD("ClrPropertySetConstant", "(joSystem.Object;)V", 
_IL_PropertyBuilder_ClrPropertySetConstant, marshal_vpjp)
  IL_METHOD_END
  
--- 2013,2016 ----
***************
*** 2072,2075 ****
--- 2086,2109 ----
  #endif
  
+ #if !defined(HAVE_LIBFFI)
+ 
+ static void marshal_jpjiip(void (*fn)(), void *rvalue, void **avalue)
+ {
+       *((ILNativeUInt *)rvalue) = (*(ILNativeUInt (*)(void *, ILNativeUInt, 
ILInt32, ILInt32, void *))fn)(*((void * *)(avalue[0])), *((ILNativeUInt 
*)(avalue[1])), *((ILInt32 *)(avalue[2])), *((ILInt32 *)(avalue[3])), *((void * 
*)(avalue[4])));
+ }
+ 
+ #endif
+ 
+ #ifndef _IL_ParameterBuilder_suppressed
+ 
+ IL_METHOD_BEGIN(ParameterBuilder_Methods)
+       IL_METHOD("ClrParameterCreate", 
"(jivSystem.Reflection.ParameterAttributes;oSystem.String;)j", 
_IL_ParameterBuilder_ClrParameterCreate, marshal_jpjiip)
+       IL_METHOD("ClrParameterGetPosition", "(j)i", 
_IL_ParameterBuilder_ClrParameterGetPosition, marshal_ipj)
+       IL_METHOD("ClrParameterGetAttrs", "(j)i", 
_IL_ParameterBuilder_ClrParameterGetAttrs, marshal_ipj)
+       IL_METHOD("ClrParameterGetName", "(j)oSystem.String;", 
_IL_ParameterBuilder_ClrParameterGetName, marshal_ppj)
+ IL_METHOD_END
+ 
+ #endif
+ 
  #ifndef _IL_CultureInfo_suppressed
  
***************
*** 2761,2764 ****
--- 2795,2801 ----
  #ifndef _IL_Object_suppressed
        {"Object", "System", Object_Methods},
+ #endif
+ #ifndef _IL_ParameterBuilder_suppressed
+       {"ParameterBuilder", "System.Reflection.Emit", 
ParameterBuilder_Methods},
  #endif
  #ifndef _IL_PropertyBuilder_suppressed

Index: lib_emit.c
===================================================================
RCS file: /cvsroot/dotgnu-pnet/pnet/engine/lib_emit.c,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -r1.6 -r1.7
*** lib_emit.c  22 Mar 2003 05:13:43 -0000      1.6
--- lib_emit.c  28 Mar 2003 01:05:33 -0000      1.7
***************
*** 160,163 ****
--- 160,172 ----
  
  /*
+  * private static void ClrFieldSetRVA(IntPtr item, int rva);
+  */
+ void _IL_FieldBuilder_ClrFieldSetRVA(ILExecThread *_thread,
+                                                                        
ILNativeInt item, ILInt32 rva)
+ {
+       /* TODO */
+ }
+ 
+ /*
   * private static IntPtr ClrModuleCreate(IntPtr assembly, String name);
   */
***************
*** 184,187 ****
--- 193,217 ----
  
  /*
+  * internal static int ClrModuleWriteData(IntPtr module, byte[] data);
+  */
+ ILInt32 _IL_ModuleBuilder_ClrModuleWriteData(ILExecThread *_thread,
+                                                                               
         ILNativeInt module,
+                                                                               
         System_Array *data)
+ {
+       /* TODO */
+       return 0;
+ }
+ 
+ /*
+  * internal static int ClrModuleWriteGap(IntPtr module, int size);
+  */
+ ILInt32 _IL_ModuleBuilder_ClrModuleWriteGap(ILExecThread *_thread,
+                                                                               
        ILNativeInt module, ILInt32 size)
+ {
+       /* TODO */
+       return 0;
+ }
+ 
+ /*
   * private static IntPtr ClrPropertyCreate(IntPtr classInfo, String name,
   *                                                                            
   PropertyAttributes attrs,
***************
*** 228,231 ****
--- 258,262 ----
  ILNativeInt _IL_TypeBuilder_ClrTypeCreate(ILExecThread *_thread,
                                                                                
  ILNativeInt module,
+                                                                               
  ILNativeInt nestedParent,
                                                                                
  ILString *name,
                                                                                
  ILString *nspace,
***************
*** 320,323 ****
--- 351,366 ----
  
  /*
+  * private static void ClrTypeAddOverride(IntPtr module, int bodyToken,
+  *                                                                            
  int declToken);
+  */
+ void _IL_TypeBuilder_ClrTypeAddOverride(ILExecThread *_thread,
+                                                                               
ILNativeInt module,
+                                                                               
ILInt32 bodyToken,
+                                                                               
ILInt32 declToken)
+ {
+       /* TODO */
+ }
+ 
+ /*
   * internal static IntPtr ClrMethodCreate(IntPtr classInfo, String name,
   *                                                                            
  MethodAttributes attributes,
***************
*** 364,367 ****
--- 407,435 ----
  
  /*
+  * internal static void ClrMethodSetRVA(IntPtr method, int rva);
+  */
+ void _IL_MethodBuilder_ClrMethodSetRVA(ILExecThread *_thread,
+                                                                          
ILNativeInt method, ILInt32 rva)
+ {
+       if(method)
+       {
+               ILMethodSetRVA((ILMethod *)method, (ILUInt32)rva);
+       }
+ }
+ 
+ /*
+  * internal static void ClrMethodAddPInvoke(IntPtr method, int pinvAttrs,
+  *                                                                            
        String dllName, String entryName);
+  */
+ void _IL_MethodBuilder_ClrMethodAddPInvoke(ILExecThread *_thread,
+                                                                               
   ILNativeInt method,
+                                                                               
   ILInt32 pinvAttrs,
+                                                                               
   ILString *dllName,
+                                                                               
   ILString *entryName)
+ {
+       /* TODO */
+ }
+ 
+ /*
   * private static IntPtr ClrSigCreateMethod(IntPtr context, int callConv,
   *                                                                            
        IntPtr returnType);
***************
*** 571,574 ****
--- 639,707 ----
        /* TODO */
        return 0;
+ }
+ 
+ /*
+  * internal static IntPtr ClrParameterCreate(IntPtr method, int position,
+  *                                                                            
         ParameterAttributes attributes,
+  *                                                                            
         String name);
+  */
+ ILNativeInt _IL_ParameterBuilder_ClrParameterCreate(ILExecThread *_thread,
+                                                                               
                        ILNativeInt method,
+                                                                               
                        ILInt32 position,
+                                                                               
                        ILInt32 attributes,
+                                                                               
                        ILString *name)
+ {
+       /* TODO */
+       return 0;
+ }
+ 
+ /*
+  * internal static int ClrParameterGetPosition(IntPtr parameter);
+  */
+ ILInt32 _IL_ParameterBuilder_ClrParameterGetPosition(ILExecThread *_thread,
+                                                                               
                         ILNativeInt parameter)
+ {
+       if(parameter)
+       {
+               return ILParameter_Num((ILParameter *)parameter);
+       }
+       else
+       {
+               return 0;
+       }
+ }
+ 
+ /*
+  * internal static ParameterAttributes ClrParameterGetPosition
+  *                                            (IntPtr parameter);
+  */
+ ILInt32 _IL_ParameterBuilder_ClrParameterGetAttrs(ILExecThread *_thread,
+                                                                               
                  ILNativeInt parameter)
+ {
+       if(parameter)
+       {
+               return ILParameter_Attrs((ILParameter *)parameter);
+       }
+       else
+       {
+               return 0;
+       }
+ }
+ 
+ /*
+  * internal static String ClrParameterGetName(IntPtr parameter);
+  */
+ ILString *_IL_ParameterBuilder_ClrParameterGetName(ILExecThread *_thread,
+                                                                               
                   ILNativeInt parameter)
+ {
+       if(parameter)
+       {
+               return ILStringCreate
+                       (_thread, ILParameter_Name((ILParameter *)parameter));
+       }
+       else
+       {
+               return 0;
+       }
  }