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

+ method tobject.classinfo added

Browse Source
This commit is contained in:
florian 1998-09-06 21:27:31 +00:00
parent 57fead83f9
commit 1264cfa331
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/objpas/objpas.pp
View File

@ -262,10 +262,10 @@ unit objpas;
ClassName:=PShortString((PPointer(Self)+vmtClassName)^)^;
end;
class function TObject.classnameis(const name : string) : boolean;
class function TObject.ClassNameIs(const name : string) : boolean;
begin
classnameis:=classname=name;
ClassNameIs:=ClassName=name;
end;
class function TObject.InheritsFrom(aclass : TClass) : Boolean;
@ -306,7 +306,8 @@ unit objpas;
vmt:=ClassType;
while vmt<>nil do
begin
Finalize(Pointer(Self),Pointer(vmt)+vmtInitTable);
if Assigned(Pointer((Pointer(vmt)+vmtInitTable)^)) then
Finalize(Pointer(Self),Pointer((Pointer(vmt)+vmtInitTable)^));
vmt:=vmt.ClassParent;
end;
end;
@ -319,7 +320,10 @@ end.
{$endif VER0_99_5}
{
$Log$
Revision 1.7 1998-09-04 08:49:06 peter
Revision 1.8 1998-09-06 21:27:31 florian
+ method tobject.classinfo added
Revision 1.7 1998/09/04 08:49:06 peter
* 0.99.5 doesn't compile a whole objpas anymore to overcome crashes
Revision 1.6 1998/08/23 20:58:52 florian