dasd

thofma · Apr 26, 2024 · b9fbf39 · b9fbf39
1 parent 5451e72
commit b9fbf39
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 9 deletions.
diff --git a/src/AlgAss/radical.jl b/src/AlgAss/radical.jl
@@ -366,7 +366,7 @@ function _lift!(A::zzModMatrix, B::fpMatrix, Mtemp)
 end
 
 function _lift!(A::zzModMatrix, B::FpMatrix, Mtemp::ZZMatrix)
-  ccall((:fmpz_mod_mat_get_fmpz_mat, libflint), Cvoid, (Ref{ZZMatrix}, Ref{FpMatrix}, Ref{Nemo.fmpz_mod_ctx_struct}), Mtemp, B, base_ring(B).inv)
+  ccall((:fmpz_mod_mat_get_fmpz_mat, libflint), Cvoid, (Ref{ZZMatrix}, Ref{FpMatrix}, Ref{Nemo.fmpz_mod_ctx_struct}), Mtemp, B, base_ring(B).ninv)
   ccall((:fmpz_mat_get_nmod_mat, libflint), Cvoid, (Ref{zzModMatrix}, Ref{ZZMatrix}), A, Mtemp)
   return A
 end
diff --git a/src/Misc/FiniteField.jl b/src/Misc/FiniteField.jl
@@ -1,11 +1,11 @@
 
 function _reduce(a::fqPolyRepFieldElem)
   A = parent(a)
-  #if a.length < 2*degree(A)
+  if a.length < 2*degree(A)
     ccall((:fq_nmod_reduce, libflint), Nothing, (Ref{fqPolyRepFieldElem}, Ref{fqPolyRepField}), a, A)
-  #else
-  #  ccall((:nmod_poly_rem, libflint), Nothing, (Ref{fqPolyRepFieldElem}, Ref{fqPolyRepFieldElem}, Ref{Nothing}, Ref{Nothing}), a, a, pointer_from_objref(A)+6*sizeof(Int) + 2*sizeof(Ptr{Nothing}), pointer_from_objref(A)+sizeof(ZZRingElem))
-  #end
+  else
+    ccall((:nmod_poly_rem, libflint), Nothing, (Ref{fqPolyRepFieldElem}, Ref{fqPolyRepFieldElem}, Ref{Nothing}, Ref{Nothing}), a, a, pointer_from_objref(A)+6*sizeof(Int) + sizeof(Ptr{Nothing}), pointer_from_objref(A)+sizeof(ZZRingElem))
+  end
 end
 
 function _reduce(a::FqPolyRepFieldElem)

diff --git a/src/ModAlgAss/MeatAxe.jl b/src/ModAlgAss/MeatAxe.jl
@@ -1176,11 +1176,9 @@ function powermod(f::Zmodn_poly, e::ZZRingElem, g::Zmodn_poly)
   if fits(Int, e)
     return powermod(f, Int(e), g)
   else
-    _e = BigInt()
     z = parent(f)()
-    ccall((:fmpz_get_mpz, libflint), Nothing, (Ref{BigInt}, Ref{ZZRingElem}), _e, e)
-    ccall((:nmod_poly_powmod_mpz_binexp, libflint), Nothing,
-          (Ref{Zmodn_poly}, Ref{Zmodn_poly}, Ref{BigInt}, Ref{Zmodn_poly}),
+    ccall((:nmod_poly_powmod_fmpz_binexp, libflint), Nothing,
+          (Ref{Zmodn_poly}, Ref{Zmodn_poly}, Ref{ZZRingElem}, Ref{Zmodn_poly}),
            z, f, e, g)
     return z
   end