From 7a8f9ed57ccc4414e922c2e834b6d19cdccb77b0 Mon Sep 17 00:00:00 2001
From: sater <none@none>
Date: Thu, 17 May 1984 13:54:01 +0000
Subject: [PATCH] added rcsid Recognize and process mes ms_gto

---
 util/opt/getline.c | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/util/opt/getline.c b/util/opt/getline.c
index 49b0809ce..d1080f9c5 100644
--- a/util/opt/getline.c
+++ b/util/opt/getline.c
@@ -1,3 +1,7 @@
+#ifndef NORCSID
+static char rcsid[] = "$Header$";
+#endif
+
 #include <stdio.h>
 #include "param.h"
 #include "types.h"
@@ -468,9 +472,11 @@ int inpseudo(n) short n; {
 				error("This optimizer cannot handle wordsize>2");
 #endif
 			break;
+		case ms_gto:
+			curpro.gtoproc=1;
+			/* Treat as empty mes ms_reg */
 		case ms_reg:
-			if (prodepth==0)
-				error("MES REG outside procedure");
+			tstinpro();
 			regvar(lnp->l_a.la_arg->a_next);
 			oldline(lnp);
 			lnp=newline(OPNO);
@@ -497,6 +503,7 @@ int inpseudo(n) short n; {
 			error("bad second arg of PRO");
 		}
 		prodepth++;
+		curpro.gtoproc=0;
 		if (prodepth>1) {
 			register i;
 
@@ -545,5 +552,5 @@ int inpseudo(n) short n; {
 tstinpro() {
 
 	if (prodepth==0)
-		error("Instruction or label not allowed outside procedure");
+		error("This is not allowed outside a procedure");
 }
-- 
2.34.1