O2Timing

Module for timing of procedure execution.

Reference files the perf directory for usage examples.

Types

Proc* = PROCEDURE;

Vars

PCFreq : LONGREAL;

CounterStart : LONGREAL;

Procedures

StartTimer

Setup timer

PROCEDURE StartTimer*;

Elapsed

Elapsed time

PROCEDURE Elapsed* (): LONGREAL;

Timing

Run testproc and report statistics

PROCEDURE Timing* (name : ARRAY OF CHAR; testproc : Proc; loops := 1000000 : LONGINT; outer := 10 : LONGINT);