Added the testcase I'm using for the implicit mobility stuff
This commit is contained in:
parent
b970b9df33
commit
94d436cbaf
35
testcases/large-arrays.occ
Normal file
35
testcases/large-arrays.occ
Normal file
|
@ -0,0 +1,35 @@
|
||||||
|
PROC id.picture(CHAN [256][256]INT in?, CHAN [256][256]INT out!)
|
||||||
|
[256][256]INT pic:
|
||||||
|
SEQ i = 0 FOR 100
|
||||||
|
SEQ
|
||||||
|
in ? pic
|
||||||
|
out ! pic
|
||||||
|
:
|
||||||
|
|
||||||
|
PROC m (CHAN BYTE out!)
|
||||||
|
[1000]CHAN [256][256]INT cs:
|
||||||
|
[256][256]INT start.pic, end.pic:
|
||||||
|
TIMER tim:
|
||||||
|
[128]BYTE str:
|
||||||
|
INT len:
|
||||||
|
INT t, t2:
|
||||||
|
SEQ
|
||||||
|
SEQ i = 0 FOR 256
|
||||||
|
SEQ j = 0 FOR 256
|
||||||
|
start.pic[i][j] := 0
|
||||||
|
PAR
|
||||||
|
PAR i = 0 FOR 999
|
||||||
|
id.picture(cs[i]?, cs[i+1]!)
|
||||||
|
SEQ
|
||||||
|
tim ? t
|
||||||
|
PAR
|
||||||
|
SEQ i = 0 FOR 100
|
||||||
|
cs[0] ! start.pic
|
||||||
|
SEQ i = 0 FOR 100
|
||||||
|
cs[999] ? end.pic
|
||||||
|
tim ? t2
|
||||||
|
t2 := t2 - t
|
||||||
|
INTTOSTRING(len,str,t2)
|
||||||
|
SEQ i = 0 FOR len
|
||||||
|
out ! str[i]
|
||||||
|
:
|
Loading…
Reference in New Issue
Block a user