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

adapted for 2/4 code generation, and also fixed some bugs

Browse Source
This commit is contained in:
ceriel
1988-03-18 14:23:04 +00:00
parent 1505e9facf
commit 64432046db
10 changed files with 100 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -10,6 +10,12 @@
*/
#include <m2_traps.h>
#if EM_WSIZE==EM_PSIZE
typedef unsigned pcnt;
#else
typedef unsigned long pcnt;
#endif
struct descr {
char *addr;
int low;
@@ -24,7 +30,7 @@ char *
_new_stackptr(pdescr, a)
register struct descr *pdescr;
{
unsigned int size = (((pdescr->highminlow + 1) * pdescr->size +
pcnt size = (((pdescr->highminlow + 1) * pdescr->size +
(EM_WSIZE - 1)) & ~(EM_WSIZE - 1));
if (ppdescr >= &descrs[10]) {
@@ -43,7 +49,7 @@ _copy_array(p, a)
register char *p;
{
register char *q;
register unsigned int sz;
register pcnt sz;
char dummy;
ppdescr--;