/*-------------------------------------------------------------------------* * PL_NOT_PRIME_RANGE * * * *-------------------------------------------------------------------------*/ void Pl_Not_Prime_Range(Range *r) { if (prime_vec_size != pl_vec_size) Compute_Prime_Range(); Pl_Range_Copy(r, ¬_prime_range); }
/*-------------------------------------------------------------------------* * PL_FD_COPY_VARIABLE0 * * * * returns the size of the created fd var. * *-------------------------------------------------------------------------*/ int Pl_Fd_Copy_Variable0(WamWord *dst_adr, WamWord *fdv_adr) { WamWord *save_CS; int size; save_CS = CS; CS = dst_adr; Pl_Fd_New_Variable(); /* we know that it is pushed at CS (=dst_adr) */ Nb_Elem(dst_adr) = Nb_Elem(fdv_adr); Pl_Range_Copy(Range(dst_adr), Range(fdv_adr)); size = CS - dst_adr; CS = save_CS; return size; }