@@ -156,58 +156,32 @@ end
156156 @print_and_throw " asin(x) not defined for |x| > 1, x = " x
157157
158158# range.jl
159- @static if VERSION >= v " 1.7-"
160- @eval begin
161- @device_override function Base. StepRangeLen {T,R,S,L} (ref:: R , step:: S , len:: Integer ,
162- offset:: Integer = 1 ) where {T,R,S,L}
163- if T <: Integer && ! isinteger (ref + step)
164- @print_and_throw (" StepRangeLen{<:Integer} cannot have non-integer step" )
165- end
166- len = convert (L, len)
167- len >= zero (len) || @print_and_throw (" StepRangeLen length cannot be negative" )
168- offset = convert (L, offset)
169- L1 = oneunit (typeof (len))
170- L1 <= offset <= max (L1, len) || @print_and_throw (" StepRangeLen: offset must be in [1,...]" )
171- $ (
172- Expr (:new , :(StepRangeLen{T,R,S,L}), :ref , :step , :len , :offset )
173- )
174- end
175- end
176- else
177- @device_override function Base. StepRangeLen {T,R,S} (ref:: R , step:: S , len:: Integer ,
178- offset:: Integer = 1 ) where {T,R,S}
159+ @eval begin
160+ @device_override function Base. StepRangeLen {T,R,S,L} (ref:: R , step:: S , len:: Integer ,
161+ offset:: Integer = 1 ) where {T,R,S,L}
179162 if T <: Integer && ! isinteger (ref + step)
180163 @print_and_throw (" StepRangeLen{<:Integer} cannot have non-integer step" )
181164 end
182- len >= 0 || @print_and_throw (" StepRangeLen length cannot be negative" )
183- 1 <= offset <= max (1 ,len) || @print_and_throw (" StepRangeLen: offset must be in [1,...]" )
184- new (ref, step, len, offset)
165+ len = convert (L, len)
166+ len >= zero (len) || @print_and_throw (" StepRangeLen length cannot be negative" )
167+ offset = convert (L, offset)
168+ L1 = oneunit (typeof (len))
169+ L1 <= offset <= max (L1, len) || @print_and_throw (" StepRangeLen: offset must be in [1,...]" )
170+ $ (
171+ Expr (:new , :(StepRangeLen{T,R,S,L}), :ref , :step , :len , :offset )
172+ )
185173 end
186174end
187175
188176# LinearAlgebra
189- @static if VERSION >= v " 1.8-"
190- @device_override function Base. setindex! (D:: LinearAlgebra.Diagonal , v, i:: Int , j:: Int )
191- @boundscheck checkbounds (D, i, j)
192- if i == j
193- @inbounds D. diag[i] = v
194- elseif ! iszero (v)
195- @print_and_throw (" cannot set off-diagonal entry to a nonzero value" )
196- end
197- return v
177+ @device_override function Base. setindex! (D:: LinearAlgebra.Diagonal , v, i:: Int , j:: Int )
178+ @boundscheck checkbounds (D, i, j)
179+ if i == j
180+ @inbounds D. diag[i] = v
181+ elseif ! iszero (v)
182+ @print_and_throw (" cannot set off-diagonal entry to a nonzero value" )
198183 end
199- end
200-
201- # fastmath.jl
202- @static if VERSION <= v " 1.7-"
203- # # prevent fallbacks to libm
204- for f in (:acosh , :asinh , :atanh , :cbrt , :cosh , :exp2 , :expm1 , :log1p , :sinh , :tanh )
205- f_fast = Base. FastMath. fast_op[f]
206- @eval begin
207- @device_override Base. FastMath.$ f_fast (x:: Float32 ) = $ f (x)
208- @device_override Base. FastMath.$ f_fast (x:: Float64 ) = $ f (x)
209- end
210- end
184+ return v
211185end
212186
213187end # module IPURuntime
0 commit comments