blob: ceb39e4b01017a8d4b5594b2d46504c5b2483b75 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
include defs
# BEGINC -- Code that gets executed when the "begin" statement is encountered,
# at the beginning of the executable section of a procedure.
subroutine beginc
integer labgen
include COMMON_BLOCKS
body = YES # in body of procedure
ername = NO # errchk name not encountered
esp = 0 # error stack pointer
label = FIRST_LABEL # start over with labels
retlab = labgen (1) # label for return stmt
logical_column = 6 + INDENT
col = logical_column
end
|
