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

new handling of setjmp; now pass return address

Browse source
This commit is contained in:
ceriel 1988-04-20 15:28:10 +00:00
parent 083d520d38
commit ae50580eff
2 changed files with 18 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
lang/cem/cemcom/Makefile.erik
View file

@ -670,6 +670,7 @@ eval.o: nofloat.h
eval.o: nopp.h
eval.o: sizes.h
eval.o: spec_arith.h
eval.o: specials.h
eval.o: stack.h
eval.o: target_sizes.h
eval.o: type.h

17
lang/cem/cemcom/eval.c
View file

@ -26,6 +26,7 @@
#include "align.h"
#include "mes.h"
#include "atw.h"
#include "specials.h"
#define CRASH() crash("EVAL: CRASH at line %u", __LINE__)
#define toword(n) ((n) < word_size ? word_size : (n))
@ -445,7 +446,20 @@ EVAL(expr, val, code, true_label, false_label)
{
register struct expr *ex;
arith ParSize = (arith)0;
label setjmp_label = 0;
if (left->ex_class == Value && left->VL_CLASS == Name) {
if (left->VL_IDF->id_special == SP_SETJMP) {
label addr_label = data_label();
setjmp_label = text_label();
C_df_dlb(addr_label);
C_rom_ilb(setjmp_label);
C_lae_dlb(addr_label, (arith) 0);
C_loi(pointer_size);
ParSize += pointer_size;
}
}
if ((ex = right) != NILEXPR) {
/* function call with parameters*/
while ( ex->ex_class == Oper &&
@ -464,6 +478,9 @@ EVAL(expr, val, code, true_label, false_label)
if (left->ex_class == Value && left->VL_CLASS == Name) {
/* e.g., main() { (*((int (*)())0))(); } */
C_cal(left->VL_IDF->id_text);
if (setjmp_label) {
C_df_ilb(setjmp_label);
}
#ifdef DATAFLOW
{ extern char options[];
if (options['d'])