I just started to test a program of mine with the development tree and
ran into an internal error 200310221. Compiling with 2.0.0 does work.
Only tested on linux-i386. When reducing the program to a small testcase
I also encountered internal error 200402171 (unfortunatly only saw it
later in the logs, so no idea how the program looked at that moment.)
Attached the sample program, when putting it in one unit it magically
starts to work.
Regards,
Mark de Wever
program psw_demo;
uses
psw;
begin
end.
unit psw;
interface
{$mode objfpc}
uses
classes;
{$define error_200310221}
type
TSDL_Text=class
public
fText:string;
end;
TSDL_EditBox=class
public
fCaption:string;
fTextWidget:TSDL_Text;
{$ifdef error_200310221}
property Caption:string read fTextWidget.fText;
{$else}
property Caption:string read fCaption;
{$endif}
end;
implementation
end.
_______________________________________________
fpc-devel maillist - fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel
