File: grpalloc

package info (click to toggle)
tcng 10b-1
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 3,632 kB
  • ctags: 2,515
  • sloc: ansic: 19,038; pascal: 4,640; yacc: 2,619; sh: 1,908; perl: 1,546; lex: 772; makefile: 755
file content (45 lines) | stat: -rw-r--r-- 1,145 bytes parent folder | download | duplicates (5)
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
# Offset groups below ten are reserved ----------------------------------------
tcc -c 2>&1
field foo = field_root(9);
EOF
ERROR
<stdin>:1: field root numbers < 10 are reserved for internal use near ";"
# Offset groups starting with ten can be used ---------------------------------
tcc -c
field foo = field_root(10);
EOF
# tcc auto-assigns offset group numbers starting with 100 ---------------------
tcc -xif:err 2>&1 | grep 'match [0-9]'
field foo = raw;
field bar = foo[foo];

prio {
    class if bar == 0;
}
EOF
match 100:0:8=0x00 action 1
# tcc avoids user-assigned offset group numbers (1) ---------------------------
tcc -xif:err 2>&1 | grep 'match [0-9]'
field user = field_root(100);
field foo = raw;
field bar = foo[foo];

prio {
    class if bar == 0;
}
EOF
match 101:0:8=0x00 action 1
# tcc avoids user-assigned offset group numbers (2) ---------------------------
tcc -xif:err 2>&1 | grep 'match [0-9]'
field user1 = field_root(100);
field user2 = field_root(101);
field user3 = field_root(102);
field user5 = field_root(104);
field foo = raw;
field bar = foo[foo];

prio {
    class if bar == 0;
}
EOF
match 103:0:8=0x00 action 1