t_id
1212
t_adddate
2003/12/09
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
456214981 | 936984 | True | False | Successfully run |
Record count: 1
{ 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.