19 |
|
#include <ctype.h> |
20 |
|
|
21 |
|
OBJREC *objblock[MAXOBJBLK]; /* our objects */ |
22 |
< |
int nobjects = 0; /* # of objects */ |
22 |
> |
OBJECT nobjects = 0; /* # of objects */ |
23 |
|
|
24 |
|
|
25 |
|
readobj(input) /* read in an object file or stream */ |
105 |
|
error(USER, errmsg); |
106 |
|
} |
107 |
|
objp->otype = objptr(alias)->otype; |
108 |
< |
bcopy(&objptr(alias)->oargs, &objp->oargs, sizeof(FUNARGS)); |
108 |
> |
copystruct(&objp->oargs, &objptr(alias)->oargs); |
109 |
|
} else if (readfargs(&objp->oargs, fp) < 0) { |
110 |
|
sprintf(errmsg, "(%s): bad arguments", name); |
111 |
|
objerror(objp, USER, errmsg); |
143 |
|
return(-1); |
144 |
|
#ifdef IARGS |
145 |
|
if (fa->niargs = n) { |
146 |
< |
fa->iarg = (long *)bmalloc(n*sizeof(int)); |
146 |
> |
fa->iarg = (long *)bmalloc(n*sizeof(long)); |
147 |
|
if (fa->iarg == NULL) |
148 |
|
goto memerr; |
149 |
|
for (i = 0; i < n; i++) |
182 |
|
i = nobjects >> 6; |
183 |
|
if (i >= MAXOBJBLK) |
184 |
|
return(OVOID); |
185 |
< |
objblock[i] = (OBJREC *)malloc(0100*sizeof(OBJREC)); |
185 |
> |
objblock[i] = (OBJREC *)bmalloc(0100*sizeof(OBJREC)); |
186 |
|
if (objblock[i] == NULL) |
187 |
|
return(OVOID); |
188 |
|
} |