@@ -52,6 +52,7 @@ import InteractiveUtils
5252import LibGit2
5353import UUIDs
5454using LinearAlgebra: qr
55+ using LinearAlgebra: rmul!
5556
5657
5758include (" compatmacro.jl" )
7778 end
7879end
7980
80- # rmul! (NOTE: Purposefully not exported)
81- if VERSION < v " 0.7.0-DEV.3563" # scale! not deprecated
82- if VERSION >= v " 0.7.0-DEV.3449" # LinearAlgebra in the stdlib
83- using LinearAlgebra: UnitUpperTriangular, UnitLowerTriangular, scale!
84- else
85- using Base. LinAlg: UnitUpperTriangular, UnitLowerTriangular, scale!
86- end
87- const Triangle = Union{UpperTriangular, UnitUpperTriangular,
88- LowerTriangular, UnitLowerTriangular}
89- if VERSION < v " 0.7.0-DEV.3204" # A_mul_B! not deprecated
90- rmul! (A:: AbstractMatrix , B:: Triangle ) = A_mul_B! (A, A, B)
91- else
92- rmul! (A:: AbstractMatrix , B:: Triangle ) = mul! (A, A, B)
93- end
94- rmul! (A:: AbstractArray , s:: Number ) = scale! (A, s)
95- rmul! (A:: AbstractMatrix , D:: Diagonal ) = scale! (A, D. diag)
96- rmul! (A:: Diagonal , B:: Diagonal ) = Diagonal (A. diag .*= B. diag)
97- rmul! (A:: Triangle , B:: Diagonal ) = typeof (A)(rmul! (A. data, B))
98- elseif v " 0.7.0-DEV.3563" <= VERSION < v " 0.7.0-DEV.3665" # scale! -> mul1!
99- using LinearAlgebra: mul1!
100- const rmul! = mul1!
101- elseif VERSION >= v " 0.7.0-DEV.3665" # mul1! -> rmul!
102- using LinearAlgebra: rmul!
103- end
104-
10581@static if VERSION < v " 0.7.0-DEV.3936"
10682 Base. fetch (t:: Task ) = wait (t)
10783end
0 commit comments