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.

BP 7.0 (real)
BP7.0 (protected)
VP2.1b279

all: "not assigned"

Indeed (apart from the obvious typo "endiof" preventing compilation, of course). Why / how could it give a different result?

Tomas

In our previous episode, Tomas Hajny said:

Indeed (apart from the obvious typo "endiof" preventing compilation, of course). Why / how could it give a different result?

I'm hunting down a problem with the TV form editor. (you replied in the thread on the forum). The problem had this rough structure, but it could be this, or that the order of events fired is different. (IOW FV fires certain events from the constructor and TV not).

The latter is harder to debug, so I wanted to make sure it wasn't some language difference.

You may have forgotten to put something in your test code in that case, because you don't assign anything to "p" anywhere.

Jonas

In our previous episode, Jonas Maebe said:

I think not. I really wanted to check that the result of the allocation wasn't stored to p before the constructor ran.