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

Added handling of cardinal overflow

Browse Source
This commit is contained in:
ceriel
1987-10-30 18:32:14 +00:00
parent e61d8f6356
commit bc6a9fbf66
5 changed files with 63 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
lang/m2/libm2/confarray.c
View File

@@ -1,5 +1,13 @@
#include <m2_traps.h>
/* Runtime handling of "value" conformant arrays.
The routine that accepts the conformant array parameter first calls
the routine new_stackptr. This routine computes a new stack pointer
for the calling routine and returns it. The new space on the stack is
large enough to store the array.
Then, it calls copy_array to do the copying.
*/
struct descr {
char *addr;
int low;
@@ -14,6 +22,9 @@ char *
_new_stackptr(pdescr, a)
register struct descr *pdescr;
{
/* The parameter "a" is not used and not supplied.
It's address is the old stack-pointer.
*/
unsigned int size = (((pdescr->highminlow + 1) * pdescr->size +
(EM_WSIZE - 1)) & ~(EM_WSIZE - 1));
@@ -30,20 +41,19 @@ _new_stackptr(pdescr, a)
}
_copy_array(p, a)
register char *p;
register int *p;
{
register char *q;
register int *q;
register unsigned int sz;
char dummy;
ppdescr--;
sz = (((*ppdescr)->highminlow + 1) * (*ppdescr)->size +
(EM_WSIZE -1)) & ~ (EM_WSIZE - 1);
sz = (((*ppdescr)->highminlow + 1) * (*ppdescr)->size) / EM_WSIZE;
if ((char *) &a - (char *) &dummy > 0) {
(*ppdescr)->addr = q = (char *) &a;
(*ppdescr)->addr = (char *) (q = &a);
}
else (*ppdescr)->addr = q = (char *) &a - sz;
else (*ppdescr)->addr = (char *) (q = &a - sz);
while (sz--) *q++ = *p++;
}