bridge/class-master/depend/pari/src/language/eval.c
/* make GP variables safe for avma = top */
make GP variables safe for avma = top
make GP variables safe for avma = top
static void
lvar_make_safe(void)
{
  long n;
  entree *ep;
  for (n = 0; n < functions_tblsz; n++)
    for (ep = functions_hash[n]; ep; ep = ep->next)
      if (EpVALENCE(ep) == EpVAR)
      { 
        var_cell *v = (var_cell*)ep->pvalue;
        if (v && v->flag == PUSH_VAL) {
          GEN x = (GEN)ep->value;
          if (x) changevalue(ep, (GEN)ep->value); else pop_val(ep);
        }
      }
}
static void lvar_make_safe ( void ) { long n ; entree * ep ; for ( n = 0 ; n < functions_tblsz ; n ++ ) for ( ep = functions_hash [ n ] ; ep ; ep = ep -> next ) if ( EpVALENCE ( ep ) == EpVAR ) { var_cell * v = ( var_cell * ) ep -> pvalue ; if ( v && v -> flag == PUSH_VAL ) { GEN x = ( GEN ) ep -> value ; if ( x ) changevalue ( ep , ( GEN ) ep -> value ) ; else pop_val ( ep ) ; } } }
make GP variables safe for avma = top
make GP variables safe for avma = top
/* make sure ep->value is a COPY */