@@ -119,8 +119,8 @@ _CLC_DEF float __clc_tanf_piby4(float x, int regn) {
119
119
return regn & 1 ? tr : t ;
120
120
}
121
121
122
- _CLC_DEF void __clc_fullMulS (float * hi , float * lo , float a , float b , float bh ,
123
- float bt ) {
122
+ _CLC_DEF void __clc_fullMulS (private float * hi , private float * lo , float a ,
123
+ float b , float bh , float bt ) {
124
124
if (HAVE_HW_FMA32 ()) {
125
125
float ph = a * b ;
126
126
* hi = ph ;
@@ -136,7 +136,7 @@ _CLC_DEF void __clc_fullMulS(float *hi, float *lo, float a, float b, float bh,
136
136
}
137
137
}
138
138
139
- _CLC_DEF float __clc_removePi2S (float * hi , float * lo , float x ) {
139
+ _CLC_DEF float __clc_removePi2S (private float * hi , private float * lo , float x ) {
140
140
// 72 bits of pi/2
141
141
const float fpiby2_1 = (float )0xC90FDA / 0x1.0p+23f ;
142
142
const float fpiby2_1_h = (float )0xC90 / 0x1.0p+11f ;
@@ -174,7 +174,8 @@ _CLC_DEF float __clc_removePi2S(float *hi, float *lo, float x) {
174
174
return fnpi2 ;
175
175
}
176
176
177
- _CLC_DEF int __clc_argReductionSmallS (float * r , float * rr , float x ) {
177
+ _CLC_DEF int __clc_argReductionSmallS (private float * r , private float * rr ,
178
+ float x ) {
178
179
float fnpi2 = __clc_removePi2S (r , rr , x );
179
180
return (int )fnpi2 & 0x3 ;
180
181
}
@@ -188,7 +189,8 @@ _CLC_DEF int __clc_argReductionSmallS(float *r, float *rr, float x) {
188
189
HI = __clc_mul_hi(A, B); \
189
190
HI += LO < C
190
191
191
- _CLC_DEF int __clc_argReductionLargeS (float * r , float * rr , float x ) {
192
+ _CLC_DEF int __clc_argReductionLargeS (private float * r , private float * rr ,
193
+ float x ) {
192
194
int xe = (int )(as_uint (x ) >> 23 ) - 127 ;
193
195
uint xm = 0x00800000U | (as_uint (x ) & 0x7fffffU );
194
196
@@ -330,7 +332,7 @@ _CLC_DEF int __clc_argReductionLargeS(float *r, float *rr, float x) {
330
332
return ((i >> 1 ) + (i & 1 )) & 0x3 ;
331
333
}
332
334
333
- _CLC_DEF int __clc_argReductionS (float * r , float * rr , float x ) {
335
+ _CLC_DEF int __clc_argReductionS (private float * r , private float * rr , float x ) {
334
336
if (x < 0x1.0p+23f )
335
337
return __clc_argReductionSmallS (r , rr , x );
336
338
else
@@ -342,8 +344,9 @@ _CLC_DEF int __clc_argReductionS(float *r, float *rr, float x) {
342
344
#pragma OPENCL EXTENSION cl_khr_fp64 : enable
343
345
344
346
// Reduction for medium sized arguments
345
- _CLC_DEF void __clc_remainder_piby2_medium (double x , double * r , double * rr ,
346
- int * regn ) {
347
+ _CLC_DEF void __clc_remainder_piby2_medium (double x , private double * r ,
348
+ private double * rr ,
349
+ private int * regn ) {
347
350
// How many pi/2 is x a multiple of?
348
351
const double two_by_pi = 0x1.45f306dc9c883p-1 ;
349
352
double dnpi2 = __clc_trunc (fma (x , two_by_pi , 0.5 ));
@@ -387,8 +390,9 @@ _CLC_DEF void __clc_remainder_piby2_medium(double x, double *r, double *rr,
387
390
// Return value "regn" tells how many lots of pi/2 were subtracted
388
391
// from x to put it in the range [-pi/4,pi/4], mod 4.
389
392
390
- _CLC_DEF void __clc_remainder_piby2_large (double x , double * r , double * rr ,
391
- int * regn ) {
393
+ _CLC_DEF void __clc_remainder_piby2_large (double x , private double * r ,
394
+ private double * rr ,
395
+ private int * regn ) {
392
396
393
397
long ux = as_long (x );
394
398
int e = (int )(ux >> 52 ) - 1023 ;
0 commit comments