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

A fix: make error_type usable as function type; prevents core dump on some inputs

Browse source
This commit is contained in:
ceriel 1993-05-14 12:01:14 +00:00
parent b4aef1eb5e
commit 4d1b0d3486
2 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lang/cem/cemcom.ansi/code.c
View file

@ -263,11 +263,9 @@ begin_proc(ds, idf) /* to be called when entering a procedure */
func_name = name; func_name = name;
if (def->df_type->tp_fund != FUNCTION) { if (def->df_type->tp_fund != FUNCTION) {
error("making function body for non-function"); error("making function body for non-function");
func_type = error_type; def->df_type = error_type;
} }
else {
func_type = def->df_type->tp_up; func_type = def->df_type->tp_up;
}
#ifdef LINT #ifdef LINT
func_notypegiven = ds->ds_notypegiven; func_notypegiven = ds->ds_notypegiven;
#endif #endif

1
lang/cem/cemcom.ansi/main.c
View file

@ -348,6 +348,7 @@ init()
lngdbl_type = standard_type(LNGDBL, 0, lngdbl_align, lngdbl_size); lngdbl_type = standard_type(LNGDBL, 0, lngdbl_align, lngdbl_size);
void_type = standard_type(VOID, 0, 1, (arith)-1); void_type = standard_type(VOID, 0, 1, (arith)-1);
error_type = standard_type(ERRONEOUS, 0, 1, (arith)1); error_type = standard_type(ERRONEOUS, 0, 1, (arith)1);
error_type->tp_up = error_type;
/* Pointer Arithmetic type: all arithmetics concerning /* Pointer Arithmetic type: all arithmetics concerning
pointers is supposed to be performed in the pointers is supposed to be performed in the