Hi, All!

There is still a bug in current 1.1 CVS tree with nested functons. Test case:

program Pr;
Function Test1(a : String) : String;
 Function Test2(b : String) : String;
  begin
   Result := 'There is ';
  end;
begin
 Result := Test2('a bug')+a;
end;
begin
 WriteLn(Test1('no bug'));
end.
   SY, Dimitry Sibiryakov.

Dimitry Sibiryakov wrote

There is still a bug in current 1.1 CVS tree with nested functons.

Peter fixed it yesterday (I committed the fix yesterday afternoon). Your test program works fine with the current compiler.

Jonas

Dimitry Sibiryakov wrote

There is still a bug in current 1.1 CVS tree with nested functons.

Sorry for this post. The bug was fixed just after I cvsuped my copy.

SY, Dimitry Sibiryakov.