blob: d1371484da5c7259af43afe141cc2e3eecd0d120 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
# SUBPROC -- Benchmark the process control facilities.
procedure subproc (nreps)
int nreps { prompt = "number of repetitions" }
int i
begin
time; print ("======= begin ========")
for (i=nreps; i > 0; i-=1) {
prcache ("imheader")
flprcache ("imheader")
time()
}
print ("======= end ========"); time
end
|
