Problem with objects`vmt structure
Original Reporter info from Mantis: zamtmn @zamtmn
-
Reporter name: Andrey Zubarev
Original Reporter info from Mantis: zamtmn @zamtmn
- Reporter name: Andrey Zubarev
Description:
program Project1;
uses
objects;
type
PTObj=^TObj;
TObj=object(TObject)
end;
TObj2=object(TObj)
end;
TSuperObj=object(TObj)
end;
var
t2:TObj2;
begin
t2.init;
writeln(t2.Is_Object(TypeOf(TObj)));
writeln(t2.Is_Object(TypeOf(TSuperObj)));
readln;
end.
This work in 2.6.4 and not work in trunk.
in 2.6:
VMT=RECORD
Size,NegSize:Longint;
ParentLink:PVMT;
END;
in trunk:
VMT=RECORD
Size,NegSize:Longint;
ParentLink:PPVMT;
END;
And please make objects vmt record published, like TVMT for class
Mantis conversion info:
- Mantis ID: 34239
- Fixed in version: 3.3.1
- Fixed in revision: 39715 (#00663728)