Skip to content

Commit

Permalink
Remove unnecessary begin block
Browse files Browse the repository at this point in the history
  • Loading branch information
jmkuhn committed May 4, 2020
1 parent e8e9b1b commit a4d208e
Showing 1 changed file with 5 additions and 7 deletions.
12 changes: 5 additions & 7 deletions src/DecFP.jl
Original file line number Diff line number Diff line change
Expand Up @@ -404,13 +404,11 @@ for w in (32,64,128)
@eval Base.:-(x::$BID) = @xchk(ccall(($(bidsym(w,"negate")), libbid), $BID, ($BID,), x), DomainError, x, mask=INVALID)
@eval Base.round(x::$BID) = @xchk(ccall(($(bidsym(w,"nearbyint")), libbid), $BID, ($BID,Cuint,Ref{Cuint}), x, roundingmode[Threads.threadid()], RefArray(flags, Threads.threadid())), DomainError, x, mask=INVALID)

@eval begin
function SpecialFunctions.logabsgamma(x::$BID)
isequal(modf(x)[1], -zero(x)) && return typemax(x), one(Int32)
signgam = signbit(x) && mod(x, 2) > 1 ? -one(Int32) : one(Int32)
y = @xchk(ccall(($(bidsym(w,:lgamma)), libbid), $BID, ($BID,Cuint,Ref{Cuint}), x, roundingmode[Threads.threadid()], RefArray(flags, Threads.threadid())), DomainError, x, mask=INVALID)
return y, signgam
end
@eval function SpecialFunctions.logabsgamma(x::$BID)
isequal(modf(x)[1], -zero(x)) && return typemax(x), one(Int32)
signgam = signbit(x) && mod(x, 2) > 1 ? -one(Int32) : one(Int32)
y = @xchk(ccall(($(bidsym(w,:lgamma)), libbid), $BID, ($BID,Cuint,Ref{Cuint}), x, roundingmode[Threads.threadid()], RefArray(flags, Threads.threadid())), DomainError, x, mask=INVALID)
return y, signgam
end

@eval SpecialFunctions.gamma(x::$BID) = @xchk(ccall(($(bidsym(w,:tgamma)), libbid), $BID, ($BID,Cuint,Ref{Cuint}), x, roundingmode[Threads.threadid()], RefArray(flags, Threads.threadid())), DomainError, x, mask=INVALID)
Expand Down

0 comments on commit a4d208e

Please sign in to comment.