[fpc-devel] Bug in trunk?

[Jonas Maebe]

On 28 Mar 2008, at 07:47, Martin Schreiber wrote:

> What is wrong with this code:
> "
> program rangeerror;
> {$ifdef FPC}{$mode objfpc}{$h+}{$endif}
> {$ifdef mswindows}{$apptype console}{$endif}
> uses
> {$ifdef FPC}{$ifdef linux}cthreads,{$endif}{$endif}
> sysutils;
> type
> colorty = type longword;
> const
> cl_mapped = colorty($90000000);
> type
> ttestclass = class
>  private
>   fcolor: colorty;
>  published
>   property color: colorty read fcolor write fcolor default  
> cl_mapped; //<<--
> end;
> begin
> end.

It compiles again. Unrelated (because I think such declarations are  
broken for fpu types/values): what code do you have to write so that  
this default value is actually used?


Jonas