npush
int npush; /* number of modules to push */
npush = 0;
while ((npush < MAXAPUSH) && (*cp)) {
if (npush == 0)
pushp->sap_anchor = npush;
pushp->sap_list[npush][midx] = *cp++;
pushp->sap_list[npush][midx] = '\0';
npush++;
pushp->sap_npush = npush;
restore(int npop, int npush)
if (npush >= Oldlist.sl_nmods) { /* "cannot" happen */
for (i = npush - 1; i >= 0; --i) {
npush(param[i]);
npush(param[i]);
npush(static_vars[i]);
npush(dynamic_var[i]);
npush(*string);
npush(number);
npush(npop() + npop());
npush(x - y);
npush(npop() * npop());
npush(y ? (x / y) : 0);
npush(y ? (x % y) : 0);
npush(npop() && npop());
npush(npop() || npop());
npush(npop() & npop());
npush(npop() | npop());
npush(npop() ^ npop());
npush(x == y);
npush(x < y);
npush(x > y);
npush(!npop());
npush(~npop());
int npush; /* count # of modules pushed */
npush = 0;
for (i = 0; i < npush; ++i)
npush++;
npush(parm[*string - '1']);
npush(varyable[i-1]);
npush(*string);
npush(number);
npush(x + y);
npush(x - y);
npush(x * y);
npush(x / y);
npush(x % y);
npush(x & y);
npush(x | y);
npush(x ^ y);
npush(x == y);
npush(x < y);
npush(x > y);
npush(!x);
npush(~x);
npush(len);
npush(parm[*string - '1']);
npush(varyable[i-1]);
npush(*string);
npush(number);
npush(x + y);
npush(x - y);
npush(x * y);
npush(x / y);
npush(x % y);
npush(x & y);
npush(x | y);
npush(x ^ y);
npush(x < y);
npush(x > y);
npush(x == y);
npush(x && y);
npush(x || y);
npush(!x);
npush(~x);