@@ -1,4 +1,4 @@
-{%RESULT=219 }
+{%RESULT=220 }
{ %OPT= -CR }
program test_object;
@@ -9,34 +9,34 @@ type
constructor init;
procedure mymethod; virtual;
end;
-
+
pobj2 = ^tobj2;
tobj2 = object
constructor tobj2.init;
begin
procedure tobj2.mymethod;
constructor tobj1.init;
procedure tobj1.mymethod;
var
_obj1 : pobj1;
_obj2 : pobj2;
@@ -45,4 +45,4 @@ Begin
_obj2:=new(pobj2,init);
pobj1(_obj2)^.mymethod;
end.