You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
100 lines
2.4 KiB
100 lines
2.4 KiB
// 1 < m < 2^32, standard representation
|
|
// Assuming (cl_value_len > 32).
|
|
|
|
namespace cln {
|
|
|
|
static const _cl_MI fix32_plus (cl_heap_modint_ring* R, const _cl_MI& x, const _cl_MI& y)
|
|
{
|
|
var uint32 xr = FN_to_UV(x.rep);
|
|
var uint32 yr = FN_to_UV(y.rep);
|
|
var uint32 zr = xr + yr;
|
|
var uint32 m = FN_to_UV(R->modulus);
|
|
if ((zr < xr) || (zr >= m)) { zr = zr - m; }
|
|
return _cl_MI(R, L_to_FN(zr));
|
|
}
|
|
|
|
static const _cl_MI fix32_minus (cl_heap_modint_ring* R, const _cl_MI& x, const _cl_MI& y)
|
|
{
|
|
var uint32 xr = FN_to_UV(x.rep);
|
|
var uint32 yr = FN_to_UV(y.rep);
|
|
var sint32 zr = (xr >= yr ? xr - yr : xr - yr + FN_to_UV(R->modulus));
|
|
return _cl_MI(R, L_to_FN(zr));
|
|
}
|
|
|
|
static const _cl_MI fix32_uminus (cl_heap_modint_ring* R, const _cl_MI& x)
|
|
{
|
|
var uint32 xr = FN_to_UV(x.rep);
|
|
var uint32 zr = (xr==0 ? 0 : FN_to_UV(R->modulus)-xr);
|
|
return _cl_MI(R, L_to_FN(zr));
|
|
}
|
|
|
|
static const _cl_MI fix32_mul (cl_heap_modint_ring* R, const _cl_MI& x, const _cl_MI& y)
|
|
{
|
|
var uint32 xr = FN_to_UV(x.rep);
|
|
var uint32 yr = FN_to_UV(y.rep);
|
|
var uint32 zrhi;
|
|
var uint32 zrlo;
|
|
mulu32(xr,yr,zrhi=,zrlo=);
|
|
var uint32 zr;
|
|
divu_6432_3232(zrhi,zrlo,FN_to_UV(R->modulus),,zr=);
|
|
return _cl_MI(R, L_to_FN(zr));
|
|
}
|
|
|
|
static const _cl_MI fix32_square (cl_heap_modint_ring* R, const _cl_MI& x)
|
|
{
|
|
var uint32 xr = FN_to_UV(x.rep);
|
|
var uint32 zrhi;
|
|
var uint32 zrlo;
|
|
mulu32(xr,xr,zrhi=,zrlo=);
|
|
var uint32 zr;
|
|
divu_6432_3232(zrhi,zrlo,FN_to_UV(R->modulus),,zr=);
|
|
return _cl_MI(R, L_to_FN(zr));
|
|
}
|
|
|
|
static cl_modint_addops fix32_addops = {
|
|
std_zero,
|
|
std_zerop,
|
|
fix32_plus,
|
|
fix32_minus,
|
|
fix32_uminus
|
|
};
|
|
static cl_modint_mulops fix32_mulops = {
|
|
std_one,
|
|
std_canonhom,
|
|
fix32_mul,
|
|
fix32_square,
|
|
std_expt_pos,
|
|
std_recip,
|
|
std_div,
|
|
std_expt,
|
|
std_reduce_modulo,
|
|
std_retract
|
|
};
|
|
|
|
class cl_heap_modint_ring_fix32 : public cl_heap_modint_ring {
|
|
SUBCLASS_cl_heap_modint_ring()
|
|
public:
|
|
// Constructor.
|
|
cl_heap_modint_ring_fix32 (const cl_I& m);
|
|
// Destructor.
|
|
~cl_heap_modint_ring_fix32 () {}
|
|
};
|
|
|
|
static void cl_modint_ring_fix32_destructor (cl_heap* pointer)
|
|
{
|
|
(*(cl_heap_modint_ring_fix32*)pointer).~cl_heap_modint_ring_fix32();
|
|
}
|
|
|
|
cl_class cl_class_modint_ring_fix32 = {
|
|
cl_modint_ring_fix32_destructor,
|
|
cl_class_flags_modint_ring
|
|
};
|
|
|
|
// Constructor.
|
|
inline cl_heap_modint_ring_fix32::cl_heap_modint_ring_fix32(const cl_I& m)
|
|
: cl_heap_modint_ring (m, &std_setops, &fix32_addops, &fix32_mulops)
|
|
{
|
|
type = &cl_class_modint_ring_fix32;
|
|
}
|
|
|
|
} // namespace cln
|