@@ -1553,46 +1553,46 @@ for (f1, f2) in ((:*, :mul!), (:\, :ldiv!))
15531553 end
15541554end
15551555
1556- for (ipop, op, xform ) in (
1557- (:mul! , :* , :Adjoint ),
1558- (:mul! , :* , :Transpose ),
1559- (:ldiv! , :\ , :Adjoint ),
1560- (:ldiv! , :\ , :Transpose ))
1556+ for (ipop, op, xformtype, xformop ) in (
1557+ (:mul! , :* , :Adjoint , :adjoint ),
1558+ (:mul! , :* , :Transpose , :transpose ),
1559+ (:ldiv! , :\ , :Adjoint , :adjoint ),
1560+ (:ldiv! , :\ , :Transpose , :transpose ))
15611561 @eval begin
1562- function ($ op)(xformA:: ($xform ) {<: Any ,<: UpperTriangular }, B:: LowerTriangular )
1562+ function ($ op)(xformA:: ($xformtype ) {<: Any ,<: UpperTriangular }, B:: LowerTriangular )
15631563 A = xformA. parent
1564- TAB = typeof (($ op)($ xform (zero (eltype (A))), zero (eltype (B))) +
1565- ($ op)($ xform (zero (eltype (A))), zero (eltype (B))))
1564+ TAB = typeof (($ op)($ xformop (zero (eltype (A))), zero (eltype (B))) +
1565+ ($ op)($ xformop (zero (eltype (A))), zero (eltype (B))))
15661566 BB = similar (B, TAB, size (B))
15671567 copyto! (BB, B)
1568- return LowerTriangular (($ ipop)($ xform (convert (AbstractMatrix{TAB}, A)), BB))
1568+ return LowerTriangular (($ ipop)($ xformop (convert (AbstractMatrix{TAB}, A)), BB))
15691569 end
15701570
1571- function ($ op)(xformA:: ($xform ) {<: Any ,<: UnitUpperTriangular }, B:: LowerTriangular )
1571+ function ($ op)(xformA:: ($xformtype ) {<: Any ,<: UnitUpperTriangular }, B:: LowerTriangular )
15721572 A = xformA. parent
15731573 TAB = typeof ((* )(zero (eltype (A)), zero (eltype (B))) +
15741574 (* )(zero (eltype (A)), zero (eltype (B))))
15751575 BB = similar (B, TAB, size (B))
15761576 copyto! (BB, B)
1577- return LowerTriangular ($ ipop ($ xform (convert (AbstractMatrix{TAB}, A)), BB))
1577+ return LowerTriangular ($ ipop ($ xformop (convert (AbstractMatrix{TAB}, A)), BB))
15781578 end
15791579
1580- function ($ op)(xformA:: ($xform ) {<: Any ,<: LowerTriangular }, B:: UpperTriangular )
1580+ function ($ op)(xformA:: ($xformtype ) {<: Any ,<: LowerTriangular }, B:: UpperTriangular )
15811581 A = xformA. parent
1582- TAB = typeof (($ op)($ xform (zero (eltype (A))), zero (eltype (B))) +
1583- ($ op)($ xform (zero (eltype (A))), zero (eltype (B))))
1582+ TAB = typeof (($ op)($ xformop (zero (eltype (A))), zero (eltype (B))) +
1583+ ($ op)($ xformop (zero (eltype (A))), zero (eltype (B))))
15841584 BB = similar (B, TAB, size (B))
15851585 copyto! (BB, B)
1586- return UpperTriangular ($ ipop ($ xform (convert (AbstractMatrix{TAB}, A)), BB))
1586+ return UpperTriangular ($ ipop ($ xformop (convert (AbstractMatrix{TAB}, A)), BB))
15871587 end
15881588
1589- function ($ op)(xformA:: ($xform ) {<: Any ,<: UnitLowerTriangular }, B:: UpperTriangular )
1589+ function ($ op)(xformA:: ($xformtype ) {<: Any ,<: UnitLowerTriangular }, B:: UpperTriangular )
15901590 A = xformA. parent
15911591 TAB = typeof ((* )(zero (eltype (A)), zero (eltype (B))) +
15921592 (* )(zero (eltype (A)), zero (eltype (B))))
15931593 BB = similar (B, TAB, size (B))
15941594 copyto! (BB, B)
1595- return UpperTriangular ($ ipop ($ xform (convert (AbstractMatrix{TAB}, A)), BB))
1595+ return UpperTriangular ($ ipop ($ xformop (convert (AbstractMatrix{TAB}, A)), BB))
15961596 end
15971597 end
15981598end
@@ -1626,46 +1626,46 @@ function (/)(A::UpperTriangular, B::UnitUpperTriangular)
16261626 return UpperTriangular (rdiv! (AA, convert (AbstractMatrix{TAB}, B)))
16271627end
16281628
1629- for (ipop, op, xform ) in (
1630- (:mul! , :* , :Adjoint ),
1631- (:mul! , :* , :Transpose ),
1632- (:rdiv! , :/ , :Adjoint ),
1633- (:rdiv! , :/ , :Transpose ))
1629+ for (ipop, op, xformtype, xformop ) in (
1630+ (:mul! , :* , :Adjoint , :adjoint ),
1631+ (:mul! , :* , :Transpose , :transpose ),
1632+ (:rdiv! , :/ , :Adjoint , :adjoint ),
1633+ (:rdiv! , :/ , :Transpose , :transpose ))
16341634 @eval begin
1635- function ($ op)(A:: LowerTriangular , xformB:: ($xform ) {<: Any ,<: UpperTriangular })
1635+ function ($ op)(A:: LowerTriangular , xformB:: ($xformtype ) {<: Any ,<: UpperTriangular })
16361636 B = xformB. parent
1637- TAB = typeof (($ op)(zero (eltype (A)), $ xform (zero (eltype (B)))) +
1638- ($ op)(zero (eltype (A)), $ xform (zero (eltype (B)))))
1637+ TAB = typeof (($ op)(zero (eltype (A)), $ xformop (zero (eltype (B)))) +
1638+ ($ op)(zero (eltype (A)), $ xformop (zero (eltype (B)))))
16391639 AA = similar (A, TAB, size (A))
16401640 copyto! (AA, A)
1641- return LowerTriangular ($ ipop (AA, $ xform (convert (AbstractMatrix{TAB}, B))))
1641+ return LowerTriangular ($ ipop (AA, $ xformop (convert (AbstractMatrix{TAB}, B))))
16421642 end
16431643
1644- function ($ op)(A:: LowerTriangular , xformB:: ($xform ) {<: Any ,<: UnitUpperTriangular })
1644+ function ($ op)(A:: LowerTriangular , xformB:: ($xformtype ) {<: Any ,<: UnitUpperTriangular })
16451645 B = xformB. parent
16461646 TAB = typeof ((* )(zero (eltype (A)), zero (eltype (B))) +
16471647 (* )(zero (eltype (A)), zero (eltype (B))))
16481648 AA = similar (A, TAB, size (A))
16491649 copyto! (AA, A)
1650- return LowerTriangular ($ ipop (AA, $ xform (convert (AbstractMatrix{TAB}, B))))
1650+ return LowerTriangular ($ ipop (AA, $ xformop (convert (AbstractMatrix{TAB}, B))))
16511651 end
16521652
1653- function ($ op)(A:: UpperTriangular , xformB:: ($xform ) {<: Any ,<: LowerTriangular })
1653+ function ($ op)(A:: UpperTriangular , xformB:: ($xformtype ) {<: Any ,<: LowerTriangular })
16541654 B = xformB. parent
1655- TAB = typeof (($ op)(zero (eltype (A)), $ xform (zero (eltype (B)))) +
1656- ($ op)(zero (eltype (A)), $ xform (zero (eltype (B)))))
1655+ TAB = typeof (($ op)(zero (eltype (A)), $ xformop (zero (eltype (B)))) +
1656+ ($ op)(zero (eltype (A)), $ xformop (zero (eltype (B)))))
16571657 AA = similar (A, TAB, size (A))
16581658 copyto! (AA, A)
1659- return UpperTriangular ($ ipop (AA, $ xform (convert (AbstractMatrix{TAB}, B))))
1659+ return UpperTriangular ($ ipop (AA, $ xformop (convert (AbstractMatrix{TAB}, B))))
16601660 end
16611661
1662- function ($ op)(A:: UpperTriangular , xformB:: ($xform ) {<: Any ,<: UnitLowerTriangular })
1662+ function ($ op)(A:: UpperTriangular , xformB:: ($xformtype ) {<: Any ,<: UnitLowerTriangular })
16631663 B = xformB. parent
16641664 TAB = typeof ((* )(zero (eltype (A)), zero (eltype (B))) +
16651665 (* )(zero (eltype (A)), zero (eltype (B))))
16661666 AA = similar (A, TAB, size (A))
16671667 copyto! (AA, A)
1668- return UpperTriangular ($ ipop (AA, $ xform (convert (AbstractMatrix{TAB}, B))))
1668+ return UpperTriangular ($ ipop (AA, $ xformop (convert (AbstractMatrix{TAB}, B))))
16691669 end
16701670 end
16711671end
0 commit comments