bridge/class-master/depend/pari/src/language/eval.c
/* kill ep->value and replace by preceding one, poped from value stack */
kill ep->value and replace by preceding one, poped from value stack
kill ep - > value and replace by preceding one poped from value stack
static void
pop_val(entree *ep)
{
  var_cell *v = (var_cell*) ep->pvalue;
  if (v != INITIAL)
  {
    GEN old_val = (GEN) ep->value; 
    ep->value  = v->value;
    if (v->flag == COPY_VAL) gunclone_deep(old_val);
    ep->pvalue = (char*) v->prev;
    ep->valence=v->valence;
    pari_free((void*)v);
  }
}
static void pop_val ( entree * ep ) { var_cell * v = ( var_cell * ) ep -> pvalue ; if ( v != INITIAL ) { GEN old_val = ( GEN ) ep -> value ; ep -> value = v -> value ; if ( v -> flag == COPY_VAL ) gunclone_deep ( old_val ) ; ep -> pvalue = ( char * ) v -> prev ; ep -> valence = v -> valence ; pari_free ( ( void * ) v ) ; } }
kill ep->value and replace by preceding one, poped from value stack
kill ep - > value and replace by preceding one poped from value stack
/* protect against SIGINT */