Skip to content

Commit

Permalink
Move more obvious piracy from Hecke to Nemo
Browse files Browse the repository at this point in the history
  • Loading branch information
lgoettgens committed Jun 29, 2023
1 parent ebf791e commit e6a2aae
Show file tree
Hide file tree
Showing 5 changed files with 550 additions and 2 deletions.
5 changes: 5 additions & 0 deletions src/HeckeMiscMatrix.jl
Original file line number Diff line number Diff line change
Expand Up @@ -234,6 +234,9 @@ function is_zero_row(M::Matrix{T}, i::Int) where {T<:RingElem}
return true
end

export divexact!
export mul!

function divexact!(a::ZZMatrix, b::ZZMatrix, d::ZZRingElem)
ccall((:fmpz_mat_scalar_divexact_fmpz, libflint), Nothing,
(Ref{ZZMatrix}, Ref{ZZMatrix}, Ref{ZZRingElem}), a, b, d)
Expand Down Expand Up @@ -1113,6 +1116,8 @@ diagonal(A::MatrixElem{T}) where {T} = T[A[i, i] for i in 1:nrows(A)]
#
################################################################################

export prod_diagonal

function prod_diagonal(A::ZZMatrix)
a = one(ZZRingElem)
GC.@preserve a A begin
Expand Down
Loading

0 comments on commit e6a2aae

Please sign in to comment.