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

* 'inlined' some more calls

Browse Source
This commit is contained in:
peter 2002-10-19 15:53:20 +00:00
parent d27f79ae28
commit 4deb6a9b4e
1 changed files with 10 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
rtl/inc/objpas.inc
View File

@ -151,13 +151,8 @@
class function TObject.InstanceSize : LongInt;
type
plongint = ^longint;
begin
{ type of self is class of tobject => it points to the vmt }
{ the size is saved at offset 0 }
InstanceSize:=plongint(self)^;
InstanceSize:=plongint(pointer(self)+vmtInstanceSize)^;
end;
procedure InitInterfacePointers(objclass: tclass;instance : pointer);
@ -169,7 +164,7 @@
begin
while assigned(objclass) do
begin
intftable:=objclass.getinterfacetable;
intftable:=pinterfacetable((pointer(objclass)+vmtIntfTable)^);
if assigned(intftable) then
for i:=0 to intftable^.EntryCount-1 do
ppointer(@(PChar(instance)[intftable^.Entries[i].IOffset]))^:=
@ -185,7 +180,8 @@
class function TObject.InitInstance(instance : pointer) : tobject;
begin
fillchar(instance^,self.instancesize,0);
{ the size is saved at offset 0 }
fillchar(instance^,plongint(pointer(self)+vmtInstanceSize)^,0);
{ insert VMT pointer into the new created memory area }
{ (in class methods self contains the VMT!) }
ppointer(instance)^:=pointer(self);
@ -209,7 +205,7 @@
p : pointer;
begin
getmem(p,instancesize);
getmem(p,plongint(pointer(self)+vmtInstanceSize)^);
if p <> nil then
InitInstance(p);
NewInstance:=TObject(p);
@ -587,7 +583,7 @@
Res: pinterfaceentry;
begin
getinterfaceentry:=nil;
intftable:=getinterfacetable;
intftable:=pinterfacetable((pointer(Self)+vmtIntfTable)^);
if assigned(intftable) then begin
i:=intftable^.EntryCount;
Res:=@intftable^.Entries[0];
@ -695,7 +691,10 @@
{
$Log$
Revision 1.29 2002-10-15 19:29:49 peter
Revision 1.30 2002-10-19 15:53:20 peter
* 'inlined' some more calls
Revision 1.29 2002/10/15 19:29:49 peter
* manual inline classparent calls in the loops
Revision 1.28 2002/10/11 14:05:21 florian