LOCAL NODE *
putcat(bigptr lhs, bigptr rhs)
{
NODE *p3;
int n;
struct bigblock *lp, *cp;
n = ncat(rhs);
lp = mktmpn(n, TYLENG, NULL);
cp = mktmpn(n, TYADDR, NULL);
n = 0;
putct1(rhs, lp, cp, &n);
p3 = putx( call4(TYSUBR, "s_cat", lhs, cp, lp, MKICON(n) ) );
return p3;
}
mktmp0(int type, expptr lengp)
#endif
{
Addrp rv;
/* arrange for temporaries to be recycled */
/* when this Addrp is freed */
rv = mktmpn(1,type,lengp);
rv->istemp = YES;
return rv;
}
mktmp(int type, expptr lengp)
#endif
{
Addrp rv;
/* arrange for temporaries to be recycled */
/* at the end of this statement... */
rv = mktmpn(1,type,lengp);
frtemp((Addrp)cpexpr((expptr)rv));
return rv;
}
