Make midpoint() backwards compatible

Author: LSchwerdt

src/SortingAlgorithms.jl

@@ -986,12 +986,15 @@ function pagedMerge!(v::AbstractVector{T}, buf::AbstractVector{T}, lo::Integer,
     end    
 end
 
+# midpoint was added to Base.sort in version 1.4 and later moved to Base
+midpoint = Base.@static isdefined(Base, :midpoint) ? Base.midpoint : isdefined(Base.Sort, :midpoint) ? Base.Sort.midpoint : (lo,hi) -> lo + ((hi - lo) >>> 0x01)
+
 function pagedmergesort!(v::AbstractVector{T}, lo::Integer, hi::Integer, buf::AbstractVector{T}, blockLocation, o=Base.Order.Forward) where T
     len = hi + 1 -lo
     if len <= Base.SMALL_THRESHOLD
         return Base.Sort.sort!(v, lo, hi, Base.Sort.InsertionSortAlg(), o)
     end
-    m = Base.midpoint(lo,hi)
+    m = midpoint(lo,hi)
     pagedmergesort!(v,lo,m,buf,blockLocation,o)
     pagedmergesort!(v,m+1,hi,buf,blockLocation,o)
     if len <= length(buf)
@@ -1007,7 +1010,7 @@ function threaded_pagedmergesort!(v::AbstractVector, lo::Integer, hi::Integer, b
     if len <= Base.SMALL_THRESHOLD
         return Base.Sort.sort!(v, lo, hi, Base.Sort.InsertionSortAlg(), o)
     end
-    m = Base.midpoint(lo,hi)
+    m = midpoint(lo,hi)
     if len > threadingThreshold
         thr = Threads.@spawn threaded_pagedmergesort!(v,lo,m,bufs,blockLocations,c,threadingThreshold,o)
         threaded_pagedmergesort!(v,m+1,hi,bufs,blockLocations,c,threadingThreshold,o)