blob: b784fab50ba3bca81ec7ba07d3f7a9999ce847d6 (
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
|
#-h- untils 397 local 12/01/80 15:55:11
# untils - generate code for until or end of repeat
include defs
subroutine untils (lab, token)
integer lab, token
include COMMON_BLOCKS
character ptoken (MAXTOK)
integer junk
integer lex
xfer = NO
call outnum (lab)
if (token == LEXUNTIL) {
junk = lex (ptoken)
call ifgo (lab - 1)
}
else
call outgo (lab - 1)
call indent (-1)
call outcon (lab + 1)
return
end
|
