[fpc-devel] Internal error 200310221 with SVN 1885

[Mark de Wever]

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
-------------- next part --------------
program psw_demo;

uses
	psw;

begin

end.
-------------- next part --------------
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.