Re: Fastcode UpperCase B&V 3.0

Hi

If the bench test is coded like this then "Bench all" is run a number of
times without any "Bench" runs in between. If accuracy is better now then
there is a potential problem with

> We must also make sure that there is no problem regarding precision in
> "Benchmark" versus "Benchmark All".

Regards
Dennis

procedure TMainForm.BenchTestButtonClick(Sender: TObject);
var
I1, I2 : Cardinal;

begin
BenchTestButton.Caption := 'Running';
Update;
for I1 := 0 to FunctionSelectionRadioGroup.Items.Count-1 do
begin
FunctionSelectionRadioGroup.ItemIndex := I1;
//BenchmarkButtonClick(nil);
BenchmarkAllButtonClick(nil);
Update;
end;
BenchTestButton.Caption := 'Bench Test';
end;


.

Quantcast