fusl/src/math/scalbnl.c - Issue 1573973002: Add a "fork" of musl as //fusl.

Side by Side Diff

Use n/p to move between diff chunks; N/P to move between comments. Draft comments are only viewable by you.

Keyboard Shortcuts

	File
u :	up to issue
j / k :	jump to file after / before current file
J / K :	jump to next file with a comment after / before current file
	Side-by-side diff
i :	toggle intra-line diffs
e :	expand all comments
c :	collapse all comments
s :	toggle showing all comments
n / p :	next / previous diff chunk or comment
N / P :	next / previous comment
<Up> / <Down> :	next / previous line

	Issue
u :	up to list of issues
j / k :	jump to patch after / before current patch
o / <Enter> :	open current patch in side-by-side view
i :	open current patch in unified diff view

	Issue List
j / k :	jump to issue after / before current issue
o / <Enter> :	open current issue

Side by Side Diff: fusl/src/math/scalbnl.c

Issue 1573973002: Add a "fork" of musl as //fusl. (Closed) Base URL: https://github.com/domokit/mojo.git@master

Patch Set: Created 4 years, 11 months ago

Use n/p to move between diff chunks; N/P to move between comments. Draft comments are only viewable by you.

Jump to:

OLD	NEW
(Empty)
	1 #include "libm.h"

	2

	3 #if LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024

	4 long double scalbnl(long double x, int n)

	5 {

	6 return scalbn(x, n);

	7 }

	8 #elif (LDBL_MANT_DIG == 64 \|\| LDBL_MANT_DIG == 113) && LDBL_MAX_EXP == 16384

	9 long double scalbnl(long double x, int n)

	10 {

	11 union ldshape u;

	12

	13 if (n > 16383) {

	14 x *= 0x1p16383L;

	15 n -= 16383;

	16 if (n > 16383) {

	17 x *= 0x1p16383L;

	18 n -= 16383;

	19 if (n > 16383)

	20 n = 16383;

	21 }

	22 } else if (n < -16382) {

	23 x *= 0x1p-16382L;

	24 n += 16382;

	25 if (n < -16382) {

	26 x *= 0x1p-16382L;

	27 n += 16382;

	28 if (n < -16382)

	29 n = -16382;

	30 }

	31 }

	32 u.f = 1.0;

	33 u.i.se = 0x3fff + n;

	34 return x * u.f;

	35 }

	36 #endif

OLD	NEW

« no previous file with comments | « fusl/src/math/scalbnf.c ('k') | fusl/src/math/signgam.c » ('j') | no next file with comments »