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

fix typo and parameters of overflow

Browse source
This commit is contained in:
ceriel 1988-03-08 10:35:53 +00:00
parent 5cf3fc1017
commit 78926a5a84
2 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lang/m2/comp/cstoper.c
View file

@ -295,10 +295,10 @@ cstubin(expp)
if (expp->nd_type->tp_fund == T_INTORCARD) { if (expp->nd_type->tp_fund == T_INTORCARD) {
expp->nd_type = int_type; expp->nd_type = int_type;
if (! chk_bounds(min_int[sz], o1 - o2, T_CARDINAL)) { if (! chk_bounds(min_int[sz], o1 - o2, T_CARDINAL)) {
overflow(); overflow(expp);
} }
} }
else overflow(); else overflow(expp);
} }
o1 -= o2; o1 -= o2;
break; break;

2
lang/m2/comp/walk.c
View file

@ -230,7 +230,7 @@ WalkProcedure(procedure)
DoFilename(procedure->prc_body); DoFilename(procedure->prc_body);
TmpOpen(procscope); TmpOpen(procscope);
func_type = tp = RemoveEqual(RresultType(procedure->df_type)); func_type = tp = RemoveEqual(ResultType(procedure->df_type));
if (tp) { if (tp) {
func_res_size = WA(tp->tp_size); func_res_size = WA(tp->tp_size);