BadVPN – Blame information for rev 1

Subversion Repositories:
Rev:
Rev Author Line No. Line
1 office 1 process main {
2 depend_scope() scope;
3 var("0") x;
4 process_manager() mgr;
5  
6 var("false") backtrack_check;
7 backtrack_point() point;
8 If (backtrack_check) {
9 val_equal(x, "2") a; # must not have rebound temporarily to A during backtracking
10 assert(a);
11 exit("0");
12 };
13  
14 scope->provide("A");
15 mgr->start("t1", "t1", {});
16 val_equal(x, "1") a; # must have bound to A immediately
17 assert(a);
18  
19 scope->provide("B") mgr;
20 val_equal(x, "2") a; # must have rebound to B immediately
21 assert(a);
22  
23 backtrack_check->set("true");
24 point->go();
25 }
26  
27 template t1 {
28 _caller.scope->depend({"B", "A"}) dep;
29 num_add(dep.x, "1") new_x;
30 dep.x->set(new_x);
31 }