1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
/*
* ====================================================
* Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
*
* Developed at SunPro, a Sun Microsystems, Inc. business.
* Permission to use, copy, modify, and distribute this
* software is freely granted, provided that this notice
* is preserved.
* ====================================================
*/
/* Based on newlib/libm/mathfp/ef_scalb.c in Newlib. */
#include "amdgcnmach.h"
v64si v64sf_isnanf (v64sf);
v64si v64sf_finitef (v64sf);
v64sf v64sf_rintf_aux (v64sf, v64si);
v64sf v64sf_scalbnf_aux (v64sf, v64si, v64si);
DEF_VS_MATH_FUNC (v64sf, scalbf, v64sf x, v64sf fn)
{
FUNCTION_INIT (v64sf);
VECTOR_IF (v64sf_isnanf(x) | v64sf_isnanf(fn), cond)
VECTOR_RETURN (x * fn, cond);
VECTOR_ENDIF
VECTOR_IF (~v64sf_finitef (fn), cond)
VECTOR_IF2 (fn > 0.0f, cond2, cond)
VECTOR_RETURN (x * fn, cond2);
VECTOR_ELSE2 (cond2, cond)
VECTOR_RETURN (x / (-fn), cond2);
VECTOR_ENDIF
VECTOR_ENDIF
VECTOR_IF (v64sf_rintf_aux (fn, __mask) != fn, cond)
VECTOR_RETURN ((fn-fn)/(fn-fn), cond);
VECTOR_ENDIF
#if INT_MAX > 65000
VECTOR_IF (fn > 65000.0f, cond)
VECTOR_RETURN (v64sf_scalbnf_aux (x, VECTOR_INIT (65000), __mask), cond);
VECTOR_ENDIF
VECTOR_IF (-fn > 65000.0f, cond)
VECTOR_RETURN (v64sf_scalbnf_aux (x, VECTOR_INIT (-65000), __mask), cond);
VECTOR_ENDIF
#else
VECTOR_IF (fn > 32000.0f, cond)
VECTOR_RETURN (v64sf_scalbnf_aux (x, VECTOR_INIT (32000), __mask), cond);
VECTOR_ENDIF
VECTOR_IF (-fn > 32000.0f, cond)
VECTOR_RETURN (v64sf_scalbnf_aux (x, VECTOR_INIT (-32000), __mask), cond);
VECTOR_ENDIF
#endif
VECTOR_RETURN (v64sf_scalbnf_aux (x, __builtin_convertvector (fn, v64si), __mask),
NO_COND);
FUNCTION_RETURN;
}
DEF_VARIANTS2 (scalbf, sf, sf)
|