[Lazarus] Stream Error with trunk and FPC 3.0.0 RC1
Torsten Bonde Christiansen
tc at epidata.info
Wed Aug 26 08:44:09 CEST 2015
On 2015-08-26 00:26, Bart wrote:
> What is the value of $FPC_FULLVERSION in this RC?
> See revision 49401 and associated bugreport
> http://bugs.freepascal.org/view.php?id=27754
>
> Does it work if you change all {$IF FPC_FULLVERSION >= 30001}
> into {$IF FPC_FULLVERSION >= 30000} in lresources.pp?
program Project1;
{$mode objfpc}{$H+}
begin
{$IF FPC_FULLVERSION = 30000}
writeln('3.0.0');
{$ELSE}
{$IF FPC_FULLVERSION = 30001}
writeln('3.0.1');
{$ELSE}
{$IF FPC_FULLVERSION > 30001}
writeln('3.0.?');
{$ENDIF}
{$ENDIF}
{$ENDIF}
end.
This program yields:
torsten at Rainier:~/tmp$ ./project1
3.0.0
More information about the Lazarus
mailing list