|
@@ -27,7 +27,7 @@
|
|
|
Procedure int_Finalize (Data,TypeInfo: Pointer); [external name 'FPC_FINALIZE'];
|
|
|
Procedure int_Addref (Data,TypeInfo : Pointer); [external name 'FPC_ADDREF'];
|
|
|
Procedure int_Initialize (Data,TypeInfo: Pointer); [external name 'FPC_INITIALIZE'];
|
|
|
-procedure int_FinalizeArray(data,typeinfo : pointer;count : longint); [external name 'FPC_FINALIZE_ARRAY'];
|
|
|
+procedure int_FinalizeArray(data,typeinfo : pointer;count : SizeInt); [external name 'FPC_FINALIZE_ARRAY'];
|
|
|
|
|
|
{$if defined(FPC_HAS_FEATURE_RTTI) and not defined(cpujvm)}
|
|
|
type
|