[fpc-devel] Bug in trunk?

[Graeme Geldenhuys]

On 28/03/2008, Martin Schreiber <fpmse at bluewin.ch> wrote:
> Hi,
>  What is wrong with this code:


Michael Van Canneyt detected a similar issue with fpGUI code and FPC 2.3.1

- It doesn't compile with my 2.3.1 compiler. (64 bit)

Free Pascal Compiler version 2.3.1 [2007/07/04] for x86_64
Copyright (c) 1993-2007 by Florian Klaempfl
gfx_widget.pas(126,117) Error: range check error while evaluating constants
gfx_widget.pas(127,88) Error: range check error while evaluating constants
gfx_widget.pas(137,1) Fatal: There were 2 errors compiling module, stopping


The lines referred to are:

 property BackgroundColor: TfpgColor read FBackgroundColor write
SetBackgroundColor default clWindowBackground;
 property TextColor: TfpgColor read FTextColor write SetTextColor
default clText1;

and TfpgColor is defined as follows:

 TfpgColor = type longword;


With FPC 2.2.0 (64bit and 32bit) the code compiles with out issues.



Regards,
  - Graeme -


_______________________________________________
fpGUI - a cross-platform Free Pascal GUI toolkit
http://opensoft.homeip.net/fpgui/