@@ -38,7 +38,8 @@ function default_stridedpointer_quote(::Type{T}, N, Ot) where {T}
38
38
quote
39
39
$ (Expr (:meta ,:inline ))
40
40
st = $ st
41
- StridedPointer {$T,$N,$C,$B,$R} (ptr, $ xt, $ o)
41
+ si = StrideIndex {$N,$R,$C} ($ xt, $ o)
42
+ stridedpointer (ptr, si, StaticInt {$B} ())
42
43
end
43
44
end
44
45
66
67
Bn = Core. ifelse (B > 1 , B+ 1 , B)
67
68
quote
68
69
$ (Expr (:meta ,:inline ))
69
- x = $ gf (sp, :strd )
70
+ x = strides (sp)
70
71
x0 = $ gf (x, 1 , false )
71
- StridedPointer {$T,$(N+1),$Cn,$Bn,$Rn} ($ gf (sp,:p ), $ xt, $ ot)
72
+ si = StrideIndex {$(N+1),$Rn,$Cn} ($ xt, $ ot)
73
+ stridedpointer ($ gf (sp,:p ), si, StaticInt {$Bn} ())
72
74
end
73
75
end
74
76
@generated function droplastdim (sp:: StridedPointer{T,N,C,B,R} ) where {T,N,C,B,R}
85
87
end
86
88
quote
87
89
$ (Expr (:meta ,:inline ))
88
- x = $ gf (sp, :strd )
89
- o = $ gf (sp, :offsets )
90
- StridedPointer {$T,$(N-1),$Cn,$Bn,$rt} ($ gf (sp,:p ), $ xt, $ ot)
90
+ x = strides (sp)
91
+ o = offsets (sp)
92
+ si = StrideIndex {$(N-1),$rt,$Cn} ($ xt, $ ot)
93
+ stridedpointer ($ gf (sp,:p ), si, StaticInt {$Bn} ())
91
94
end
92
95
end
93
96
0 commit comments