2 * Ported by: Jin Zhou 07/15/10
4 * This is ported from the NoFib, originally written in Haskell
7 task t1(StartupObject s{initialstate}) {
8 //System.printString("task t1\n");
10 int threadnum = 62; // 56;
11 int[] args = new int[6];
14 args[2] = 160; //0; // 1000;
15 args[3] = 80; //0; // 500;
16 args[4] = 81; //51; // 501;
17 args[5] = 240; //0; // 1500;
18 for(int i = 0; i < threadnum; ++i) {
19 TestRunner tr = new TestRunner(args){run};
22 taskexit(s{!initialstate});
25 task t2(TestRunner tr{run}) {
26 //System.printString("task t2\n");