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

* removed debug output (sorry, forgot the remove it, my bad)

Browse Source 
git-svn-id: trunk@5560 -
This commit is contained in:
ivost 2006-12-08 18:14:29 +00:00
parent 73713d14e3
commit 7e2f18ea7e
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/inc/objpas.inc
View File

@ -147,9 +147,9 @@
i:=intftable^.EntryCount;
Res:=@intftable^.Entries[0];
while i>0 do begin
if Res^.EntryType = etStandard then
ppointer(@(pbyte(instance)[Res^.IOffset]))^:=
pointer(Res^.VTable);
if Res^.EntryType = etStandard then
ppointer(@(pbyte(instance)[Res^.IOffset]))^:=
pointer(Res^.VTable);
inc(Res);
dec(i);
end;
@ -583,24 +583,24 @@
case IEntry^.EntryType of
etStandard:
begin
writeln('Doing etStandard cast of ', TObject(Instance).classname(), ' with self = ', ptruint(Instance), ' and offset = ', IEntry^.IOffset);
//writeln('Doing etStandard cast of ', TObject(Instance).classname(), ' with self = ', ptruint(Instance), ' and offset = ', IEntry^.IOffset);
Pointer(Obj) := Pointer(PtrInt(Instance) + IEntry^.IOffset);
end;
etFieldValue:
begin
writeln('Doing etFieldValue cast of ', TObject(Instance).classname(), ' with offset = ', IEntry^.EntryOffset);
//writeln('Doing etFieldValue cast of ', TObject(Instance).classname(), ' with offset = ', IEntry^.EntryOffset);
Pointer(obj) := ppointer(Pointer(Instance)+IEntry^.EntryOffset)^;
end;
etVirtualMethodResult:
begin
writeln('Doing etVirtualMethodResult cast of ', TObject(Instance).classname());
//writeln('Doing etVirtualMethodResult cast of ', TObject(Instance).classname());
TMethod(Getter).data := Instance;
TMethod(Getter).code := ppointer(ptrint(Instance) + IEntry^.EntryOffset)^;
Pointer(obj) := Pointer(Getter());
end;
etStaticMethodResult:
begin
writeln('Doing etStaticMethodResult cast of ', TObject(Instance).classname());
//writeln('Doing etStaticMethodResult cast of ', TObject(Instance).classname());
TMethod(Getter).data := Instance;
TMethod(Getter).code := pointer(IEntry^.EntryOffset);
Pointer(obj) := Pointer(Getter());