فهرست منبع

* fpc_finalize_array renamed

peter 23 سال پیش
والد
کامیت
b0948c6122
2فایلهای تغییر یافته به همراه12 افزوده شده و 6 حذف شده
  1. 6 3
      rtl/inc/compproc.inc
  2. 6 3
      rtl/inc/genrtti.inc

+ 6 - 3
rtl/inc/compproc.inc

@@ -200,10 +200,10 @@ procedure fpc_check_object(obj : pointer); compilerproc;
 procedure fpc_check_object_ext; compilerproc;
 
 Procedure fpc_Initialize (Data,TypeInfo : pointer); compilerproc;
-Procedure fpc_Finalize (Data,TypeInfo: Pointer); compilerproc;
+Procedure fpc_finalize (Data,TypeInfo: Pointer); compilerproc;
 Procedure fpc_Addref (Data,TypeInfo : Pointer); compilerproc;
 Procedure fpc_DecRef (Data,TypeInfo : Pointer);  compilerproc;
-procedure fpc_FinalizeArray(data,typeinfo : pointer;count,size : longint); compilerproc;
+procedure fpc_finalize_array(data,typeinfo : pointer;count,size : longint); compilerproc;
 
 function fpc_set_load_small(l: fpc_small_set): fpc_normal_set; compilerproc;
 function fpc_set_create_element(b : byte): fpc_normal_set; compilerproc;
@@ -256,7 +256,10 @@ Procedure fpc_typed_read(TypeSize : Longint;var f : TypedFile;var Buf); compiler
 
 {
   $Log$
-  Revision 1.14  2002-04-21 18:56:59  peter
+  Revision 1.15  2002-04-24 16:15:35  peter
+    * fpc_finalize_array renamed
+
+  Revision 1.14  2002/04/21 18:56:59  peter
     * fpc_freemem and fpc_getmem compilerproc
 
   Revision 1.13  2002/01/21 20:16:08  peter

+ 6 - 3
rtl/inc/genrtti.inc

@@ -68,7 +68,7 @@ end;
 
 {$ifndef FPC_SYSTEM_HAS_FPC_FINALIZE}
 
-Procedure fpc_Finalize (Data,TypeInfo: Pointer);saveregisters;[Public,Alias : 'FPC_FINALIZE'];  {$ifdef hascompilerproc} compilerproc; {$endif}
+Procedure fpc_finalize (Data,TypeInfo: Pointer);saveregisters;[Public,Alias : 'FPC_FINALIZE'];  {$ifdef hascompilerproc} compilerproc; {$endif}
 
 { this definition is sometimes (depending on switches)
   already defined or not so define it locally to avoid problems PM }
@@ -231,7 +231,7 @@ end;
 {$endif}
 
 {$ifndef FPC_SYSTEM_HAS_FPC_FINALIZEARRAY}
-procedure fpc_FinalizeArray(data,typeinfo : pointer;count,size : longint); [Public,Alias:'FPC_FINALIZEARRAY'];  {$ifdef hascompilerproc} compilerproc; {$endif}
+procedure fpc_finalize_array(data,typeinfo : pointer;count,size : longint); [Public,Alias:'FPC_FINALIZEARRAY'];  {$ifdef hascompilerproc} compilerproc; {$endif}
   var
      i : longint;
   begin
@@ -242,7 +242,10 @@ procedure fpc_FinalizeArray(data,typeinfo : pointer;count,size : longint); [Publ
 
 {
  $Log$
- Revision 1.10  2001-11-30 16:25:35  jonas
+ Revision 1.11  2002-04-24 16:15:35  peter
+   * fpc_finalize_array renamed
+
+ Revision 1.10  2001/11/30 16:25:35  jonas
    * fixed web bug 1707:
       * tvarsym.getvaluesize doesn't return 0 anymore for dynarrays (found
         by Florian)