Compare once instead of twice

Author: andrewjradcliffe

src/e_lgammaf_r.jl

@@ -21,18 +21,19 @@ function _logabsgamma(x::Float32)
 
     #= purge off +-inf, NaN, +-0, tiny and negative arguments =#
     signgam = 1
+    isneg = hx < Int32(0)
     ix = hx & 0x7fffffff
     ix ≥ 0x7f800000 && return x * x, signgam
     ix == 0x00000000 && return Inf32, signgam
     if ix < 0x35000000 #= |x|<2**-21, return -log(|x|) =#
-        if hx < Int32(0)
+        if isneg
             signgam = -1
             return -log(-x), signgam
         else
             return -log(x), signgam
         end
     end
-    if hx < Int32(0)
+    if isneg
         # ix ≥ 0x4b000000 && return Inf32, signgam #= |x|>=2**23, must be -integer =#
         t = sinpi(x)
         t == 0.0f0 && return Inf32, signgam #= -integer =#
@@ -98,7 +99,7 @@ function _logabsgamma(x::Float32)
         #= 2^58 ≤ x ≤ Inf =#
         r = muladd(x, log(x), -x)
     end
-    if hx < Int32(0)
+    if isneg
         r = nadj - r
     end
     return r, signgam