short *xalloc(nint
,s
) char *s
;
i
=(short *)malloc(2*(unsigned)nint
+4);
if(dbg
) fprintf(stderr
, "%s: %o\n",s
,i
);
fatal("mp: no free space");
fprintf(stderr
,"%s\n",s
);
if(dbg
) fprintf(stderr
, "xfree ");
if((i
=a
->len
)==0) return;
for(j
=i
;j
>0 && a
->val
[j
-1]==0;j
--);
a
=(MINT
*)xalloc(2,"itom");
a
->val
=xalloc(1,"itom1");
a
->val
=xalloc(1,"itom2");
if(a
->len
!=b
->len
) return(a
->len
-b
->len
);