From: ceriel <none@none>
Date: Fri, 17 Jul 1987 14:30:30 +0000 (+0000)
Subject: do not generate mes 11 AND mes 3!
X-Git-Tag: release-5-5~3998
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=36a5618dc832add30ca54ac48dc171ce6e4dbd5e;p=ack.git

do not generate mes 11 AND mes 3!
---

diff --git a/lang/cem/cemcom/code.c b/lang/cem/cemcom/code.c
index dc2ffd3b9..0031317d3 100644
--- a/lang/cem/cemcom/code.c
+++ b/lang/cem/cemcom/code.c
@@ -249,6 +249,7 @@ end_proc(fbytes)
 		-	"end" + number of bytes used for local variables
 	*/
 	arith nbytes;
+	char optionsn = options['n'];
 
 #ifdef	DATAFLOW
 	if (options['d'])
@@ -280,6 +281,7 @@ end_proc(fbytes)
 #endif
 	C_ms_par(fbytes);		/* # bytes for formals		*/
 	if (sp_occurred[SP_SETJMP]) {	/* indicate use of "setjmp"	*/
+		options['n'] = 1;
 		C_ms_gto();
 		sp_occurred[SP_SETJMP] = 0;
 	}
@@ -288,6 +290,7 @@ end_proc(fbytes)
 #endif
 	LocalFinish();
 	C_end(nbytes);
+	options['n'] = optionsn;
 }
 
 do_return()