mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-13 11:24:14 +02:00
45 lines
1.0 KiB
ObjectPascal
45 lines
1.0 KiB
ObjectPascal
{ Source provided for Free Pascal Bug Report 2943 }
|
|
{ Submitted by "marco (gory bugs department)" on 2004-02-06 }
|
|
{ e-mail: }
|
|
{ $mode Delphi}
|
|
{$define linux}
|
|
|
|
|
|
|
|
{$IFDEF LINUX}
|
|
{$IFDEF CONDITIONALEXPRESSIONS}
|
|
{$IFDEF CompilerVersion}
|
|
//Important: Don't use CompilerVersion here as
|
|
//$IF's are evaluated before $IFDEF's
|
|
//and Kylix 1 does not have CompilerVersion defined at all.
|
|
{$IF RTLVersion = 14.1}
|
|
{$DEFINE KYLIX2}
|
|
{$DEFINE USEZLIBUNIT}
|
|
{$DEFINE KYLIX1ORABOVE}
|
|
{$DEFINE KYLIX2ORABOVE}
|
|
{$IFEND}
|
|
{$IF RTLVersion = 14.5}
|
|
{$DEFINE KYLIX3}
|
|
{$DEFINE USEZLIBUNIT}
|
|
{$DEFINE KYLIX1ORABOVE}
|
|
{$DEFINE KYLIX2ORABOVE}
|
|
{$IFEND}
|
|
{$ELSE}
|
|
//CompilerVersion is not defined under Kylix 1
|
|
{$DEFINE KYLIX1}
|
|
{$DEFINE KYLIX1ORABOVE}
|
|
{$ENDIF}
|
|
|
|
{$ENDIF}
|
|
{$DEFINE VCL4ORABOVE}
|
|
{$DEFINE VCL5ORABOVE}
|
|
{$DEFINE OVERLOADING}
|
|
{$DEFINE OPTIONALPARAMS}
|
|
{$DEFINE SAMETEXT}
|
|
{$DEFINE VCL6ORABOVE}
|
|
{$DEFINE VCL6O}
|
|
{$ENDIF}
|
|
|
|
begin
|
|
end.
|