paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 07:19:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* ClassType changed to class method

Browse Source
This commit is contained in:
peter 2003-03-17 20:55:58 +00:00
parent e25ef86b0a
commit c7786e73aa
2 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/inc/objpas.inc
View File

@ -218,10 +218,10 @@
FreeMem(Pointer(Self));
end;
function TObject.ClassType : TClass;
class function TObject.ClassType : TClass;
begin
ClassType:=TClass(Pointer(Self)^)
ClassType:=TClass(Pointer(Self))
end;
type
@ -691,7 +691,10 @@
{
$Log$
Revision 1.30 2002-10-19 15:53:20 peter
Revision 1.31 2003-03-17 20:55:58 peter
* ClassType changed to class method
Revision 1.30 2002/10/19 15:53:20 peter
* 'inlined' some more calls
Revision 1.29 2002/10/15 19:29:49 peter

7
rtl/inc/objpash.inc
View File

@ -117,7 +117,7 @@
procedure Free;
class function InitInstance(instance : pointer) : tobject;
procedure CleanupInstance;
function ClassType : tclass;
class function ClassType : tclass;
class function ClassInfo : pointer;
class function ClassName : shortstring;
class function ClassNameIs(const name : string) : boolean;
@ -271,7 +271,10 @@
{
$Log$
Revision 1.15 2002-09-26 14:43:24 florian
Revision 1.16 2003-03-17 20:55:58 peter
* ClassType changed to class method
Revision 1.15 2002/09/26 14:43:24 florian
+ tvarrec field vcurrency for compilers with hascurrency released
Revision 1.14 2002/09/07 15:07:46 peter