Raymond Toy pushed to branch master at cmucl / cmucl

Commits:

2 changed files:

Changes:

  • src/lisp/k_rem_pio2.c
    ... ... @@ -168,7 +168,9 @@ int __kernel_rem_pio2(double *x, double *y, int e0, int nx, int prec, const int
    168 168
     
    
    169 169
         /* compute q[0],q[1],...q[jk] */
    
    170 170
     	for (i=0;i<=jk;i++) {
    
    171
    -	    for(j=0,fw=0.0;j<=jx;j++) fw += x[j]*f[jx+i-j]; q[i] = fw;
    
    171
    +            for(j=0,fw=0.0;j<=jx;j++)
    
    172
    +                fw += x[j]*f[jx+i-j];
    
    173
    +            q[i] = fw;
    
    172 174
     	}
    
    173 175
     
    
    174 176
     	jz = jk;
    

  • src/lisp/print.c
    ... ... @@ -354,7 +354,7 @@ print_struct(lispobj obj)
    354 354
     {
    
    355 355
         struct instance *instance = (struct instance *) PTR(obj);
    
    356 356
         int i;
    
    357
    -    char buffer[16];
    
    357
    +    char buffer[32];
    
    358 358
     
    
    359 359
         print_obj("type: ", ((struct instance *) PTR(obj))->slots[0]);
    
    360 360
         for (i = 1; i < HeaderValue(instance->header); i++) {