paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-16 23:26:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Finalize to int_finalize renamed

Browse Source
This commit is contained in:
florian 2000-11-09 17:50:12 +00:00
parent 34fb0e67f5
commit b3c53b4f55
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/inc/objpas.inc
View File

@ -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
}
}