From 40e5a5811c6ffce9b0974e93cdd927cbcf60c157 Mon Sep 17 00:00:00 2001
From: Joe Hunkeler <jhunkeler@gmail.com>
Date: Tue, 11 Aug 2015 16:51:37 -0400
Subject: Repatch (from linux) of OSX IRAF

---
 unix/boot/spp/rpp/rpprat/beginc.r | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 unix/boot/spp/rpp/rpprat/beginc.r

(limited to 'unix/boot/spp/rpp/rpprat/beginc.r')

diff --git a/unix/boot/spp/rpp/rpprat/beginc.r b/unix/boot/spp/rpp/rpprat/beginc.r
new file mode 100644
index 00000000..ceb39e4b
--- /dev/null
+++ b/unix/boot/spp/rpp/rpprat/beginc.r
@@ -0,0 +1,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
-- 
cgit