diff options
| author | Jakob Kaivo <jkk@ung.org> | 2019-03-03 21:25:50 -0500 |
|---|---|---|
| committer | Jakob Kaivo <jkk@ung.org> | 2019-03-03 21:25:50 -0500 |
| commit | 06696f40afe58a231e2531c8bf6d9f0dadb92e51 (patch) | |
| tree | b146422c6326ffe3debf3163f0941d8dda0be105 /src/math/copysign.c | |
| parent | f20eeea657d62f2ef905627ca3a9094d33af7d40 (diff) | |
outline details from C18 annex F
Diffstat (limited to 'src/math/copysign.c')
| -rw-r--r-- | src/math/copysign.c | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/src/math/copysign.c b/src/math/copysign.c index a462348b..2ace3c1d 100644 --- a/src/math/copysign.c +++ b/src/math/copysign.c @@ -4,7 +4,16 @@ TYPE TGFN(copysign)(TYPE x, TYPE y) { - return x - y; + if (isnan(x)) { + if (signbit(y)) { + /* return -NaN; */ + } else { + /* return NaN; */ + } + } + + x = TGFN(fabs)(x); + return signbit(y) ? -x : x; } /* |