[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