blob: 1b4a812e50b0e4e186d65bb9e088793449a57f1c (
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
|
include defs
# THENCO -- Generate code for the "then" part of a compound IFERR statement.
subroutine thenco (tok, lab)
integer lab, tok
include COMMON_BLOCKS
string siferr "if (.not.xerpop()) "
string sifnoerr "if (xerpop()) "
xfer = NO
call outnum (lab+2)
call outtab
if (tok == LEXIFERR)
call outstr (siferr)
else
call outstr (sifnoerr)
call outgo (lab)
esp = esp - 1 # pop error stack
call indent (1)
return
end
|
