[Beignet] [PATCH] backend: add double support to log1p

rander rander.wang at intel.com
Fri Mar 24 06:35:35 UTC 2017


Signed-off-by: rander <rander.wang at intel.com>
---
 backend/src/libocl/tmpl/ocl_math.tmpl.cl    | 79 +++++++++++++++++++++++++++++
 backend/src/libocl/tmpl/ocl_math.tmpl.h     |  2 +-
 backend/src/libocl/tmpl/ocl_math_20.tmpl.cl | 78 ++++++++++++++++++++++++++++
 backend/src/libocl/tmpl/ocl_math_20.tmpl.h  |  1 +
 4 files changed, 159 insertions(+), 1 deletion(-)

diff --git a/backend/src/libocl/tmpl/ocl_math.tmpl.cl b/backend/src/libocl/tmpl/ocl_math.tmpl.cl
index 0adf49f..3534ef1 100644
--- a/backend/src/libocl/tmpl/ocl_math.tmpl.cl
+++ b/backend/src/libocl/tmpl/ocl_math.tmpl.cl
@@ -4209,3 +4209,82 @@ OVERLOADABLE double log10(double x)
 	return  z+y*log10_2hi;
 }
 
+OVERLOADABLE double log1p(double x)
+{
+	double ln2_hi  =  6.93147180369123816490e-01,	/* 3fe62e42 fee00000 */
+	ln2_lo	=  1.90821492927058770002e-10,	/* 3dea39ef 35793c76 */
+	two54	=  1.80143985094819840000e+16,	/* 43500000 00000000 */
+	Lp1 = 6.666666666666735130e-01,  /* 3FE55555 55555593 */
+	Lp2 = 3.999999999940941908e-01,  /* 3FD99999 9997FA04 */
+	Lp3 = 2.857142874366239149e-01,  /* 3FD24924 94229359 */
+	Lp4 = 2.222219843214978396e-01,  /* 3FCC71C5 1D8E78AF */
+	Lp5 = 1.818357216161805012e-01,  /* 3FC74664 96CB03DE */
+	Lp6 = 1.531383769920937332e-01,  /* 3FC39A09 D078C69F */
+	Lp7 = 1.479819860511658591e-01;  /* 3FC2F112 DF3E5244 */
+
+	double hfsq,f,c,s,z,R,u,zero = 0;
+	int k,hx,hu,ax;
+
+	hx = __HI(x);		/* high word of x */
+	ax = hx&0x7fffffff;
+
+	k = 1;
+	if (hx < 0x3FDA827A) {			/* x < 0.41422	*/
+		if(ax>=0x3ff00000) {		/* x <= -1.0 */
+		if(x==-1.0) return -two54/zero; /* log1p(-1)=+inf */
+		else return (x-x)/(x-x);	/* log1p(x<-1)=NaN */
+		}
+		if(ax<0x3e200000) { 		/* |x| < 2**-29 */
+		if(two54+x>zero 		/* raise inexact */
+				&&ax<0x3c900000)		/* |x| < 2**-54 */
+			return x;
+		else
+			return x - x*x*0.5;
+		}
+		if(hx>0||hx<=((int)0xbfd2bec3)) {
+		k=0;f=x;hu=1;}	/* -0.2929<x<0.41422 */
+	}
+	if (hx >= 0x7ff00000) return x+x;
+	if(k!=0) {
+		if(hx<0x43400000) {
+		u  = 1.0+x;
+			hu = __HI(u);		/* high word of u */
+			k  = (hu>>20)-1023;
+			c  = (k>0)? 1.0-(u-x):x-(u-1.0);/* correction term */
+		c /= u;
+		} else {
+		u  = x;
+			hu = __HI(u);		/* high word of u */
+			k  = (hu>>20)-1023;
+		c  = 0;
+		}
+		hu &= 0x000fffff;
+		if(hu<0x6a09e) {
+			__setHigh(&u, hu|0x3ff00000);	/* normalize u */
+		} else {
+			k += 1;
+			__setHigh(&u, hu|0x3fe00000);	/* normalize u/2 */
+			hu = (0x00100000-hu)>>2;
+		}
+		f = u-1.0;
+	}
+	hfsq=0.5*f*f;
+	if(hu==0) { /* |f| < 2**-20 */
+		if(f==zero)
+		{
+			if(k==0) return zero;
+			else {c += k*ln2_lo; return k*ln2_hi+c;}
+		}
+		R = hfsq*(1.0-0.66666666666666666*f);
+		if(k==0) return f-R; else
+				 return k*ln2_hi-((R-(k*ln2_lo+c))-f);
+	}
+	s = f/(2.0+f);
+	z = s*s;
+	R = z*(Lp1+z*(Lp2+z*(Lp3+z*(Lp4+z*(Lp5+z*(Lp6+z*Lp7))))));
+	if(k==0) return f-(hfsq-s*(hfsq+R)); else
+		return k*ln2_hi-((hfsq-(s*(hfsq+R)+(k*ln2_lo+c)))-f);
+
+}
+
+
diff --git a/backend/src/libocl/tmpl/ocl_math.tmpl.h b/backend/src/libocl/tmpl/ocl_math.tmpl.h
index ce6b075..5f715bb 100644
--- a/backend/src/libocl/tmpl/ocl_math.tmpl.h
+++ b/backend/src/libocl/tmpl/ocl_math.tmpl.h
@@ -242,5 +242,5 @@ OVERLOADABLE double fract(double x, private double *p);
 OVERLOADABLE double log(double x);
 OVERLOADABLE double log2(double x);
 OVERLOADABLE double log10(double x);
-
+OVERLOADABLE double log1p(double x);
 
diff --git a/backend/src/libocl/tmpl/ocl_math_20.tmpl.cl b/backend/src/libocl/tmpl/ocl_math_20.tmpl.cl
index 38d5820..f42cd0c 100644
--- a/backend/src/libocl/tmpl/ocl_math_20.tmpl.cl
+++ b/backend/src/libocl/tmpl/ocl_math_20.tmpl.cl
@@ -4085,4 +4085,82 @@ OVERLOADABLE double log10(double x)
 	return  z+y*log10_2hi;
 }
 
+OVERLOADABLE double log1p(double x)
+{
+	double ln2_hi  =  6.93147180369123816490e-01,	/* 3fe62e42 fee00000 */
+	ln2_lo  =  1.90821492927058770002e-10,	/* 3dea39ef 35793c76 */
+	two54   =  1.80143985094819840000e+16,  /* 43500000 00000000 */
+	Lp1 = 6.666666666666735130e-01,  /* 3FE55555 55555593 */
+	Lp2 = 3.999999999940941908e-01,  /* 3FD99999 9997FA04 */
+	Lp3 = 2.857142874366239149e-01,  /* 3FD24924 94229359 */
+	Lp4 = 2.222219843214978396e-01,  /* 3FCC71C5 1D8E78AF */
+	Lp5 = 1.818357216161805012e-01,  /* 3FC74664 96CB03DE */
+	Lp6 = 1.531383769920937332e-01,  /* 3FC39A09 D078C69F */
+	Lp7 = 1.479819860511658591e-01;  /* 3FC2F112 DF3E5244 */
+
+	double hfsq,f,c,s,z,R,u,zero = 0;
+	int k,hx,hu,ax;
+
+	hx = __HI(x);		/* high word of x */
+	ax = hx&0x7fffffff;
+
+	k = 1;
+	if (hx < 0x3FDA827A) {			/* x < 0.41422  */
+		if(ax>=0x3ff00000) {		/* x <= -1.0 */
+		if(x==-1.0) return -two54/zero; /* log1p(-1)=+inf */
+		else return (x-x)/(x-x);	/* log1p(x<-1)=NaN */
+		}
+		if(ax<0x3e200000) {			/* |x| < 2**-29 */
+		if(two54+x>zero			/* raise inexact */
+				&&ax<0x3c900000) 		/* |x| < 2**-54 */
+			return x;
+		else
+			return x - x*x*0.5;
+		}
+		if(hx>0||hx<=((int)0xbfd2bec3)) {
+		k=0;f=x;hu=1;}	/* -0.2929<x<0.41422 */
+	}
+	if (hx >= 0x7ff00000) return x+x;
+	if(k!=0) {
+		if(hx<0x43400000) {
+		u  = 1.0+x;
+			hu = __HI(u);		/* high word of u */
+			k  = (hu>>20)-1023;
+			c  = (k>0)? 1.0-(u-x):x-(u-1.0);/* correction term */
+		c /= u;
+		} else {
+		u  = x;
+			hu = __HI(u);		/* high word of u */
+			k  = (hu>>20)-1023;
+		c  = 0;
+		}
+		hu &= 0x000fffff;
+		if(hu<0x6a09e) {
+			__setHigh(&u, hu|0x3ff00000);	/* normalize u */
+		} else {
+			k += 1;
+			__setHigh(&u, hu|0x3fe00000);	/* normalize u/2 */
+			hu = (0x00100000-hu)>>2;
+		}
+		f = u-1.0;
+	}
+	hfsq=0.5*f*f;
+	if(hu==0) {	/* |f| < 2**-20 */
+		if(f==zero)
+		{
+			if(k==0) return zero;
+			else {c += k*ln2_lo; return k*ln2_hi+c;}
+		}
+		R = hfsq*(1.0-0.66666666666666666*f);
+		if(k==0) return f-R; else
+				 return k*ln2_hi-((R-(k*ln2_lo+c))-f);
+	}
+	s = f/(2.0+f);
+	z = s*s;
+	R = z*(Lp1+z*(Lp2+z*(Lp3+z*(Lp4+z*(Lp5+z*(Lp6+z*Lp7))))));
+	if(k==0) return f-(hfsq-s*(hfsq+R)); else
+		return k*ln2_hi-((hfsq-(s*(hfsq+R)+(k*ln2_lo+c)))-f);
+
+}
+
 
diff --git a/backend/src/libocl/tmpl/ocl_math_20.tmpl.h b/backend/src/libocl/tmpl/ocl_math_20.tmpl.h
index f65d3e0..397db24 100644
--- a/backend/src/libocl/tmpl/ocl_math_20.tmpl.h
+++ b/backend/src/libocl/tmpl/ocl_math_20.tmpl.h
@@ -219,5 +219,6 @@ OVERLOADABLE double fract(double x, private double *p);
 OVERLOADABLE double log(double x);
 OVERLOADABLE double log2(double x);
 OVERLOADABLE double log10(double x);
+OVERLOADABLE double log1p(double x);
 
 
-- 
2.7.4



More information about the Beignet mailing list