paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 09:40:20 +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; class function TObject.InstanceSize : LongInt;
type
plongint = ^longint;
begin begin
{ type of self is class of tobject => it points to the vmt } InstanceSize:=plongint(pointer(self)+vmtInstanceSize)^;
{ the size is saved at offset 0 }
InstanceSize:=plongint(self)^;
end; end;
procedure InitInterfacePointers(objclass: tclass;instance : pointer); procedure InitInterfacePointers(objclass: tclass;instance : pointer);
@ -169,7 +164,7 @@
begin begin
while assigned(objclass) do while assigned(objclass) do
begin begin
intftable:=objclass.getinterfacetable; intftable:=pinterfacetable((pointer(objclass)+vmtIntfTable)^);
if assigned(intftable) then if assigned(intftable) then
for i:=0 to intftable^.EntryCount-1 do for i:=0 to intftable^.EntryCount-1 do
ppointer(@(PChar(instance)[intftable^.Entries[i].IOffset]))^:= ppointer(@(PChar(instance)[intftable^.Entries[i].IOffset]))^:=
@ -185,7 +180,8 @@
class function TObject.InitInstance(instance : pointer) : tobject; class function TObject.InitInstance(instance : pointer) : tobject;
begin 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 } { insert VMT pointer into the new created memory area }
{ (in class methods self contains the VMT!) } { (in class methods self contains the VMT!) }
ppointer(instance)^:=pointer(self); ppointer(instance)^:=pointer(self);
@ -209,7 +205,7 @@
p : pointer; p : pointer;
begin begin
getmem(p,instancesize); getmem(p,plongint(pointer(self)+vmtInstanceSize)^);
if p <> nil then if p <> nil then
InitInstance(p); InitInstance(p);
NewInstance:=TObject(p); NewInstance:=TObject(p);
@ -587,7 +583,7 @@
Res: pinterfaceentry; Res: pinterfaceentry;
begin begin
getinterfaceentry:=nil; getinterfaceentry:=nil;
intftable:=getinterfacetable; intftable:=pinterfacetable((pointer(Self)+vmtIntfTable)^);
if assigned(intftable) then begin if assigned(intftable) then begin
i:=intftable^.EntryCount; i:=intftable^.EntryCount;
Res:=@intftable^.Entries[0]; Res:=@intftable^.Entries[0];
@ -695,7 +691,10 @@
{ {
$Log$ $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 * manual inline classparent calls in the loops
Revision 1.28 2002/10/11 14:05:21 florian Revision 1.28 2002/10/11 14:05:21 florian