Raymond Toy pushed to branch master at cmucl / cmucl

Commits:

1 changed file:

Changes:

  • src/lisp/os-common.c
    ... ... @@ -551,18 +551,19 @@ os_guard_control_stack(int zone, int guard)
    551 551
    
    
    552 552
    
    
    553 553
    /* Simple interface to __ieee754_rem_pio2 */
    
    554
    int ieee754_rem_pio2(double x, double *y0, double *y1)
    
    554
    int
    
    555
    ieee754_rem_pio2(double x, double *y0, double *y1)
    
    555 556
    {
    
    556
      extern int __ieee754_rem_pio2(double x, double *y);
    
    557
        extern int __ieee754_rem_pio2(double x, double *y);
    
    557 558
    
    
    558
      double y[2];
    
    559
      int n;
    
    559
        double y[2];
    
    560
        int n;
    
    560 561
    
    
    561
      n = __ieee754_rem_pio2(x, y);
    
    562
      *y0 = y[0];
    
    563
      *y1 = y[1];
    
    562
        n = __ieee754_rem_pio2(x, y);
    
    563
        *y0 = y[0];
    
    564
        *y1 = y[1];
    
    564 565
    
    
    565
      return n;
    
    566
        return n;
    
    566 567
    }
    
    567 568
    
    
    568 569
    /*