Test suite results for test file webtbs/tw2943.pp

Test run data :

Test file "webtbs/tw2943.pp" information:

t_id 1288
t_adddate 2004/05/17
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 948155.

Source:

{ 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.

Link to SVN view of webtbs/tw2943.pp source.