occasional corruption while loading `Matrix{Rational{BigInt}}` about jld2.jl HOT 3 CLOSED

function serialize_bigrat(A0::Array{Rational{BigInt}})
  num_last = Array{Int64}(undef,size(A0))
  den_last = Array{Int64}(undef,size(A0))
  j = 0; for i in eachindex(A0); num_last[i] = (j += abs(A0[i].num.size)); end
  j = 0; for i in eachindex(A0); den_last[i] = (j += abs(A0[i].den.size)); end
  num_buf = Vector{UInt64}(undef,num_last[end])
  den_buf = Vector{UInt64}(undef,den_last[end])
  for i in eachindex(A0)
    x = A0[i]
    @assert -100 ≤ x.num.size ≤ 100 i # safety check
    @assert -100 ≤ x.den.size ≤ 100 i # safety check
    num_last[i] = copysign(num_last[i],x.num.size)
    unsafe_copyto!(pointer(num_buf,abs(num_last[i]) - abs(x.num.size) + 1),x.num.d,abs(x.num.size))
    unsafe_copyto!(pointer(den_buf,abs(den_last[i]) - abs(x.den.size) + 1),x.den.d,abs(x.den.size))
  end
  return (num_last,den_last,num_buf,den_buf)
end
function deserialize_bigrat(num_last::Array{Int64},den_last::Array{Int64},num_buf::Vector{UInt64},den_buf::Vector{UInt64})
  @inline function deserialize_BigInt(x_last,x_buf,i)
    n = x_last[i]
    s = abs(n) - abs(i > 1 ? x_last[i-1] : 0)
    x = BigInt(nbits=64*s)
    @assert x.alloc >= s
    x.size = copysign(s,n)
    unsafe_copyto!(x.d,pointer(x_buf,abs(n)-s+1),s)
    x
  end
  A1 = Array{Rational{BigInt}}(undef,size(num_last))
  for i in eachindex(num_last)
    A1[i] = deserialize_BigInt(num_last,num_buf,i) // deserialize_BigInt(den_last,den_buf,i)
  end
  return A1
end