d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

do not generate mes 11 AND mes 3!

Browse source
This commit is contained in:
ceriel 1987-07-17 14:30:30 +00:00
parent 96957f398a
commit 36a5618dc8
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lang/cem/cemcom/code.c
View file

@ -249,6 +249,7 @@ end_proc(fbytes)
- "end" + number of bytes used for local variables - "end" + number of bytes used for local variables
*/ */
arith nbytes; arith nbytes;
char optionsn = options['n'];
#ifdef DATAFLOW #ifdef DATAFLOW
if (options['d']) if (options['d'])
@ -280,6 +281,7 @@ end_proc(fbytes)
#endif #endif
C_ms_par(fbytes); /* # bytes for formals */ C_ms_par(fbytes); /* # bytes for formals */
if (sp_occurred[SP_SETJMP]) { /* indicate use of "setjmp" */ if (sp_occurred[SP_SETJMP]) { /* indicate use of "setjmp" */
options['n'] = 1;
C_ms_gto(); C_ms_gto();
sp_occurred[SP_SETJMP] = 0; sp_occurred[SP_SETJMP] = 0;
} }
@ -288,6 +290,7 @@ end_proc(fbytes)
#endif #endif
LocalFinish(); LocalFinish();
C_end(nbytes); C_end(nbytes);
options['n'] = optionsn;
} }
do_return() do_return()