blob: f94636f8c5561c938fa54fbc22e87c172e217f74 (
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
|
include defs
# ENDCOD -- Code thats gets executed when the END statement is encountered,
# terminating a procedure.
subroutine endcod (endstr)
character endstr(1)
include COMMON_BLOCKS
string sepro "call zzepro"
string sret "return"
if (esp != 0)
call synerr ("Unmatched 'iferr' or 'then' keyword.")
esp = 0 # error stack pointer
body = NO
ername = NO
if (errtbl != NULL)
call rmtabl (errtbl)
errtbl = NULL
memflg = NO # reinit mem decl flag
if (retlab != NULL)
call outnum (retlab)
call outtab
call outstr (sepro)
call outdon
call outtab
call outstr (sret)
call outdon
col = 6
call outtab
call outstr (endstr)
call outdon
end
|
