Test suite results for test file webtbs/tw2829.pp

Test run data :

Test file "webtbs/tw2829.pp" information:

t_id 1212
t_adddate 2003/12/09
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 497919.

Source:

{ Source provided for Free Pascal Bug Report 2829 }
{ Submitted by "marco (the gory bugs department)" on  2003-12-04 }
{ e-mail:  }
{$ifdef fpc}{$mode Delphi}{$endif}

type
  TFloat64     = Double;
  TFloat64Func = function: TFloat64;

  TExprVirtMachOp = class end;
  TExprVirtMachNode= class end;
  TExprCallFloat64VmOp = class(TExprVirtMachOp)
  private
    FFunc: TFloat64Func;
  public
    constructor Create(AFunc: TFloat64Func);
  end;


    TExprCallFloat64VmNode = class(TExprVirtMachNode)
  private
    FFunc: TFloat64Func;
    FExprVmCode : TExprCallFloat64VMOp;
  public
    procedure GenCode;
  end;

constructor TExprCallFloat64VmOp.Create(AFunc:TFloat64Func);

begin

end;

procedure TExprCallFloat64VmNode.GenCode;
begin
  FExprVmCode := TExprCallFloat64VmOp.Create(FFunc);
end;

begin
end.

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