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

minor mods

Browse source
This commit is contained in:
ceriel 1991-03-14 13:16:32 +00:00
parent 5ebc2017a0
commit 852601d0b5
2 changed files with 6 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
lang/m2/comp/chk_expr.c
View file

@ -493,7 +493,6 @@ MkSet(size)
register arith *s, *t; register arith *s, *t;
s = t = (arith *) Malloc(size); s = t = (arith *) Malloc(size);
clear((char *) s , size);
s++; s++;
size /= sizeof(arith); size /= sizeof(arith);
while (size--) *t++ = 0; while (size--) *t++ = 0;

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

@ -31,9 +31,9 @@ extern char *symbol2str();
#define arith_sign ((arith) (1L << (sizeof(arith) * 8 - 1))) #define arith_sign ((arith) (1L << (sizeof(arith) * 8 - 1)))
#ifndef NOCROSS #ifndef NOCROSS
arith full_mask[MAXSIZE];/* full_mask[1] == 0xFF, full_mask[2] == 0xFFFF, .. */ arith full_mask[MAXSIZE+1];/* full_mask[1] == 0xFF, full_mask[2] == 0xFFFF, .. */
arith max_int[MAXSIZE]; /* max_int[1] == 0x7F, max_int[2] == 0x7FFF, .. */ arith max_int[MAXSIZE+1]; /* max_int[1] == 0x7F, max_int[2] == 0x7FFF, .. */
arith min_int[MAXSIZE]; /* min_int[1] == 0xFFFFFF80, min_int[2] = 0xFFFF8000, arith min_int[MAXSIZE+1]; /* min_int[1] == 0xFFFFFF80, min_int[2] = 0xFFFF8000,
... ...
*/ */
unsigned int wrd_bits; /* number of bits in a word */ unsigned int wrd_bits; /* number of bits in a word */
@ -676,7 +676,7 @@ InitCst()
while (!(bt < 0)) { while (!(bt < 0)) {
i++; i++;
bt = (bt << 8) + 0377; bt = (bt << 8) + 0377;
if (i == MAXSIZE) if (i == MAXSIZE+1)
fatal("array full_mask too small for this machine"); fatal("array full_mask too small for this machine");
full_mask[i] = bt; full_mask[i] = bt;
max_int[i] = bt & ~(1L << ((8 * i) - 1)); max_int[i] = bt & ~(1L << ((8 * i) - 1));