|
@@ -44,7 +44,7 @@ END SoftwareInterrupt;
|
|
|
PROCEDURE Bench*(context : Commands.Context); (** [nofSamples] ~ *)
|
|
PROCEDURE Bench*(context : Commands.Context); (** [nofSamples] ~ *)
|
|
|
VAR nofSamples, index, oldNgc, ignore : LONGINT;
|
|
VAR nofSamples, index, oldNgc, ignore : LONGINT;
|
|
|
BEGIN {EXCLUSIVE}
|
|
BEGIN {EXCLUSIVE}
|
|
|
- context.arg.GetInteger(nofSamples, FALSE);
|
|
|
|
|
|
|
+ context.arg.SkipWhitespace; context.arg.Int(nofSamples, FALSE);
|
|
|
IF (nofSamples < MinNofSamples) THEN nofSamples := MinNofSamples;
|
|
IF (nofSamples < MinNofSamples) THEN nofSamples := MinNofSamples;
|
|
|
ELSIF (nofSamples > MaxNofSamples) THEN nofSamples := MaxNofSamples;
|
|
ELSIF (nofSamples > MaxNofSamples) THEN nofSamples := MaxNofSamples;
|
|
|
END;
|
|
END;
|
|
@@ -84,7 +84,7 @@ VAR
|
|
|
nofSamples, min, avg, max, i : LONGINT; sum : HUGEINT;
|
|
nofSamples, min, avg, max, i : LONGINT; sum : HUGEINT;
|
|
|
diff, diffSum, standardDeviation : LONGREAL;
|
|
diff, diffSum, standardDeviation : LONGREAL;
|
|
|
BEGIN {EXCLUSIVE}
|
|
BEGIN {EXCLUSIVE}
|
|
|
- context.arg.GetInteger(mhz, FALSE);
|
|
|
|
|
|
|
+ context.arg.SkipWhitespace; context.arg.Int(mhz, FALSE);
|
|
|
IF (data # NIL) THEN
|
|
IF (data # NIL) THEN
|
|
|
nofSamples := LEN(data);
|
|
nofSamples := LEN(data);
|
|
|
min := MAX(LONGINT); max := MIN(LONGINT); sum := 0;
|
|
min := MAX(LONGINT); max := MIN(LONGINT); sum := 0;
|
negelef