godzil/ack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

too many changes: some cosmetic; some for 2/4; some for added options

Browse Source
This commit is contained in:
ceriel
1988-03-21 17:06:20 +00:00
parent bb51d7b0e2
commit 0976dfa3b9
2 changed files with 18 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
lang/m2/comp/cstoper.c
View File

@@ -38,7 +38,17 @@ extern char options[];
overflow(expp)
t_node *expp;
{
node_warning(expp, W_ORDINARY, "overflow in constant expression");
if (expp->nd_type != address_type) {
node_warning(expp, W_ORDINARY, "overflow in constant expression");
}
}
underflow(expp)
t_node *expp;
{
if (expp->nd_type != address_type) {
node_warning(expp, W_ORDINARY, "underflow in constant expression");
}
}
STATIC
@@ -295,10 +305,10 @@ cstubin(expp)
if (expp->nd_type->tp_fund == T_INTORCARD) {
expp->nd_type = int_type;
if (! chk_bounds(min_int[sz], o1 - o2, T_CARDINAL)) {
overflow(expp);
underflow(expp);
}
}
else overflow(expp);
else underflow(expp);
}
o1 -= o2;
break;