suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixed the commstime.rain testcase so that it now just about works (except for one disallowed cast)

Browse Source
This commit is contained in:
Neil Brown 2008-03-23 13:29:47 +00:00
parent fc4cac736b
commit 38aca16514
1 changed files with 19 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
testcases/commstime.rain
View File

@ -36,22 +36,31 @@ function [uint8] : int_to_str(int: src)
[uint8]: r;
x = src;
while (src > 0)
while (x > 0)
{
r = ['0' + (uint8: src % 10)] + r;
src /= 10;
r = ['0' + (uint8: x % 10)] + r;
x /= 10;
}
return r;
}
process out_str(!uint8: out, [uint8]: val)
{
seqeach (c : val)
{
out ! c;
}
}
process consume_int(?int: in, !uint8: out) ### uses (time)
{
### Warm-up:
seqeach (n : [1..100])
{
in ? _;
int: _x;
in ? _x;
}
while (true)
@ -59,20 +68,20 @@ process consume_int(?int: in, !uint8: out) ### uses (time)
int: n;
time: t0,t1;
n = 0;
now t;
now t0;
while (n < 1000000)
{
in ? _;
int: _x;
in ? _x;
n += 1;
}
now t1;
int: m;
m = toMicros(t1 - t0) / 1000000;
m = toNanos(t1 - t0) / 1000000;
out ! "Time per commstime iteration in micro-seconds: ";
out ! int_to_str(m);
out ! "\n";
run out_str(out, "Time per commstime iteration in nano-seconds: "
+ int_to_str(m) + "\n");
}
}