1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
# variable scoping with default device in braces ------------------------------
tcc -Wnounused | sed '/.* bfifo /s///p;d'
$n = 10;
{
$n = 20;
fifo;
}
lo {
fifo (limit $n B);
}
EOF
limit 10
# variable scoping with explicit device in braces -----------------------------
tcc | sed '/.* bfifo /s///p;d'
$n = 15;
foo {
$n = 30;
fifo (limit $n B);
}
lo {
fifo (limit $n B);
}
EOF
limit 30
limit 15
# variable scoping between devices in braces (first default) ------------------
tcc | sed '/.* bfifo /s///p;d'
{
$n = 20;
fifo (limit $n B);
}
$n = 30;
lo {
fifo (limit $n B);
}
EOF
limit 20
limit 30
# variable scoping between devices in braces (first explicit) -----------------
tcc | sed '/.* bfifo /s///p;d'
foo {
$n = 20;
fifo (limit $n B);
}
$n = 30;
lo {
fifo (limit $n B);
}
EOF
limit 20
limit 30
|
