bridge/class-master/depend/pari/src/language/es.c
/* read a GEN from file f */
read a GEN from file f
read a GEN from file f
static GEN
rdGEN(FILE *f)
{
  size_t L = (size_t)rd_long(f);
  GENbin *p;
  if (!L) return gen_0;
  p = (GENbin*)pari_malloc(sizeof(GENbin) + L*sizeof(long));
  p->len  = L;
  p->x    = (GEN)rd_long(f);
  p->base = (GEN)rd_long(f);
  p->rebase = &shiftaddress_canon;
  pari_fread_longs(GENbinbase(p), L,f);
  return bin_copy(p);
}
static GEN rdGEN ( FILE * f ) { size_t L = ( size_t ) rd_long ( f ) ; GENbin * p ; if ( ! L ) return gen_0 ; p = ( GENbin * ) pari_malloc ( sizeof ( GENbin ) + L * sizeof ( long ) ) ; p -> len = L ; p -> x = ( GEN ) rd_long ( f ) ; p -> base = ( GEN ) rd_long ( f ) ; p -> rebase = & shiftaddress_canon ; pari_fread_longs ( GENbinbase ( p ) , L , f ) ; return bin_copy ( p ) ; }
read a GEN from file f
read a GEN from file f