BP 7.0 (real)
BP7.0 (protected)
VP2.1b279
all: "not assigned"
----- Original Message -----
From: "Marco van de Voort" <[email protected]>
To: <[email protected]>
Sent: Wednesday, May 14, 2014 11:46 AM
Subject: [fpc-devel] test on TP
Can sb test this program on TP/BP7 and tell me the result? Thank you.
program sometest;
{$ifdef fpc}
{$mode tp}
{$endiof}
Type
PChildThing = ^TChildThing;
TChildThing = object
constructor init;
end;
PSomething = ^TSomething;
TSomething = object
ct:PChildThing;
constructor init;
end;
constructor TSomething.init;
begin
new(ct,init);
end;
var p : PSomething;
constructor TChildThing.Init;
begin
if assigned(p) then
writeln('assigned')
else
writeln('not assigned')
end;
begin
p:=nil;
p:=new(PSomething,Init);
end.
_______________________________________________
fpc-devel maillist - [email protected]
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-devel
_______________________________________________
fpc-devel maillist - [email protected]
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-devel
