blob: 348f8de38b920e693ce14df6ad47e4d17228a546 (
plain) (
blame)
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
|
#-h- swcode 746 local 12/01/80 15:55:06
# swcode - generate code for beginning of switch statement
include defs
subroutine swcode (lab)
integer lab
include COMMON_BLOCKS
character tok (MAXTOK)
integer labgen, gnbtok
lab = labgen (2)
swvnum = swvnum + 1
swvlev = swvlev + 1
if (swvlev > MAXSWNEST)
call baderr ("switches nested too deeply.")
swvstk(swvlev) = swvnum
if (swlast + 3 > MAXSWITCH)
call baderr ("switch table overflow.")
swstak (swlast) = swtop
swstak (swlast + 1) = 0
swstak (swlast + 2) = 0
swtop = swlast
swlast = swlast + 3
xfer = NO
call outtab # Innn=(e)
call swvar (swvnum)
call outch (EQUALS)
call balpar
call outdwe
call outgo (lab) # goto L
call indent (1)
xfer = YES
while (gnbtok (tok, MAXTOK) == NEWLINE)
;
if (tok (1) != LBRACE) {
call synerr ("missing left brace in switch statement.")
call pbstr (tok)
}
return
end
|
