From 852601d0b54874fc0464fad46e67988fe62fce75 Mon Sep 17 00:00:00 2001 From: ceriel Date: Thu, 14 Mar 1991 13:16:32 +0000 Subject: [PATCH] minor mods --- lang/m2/comp/chk_expr.c | 1 - lang/m2/comp/cstoper.c | 12 ++++++------ 2 files changed, 6 insertions(+), 7 deletions(-) diff --git a/lang/m2/comp/chk_expr.c b/lang/m2/comp/chk_expr.c index 41678406d..7ba78a267 100644 --- a/lang/m2/comp/chk_expr.c +++ b/lang/m2/comp/chk_expr.c @@ -493,7 +493,6 @@ MkSet(size) register arith *s, *t; s = t = (arith *) Malloc(size); - clear((char *) s , size); s++; size /= sizeof(arith); while (size--) *t++ = 0; diff --git a/lang/m2/comp/cstoper.c b/lang/m2/comp/cstoper.c index c7c1cdefd..219bea687 100644 --- a/lang/m2/comp/cstoper.c +++ b/lang/m2/comp/cstoper.c @@ -31,11 +31,11 @@ extern char *symbol2str(); #define arith_sign ((arith) (1L << (sizeof(arith) * 8 - 1))) #ifndef NOCROSS -arith full_mask[MAXSIZE];/* full_mask[1] == 0xFF, full_mask[2] == 0xFFFF, .. */ -arith max_int[MAXSIZE]; /* max_int[1] == 0x7F, max_int[2] == 0x7FFF, .. */ -arith min_int[MAXSIZE]; /* min_int[1] == 0xFFFFFF80, min_int[2] = 0xFFFF8000, - ... - */ +arith full_mask[MAXSIZE+1];/* full_mask[1] == 0xFF, full_mask[2] == 0xFFFF, .. */ +arith max_int[MAXSIZE+1]; /* max_int[1] == 0x7F, max_int[2] == 0x7FFF, .. */ +arith min_int[MAXSIZE+1]; /* min_int[1] == 0xFFFFFF80, min_int[2] = 0xFFFF8000, + ... + */ unsigned int wrd_bits; /* number of bits in a word */ #else arith full_mask[] = { 0L, 0xFFL, 0xFFFFL, 0L, 0xFFFFFFFFL }; @@ -676,7 +676,7 @@ InitCst() while (!(bt < 0)) { i++; bt = (bt << 8) + 0377; - if (i == MAXSIZE) + if (i == MAXSIZE+1) fatal("array full_mask too small for this machine"); full_mask[i] = bt; max_int[i] = bt & ~(1L << ((8 * i) - 1)); -- 2.34.1