/[cmucl]/src/lisp/k_rem_pio2.c
ViewVC logotype

Diff of /src/lisp/k_rem_pio2.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by rtoy, Wed Jul 19 02:45:53 2006 UTC revision 1.2 by cshapiro, Fri Apr 11 07:49:46 2008 UTC
# Line 129  Line 129 
129    
130  #include "fdlibm.h"  #include "fdlibm.h"
131    
 #ifdef __STDC__  
132  static const int init_jk[] = {2,3,4,6}; /* initial value for jk */  static const int init_jk[] = {2,3,4,6}; /* initial value for jk */
 #else  
 static int init_jk[] = {2,3,4,6};  
 #endif  
133    
 #ifdef __STDC__  
134  static const double PIo2[] = {  static const double PIo2[] = {
 #else  
 static double PIo2[] = {  
 #endif  
135    1.57079625129699707031e+00, /* 0x3FF921FB, 0x40000000 */    1.57079625129699707031e+00, /* 0x3FF921FB, 0x40000000 */
136    7.54978941586159635335e-08, /* 0x3E74442D, 0x00000000 */    7.54978941586159635335e-08, /* 0x3E74442D, 0x00000000 */
137    5.39030252995776476554e-15, /* 0x3CF84698, 0x80000000 */    5.39030252995776476554e-15, /* 0x3CF84698, 0x80000000 */
# Line 150  static double PIo2[] = { Line 142  static double PIo2[] = {
142    2.16741683877804819444e-51, /* 0x3569F31D, 0x00000000 */    2.16741683877804819444e-51, /* 0x3569F31D, 0x00000000 */
143  };  };
144    
 #ifdef __STDC__  
145  static const double  static const double
 #else  
 static double  
 #endif  
146  zero   = 0.0,  zero   = 0.0,
147  one    = 1.0,  one    = 1.0,
148  two24   =  1.67772160000000000000e+07, /* 0x41700000, 0x00000000 */  two24   =  1.67772160000000000000e+07, /* 0x41700000, 0x00000000 */
149  twon24  =  5.96046447753906250000e-08; /* 0x3E700000, 0x00000000 */  twon24  =  5.96046447753906250000e-08; /* 0x3E700000, 0x00000000 */
150    
151  #ifdef __STDC__  int __kernel_rem_pio2(double *x, double *y, int e0, int nx, int prec, const int *ipio2)
         int __kernel_rem_pio2(double *x, double *y, int e0, int nx, int prec, const int *ipio2)  
 #else  
         int __kernel_rem_pio2(x,y,e0,nx,prec,ipio2)  
         double x[], y[]; int e0,nx,prec; int ipio2[];  
 #endif  
152  {  {
153          int jz,jx,jv,jp,jk,carry,n,iq[20],i,j,k,m,q0,ih;          int jz,jx,jv,jp,jk,carry,n,iq[20],i,j,k,m,q0,ih;
154          double z,fw,f[20],fq[20],q[20];          double z,fw,f[20],fq[20],q[20];

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

  ViewVC Help
Powered by ViewVC 1.1.5