mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 08:18:12 +02:00
038b7746fb
- move operator_levels to topens.pas - it is used from 2 units now - implement pexpr like sub_expr for preprocessor expressions - implement +,-,*,/ expressions for the moment * move OR, AND, IN implemenetation to the new logic git-svn-id: trunk@25465 -
26 lines
388 B
ObjectPascal
26 lines
388 B
ObjectPascal
program tw10671;
|
|
|
|
{$IFDEF FPC}
|
|
{$MODE Delphi}
|
|
{$ENDIF}
|
|
|
|
uses
|
|
SysUtils;
|
|
|
|
const
|
|
VER_MAJ = 10000;
|
|
VER_MIN = 100;
|
|
VER_REL = 1;
|
|
|
|
const
|
|
MY_VERSION = 020200;
|
|
|
|
{$IF MY_VERSION >= ((VER_MAJ*2) + (VER_MIN*1) + (VER_REL*0))}
|
|
{$MESSAGE Info 'Arithmetic in compile-time expressions works!'}
|
|
{$ELSE}
|
|
{$Message Error 'Arithmetic in compile-time expressions fails!'}
|
|
{$IFEND}
|
|
|
|
begin
|
|
end.
|