From b3c53b4f554873fad12ff2aeb6c6b61a0d9e10d0 Mon Sep 17 00:00:00 2001 From: florian Date: Thu, 9 Nov 2000 17:50:12 +0000 Subject: [PATCH] * Finalize to int_finalize renamed --- rtl/inc/objpas.inc | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/rtl/inc/objpas.inc b/rtl/inc/objpas.inc index ea58157ff1..3728e31c54 100644 --- a/rtl/inc/objpas.inc +++ b/rtl/inc/objpas.inc @@ -14,7 +14,7 @@ **********************************************************************} -Procedure Finalize (Data,TypeInfo: Pointer);forward; +Procedure int_finalize (Data,TypeInfo: Pointer);forward; {**************************************************************************** Internal Routines called from the Compiler @@ -492,7 +492,7 @@ Procedure Finalize (Data,TypeInfo: Pointer);forward; while vmt<>nil do begin if Assigned(Pointer((Pointer(vmt)+vmtInitTable)^)) then - Finalize(Pointer(Self),Pointer((Pointer(vmt)+vmtInitTable)^)); + int_finalize(Pointer(Self),Pointer((Pointer(vmt)+vmtInitTable)^)); vmt:=vmt.ClassParent; end; end; @@ -661,7 +661,10 @@ Procedure Finalize (Data,TypeInfo: Pointer);forward; { $Log$ - Revision 1.10 2000-11-07 23:42:21 florian + Revision 1.11 2000-11-09 17:50:12 florian + * Finalize to int_finalize renamed + + Revision 1.10 2000/11/07 23:42:21 florian + AfterConstruction and BeforeDestruction implemented + TInterfacedObject implemented @@ -688,4 +691,4 @@ Procedure Finalize (Data,TypeInfo: Pointer);forward; Revision 1.1.2.1 2000/07/22 14:46:57 sg * Made TObject.MethodAddress case independent -} \ No newline at end of file +}