bridge/class-master/depend/pari/src/basemath/mftrace.c
/* reset cachenew for new level incorporating new DATA, tf a t_MF_NEWTRACE
 * (+ possibly initialize 'full' for new allowed levels) */
reset cachenew for new level incorporating new DATA, tf a t_MF_NEWTRACE
(+ possibly initialize 'full' for new allowed levels)
reset cachenew for new level incorporating new DATA tf a t_MF_NEWTRACE ( + possibly initialize ' full ' for new allowed levels )
static void
reset_cachenew(cachenew_t *cache, long N, GEN tf)
{
  long i, n, l;
  GEN v, DATA = newtrace_DATA(N,tf);
  cache->DATA = DATA;
  if (!DATA) return;
  n = cache->n;
  v = cache->vfull; l = N+1; 
  for (i = 1; i < l; i++)
    if (typ(gel(v,i)) == t_INT && lg(gel(DATA,i)) != 1)
      gel(v,i) = const_vec(n, NULL);
  cache->VCHIP = gel(gel(DATA,N),_VCHIP);
}
static void reset_cachenew ( cachenew_t * cache , long N , GEN tf ) { long i , n , l ; GEN v , DATA = newtrace_DATA ( N , tf ) ; cache -> DATA = DATA ; if ( ! DATA ) return ; n = cache -> n ; v = cache -> vfull ; l = N + 1 ; for ( i = 1 ; i < l ; i ++ ) if ( typ ( gel ( v , i ) ) == t_INT && lg ( gel ( DATA , i ) ) != 1 ) gel ( v , i ) = const_vec ( n , NULL ) ; cache -> VCHIP = gel ( gel ( DATA , N ) , _VCHIP ) ; }
reset cachenew for new level incorporating new DATA, tf a t_MF_NEWTRACE
 (+ possibly initialize 'full' for new allowed levels)
reset cachenew for new level incorporating new DATA tf a t_MF_NEWTRACE ( + possibly initialize ' full ' for new allowed levels )
/* = lg(DATA) */