diff --git a/src/lisp/e_pow.c b/src/lisp/e_pow.c
index 914d7d99fd844d7e970355462d53268b540c738d..c0f0075875e082bdfad784ce87cf32d5aebdadbc 100644
--- a/src/lisp/e_pow.c
+++ b/src/lisp/e_pow.c
@@ -101,14 +101,13 @@ ivln2_l  =  1.92596299112661746887e-08; /* 0x3E54AE0B, 0xF85DDF44 =1/ln2 tail*/
 {
 	double z,ax,z_h,z_l,p_h,p_l;
 	double y1,t1,t2,r,s,t,u,v,w;
-	int i0,i1,i,j,k,yisint,n;
+        int ,i,j,k,yisint,n;
 	int hx,hy,ix,iy;
 	unsigned lx,ly;
 	union { int i[2]; double d; } ux;
 	union { int i[2]; double d; } uy;
 	union { int i[2]; double d; } utmp;
 
-	i0 = ((*(int*)&one)>>29)^1; i1=1-i0;
 	ux.d = x;
 	hx = ux.i[HIWORD]; lx = ux.i[LOWORD];
 	uy.d = y;