bridge/class-master/depend/pari/src/basemath/volcano.c
/* Path is an array with space for at least max_len+1 * elements, whose first
 * and second elements are the beginning of the path.  I.e., the path starts
 *   (path[0], path[1])
 * If the result is less than max_len, then the last element of path is on the
 * floor.  If the result equals max_len, then it is unknown whether the last
 * element of path is on the floor or not */
Path is an array with space for at least max_len+1 * elements, whose first
and second elements are the beginning of the path.  I.e., the path starts
(path[0], path[1])
If the result is less than max_len, then the last element of path is on the
floor.  If the result equals max_len, then it is unknown whether the last
element of path is on the floor or not
Path is an array with space for at least max_len + 1 * elements whose first and second elements are the beginning of the path . I . e . the path starts ( path [ 0 ] path [ 1 ] ) If the result is less than max_len then the last element of path is on the floor . If the result equals max_len then it is unknown whether the last element of path is on the floor or not
static long
extend_path(ulong path[], GEN phi, ulong p, ulong pi, long L, long max_len)
{
  pari_sp av = avma;
  long d = 1;
  for ( ; d < max_len; d++)
  {
    GEN nhbr_pol = nhbr_polynomial(path + d, phi, p, pi, L);
    ulong nhbr = Flx_oneroot(nhbr_pol, p);
    avma = av;
    if (nhbr == p) break; 
    path[d+1] = nhbr;
  }
  return d;
}
static long extend_path ( ulong path [ ] , GEN phi , ulong p , ulong pi , long L , long max_len ) { pari_sp av = avma ; long d = 1 ; for ( ; d < max_len ; d ++ ) { GEN nhbr_pol = nhbr_polynomial ( path + d , phi , p , pi , L ) ; ulong nhbr = Flx_oneroot ( nhbr_pol , p ) ; avma = av ; if ( nhbr == p ) break ; path [ d + 1 ] = nhbr ; } return d ; }
Path is an array with space for at least max_len+1 * elements, whose first
 and second elements are the beginning of the path.
Path is an array with space for at least max_len + 1 * elements whose first and second elements are the beginning of the path .
/* no root: we are on the floor. */