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

make interface new_stackptr cleaner

Browse source
This commit is contained in:
ceriel 1988-06-13 10:34:14 +00:00
parent 8f9818c385
commit 969b5221f5
1 changed files with 11 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
lang/m2/libm2/confarray.c
View file

@ -26,10 +26,11 @@ struct descr {
static struct descr *descrs[10]; static struct descr *descrs[10];
static struct descr **ppdescr = descrs; static struct descr **ppdescr = descrs;
char * pcnt
new_stackptr(pdescr, a) new_stackptr(pdscr, a)
register struct descr *pdescr; struct descr *pdscr;
{ {
register struct descr *pdescr = pdscr;
pcnt size = (((pdescr->highminlow + 1) * pdescr->size + pcnt size = (((pdescr->highminlow + 1) * pdescr->size +
(EM_WSIZE - 1)) & ~(EM_WSIZE - 1)); (EM_WSIZE - 1)) & ~(EM_WSIZE - 1));
@ -38,16 +39,17 @@ new_stackptr(pdescr, a)
TRP(M2_TOOMANY); TRP(M2_TOOMANY);
} }
*ppdescr++ = pdescr; *ppdescr++ = pdescr;
if ((char *) &a - (char *) &size > 0) { if ((char *) &a - (char *) &pdscr > 0) {
/* stack grows downwards */ /* stack grows downwards */
return (char *) &a - size; return - size;
} }
else return (char *) &a + size; return size;
} }
copy_array(p, a) copy_array(pp, a)
register char *p; char *pp;
{ {
register char *p = pp;
register char *q; register char *q;
register pcnt sz; register pcnt sz;
char dummy; char dummy;
@ -55,7 +57,7 @@ copy_array(p, a)
ppdescr--; ppdescr--;
sz = ((*ppdescr)->highminlow + 1) * (*ppdescr)->size; sz = ((*ppdescr)->highminlow + 1) * (*ppdescr)->size;
if ((char *) &a - (char *) &dummy > 0) { if ((char *) &a - (char *) &pp > 0) {
(*ppdescr)->addr = q = (char *) &a; (*ppdescr)->addr = q = (char *) &a;
} }
else (*ppdescr)->addr = q = (char *) &a - else (*ppdescr)->addr = q = (char *) &a -