Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] Annotation of /tests/new-tests/test-new+die.diderot
ViewVC logotype

Annotation of /tests/new-tests/test-new+die.diderot

Parent Directory Parent Directory | Revision Log Revision Log


Revision 4962 - (view) (download)

1 : jhr 4962 #version 2.0
2 :    
3 :     // test the "new" + "die" operations
4 :     //
5 :    
6 :     input int MaxNumStrands = 8191; // should be 2^n - 1 for some n
7 :     int step = 0;
8 :    
9 :     strand S (int i) {
10 :     output int id = i;
11 :     update {
12 :     if (id < MaxNumStrands) {
13 :     new S (2*id+1);
14 :     new S (2*id+2);
15 :     }
16 :     if (id % (step+1) == 0) {
17 :     die;
18 :     }
19 :     else {
20 :     stabilize;
21 :     }
22 :     }
23 :    
24 :     }
25 :    
26 :     update {
27 :     step += 1;
28 :     print ("global update ", step, "\n");
29 :     }
30 :    
31 :     create_collection { S(0) | i in 1..1 }

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0