Ticket #14706: r-3.0.1.p1.diff

File r-3.0.1.p1.diff, 3.5 KB (added by jdemeyer, 8 years ago)

Spkg diff, for review only.

  • SPKG.txt

    # HG changeset patch
    # User Jean-Pierre Flori <jean-pierre.flori@ssi.gouv.fr>
    # Date 1370897721 -7200
    # Node ID 3fc7e7a54b338eefc7a3484428b69f958e44845d
    # Parent  4e5b35a04f0f32587137eca6c1e89ba19f56e2d6
    #14706: Use --disable-long-double on Cygwin.
    
    diff --git a/SPKG.txt b/SPKG.txt
    a b  
    4141     R_HOME_DIR, but scripts/Makefile.in hardcodes these
    4242     locations. This patch removes this hardcoding. See Sage trac
    4343     #9668.
    44    - cygwin-logl.patch: disable use of logl on Cygwin, see #14078.
     44   - sqrtl.patch: upstream patch to disable sqrtl when --disable-long-double
     45     is passed to configure.
    4546
    4647== Changelog ==
    4748
     49=== r-3.0.1.p1 (Jean-Pierre Flori, 10 June 2013) ===
     50 * #14706: Use --disable-long-double on Cygwin rather than patching.
     51 * Add sqrtl.patch from upstream to make --disable-long-double work.
     52
    4853=== r-3.0.1.p0 (Emmanuel Charpentier, 8 June 2013) ===
    4954 * #14706: Drop-in replacement of upstream sources.
    5055
  • deleted file patches/cygwin-logl.patch

    diff --git a/patches/cygwin-logl.patch b/patches/cygwin-logl.patch
    deleted file mode 100644
    + -  
    1 diff -dru src.orig/src/nmath/nmath.h src/src/nmath/nmath.h
    2 --- src.orig/src/nmath/nmath.h  2012-04-16 00:05:35.000000000 +0200
    3 +++ src/src/nmath/nmath.h       2013-02-07 10:48:06.473614931 +0100
    4 @@ -21,6 +21,10 @@
    5  #ifndef MATHLIB_PRIVATE_H
    6  #define MATHLIB_PRIVATE_H
    7  
    8 +#ifdef __CYGWIN__
    9 +#define logl log
    10 +#endif /* __CYGWIN__ */
    11 +
    12  #ifdef HAVE_CONFIG_H
    13  #  include <config.h>
    14  #endif
  • new file patches/sqrtl.patch

    diff --git a/patches/sqrtl.patch b/patches/sqrtl.patch
    new file mode 100644
    - +  
     1Index: R/src/library/stats/src/cov.c
     2===================================================================
     3--- R/src/library/stats/src/cov.c       (révision 60268)
     4+++ R/src/library/stats/src/cov.c       (copie de travail)
     5@@ -1,6 +1,6 @@
     6 /*
     7  *  R : A Computer Language for Statistical Data Analysis
     8- *  Copyright (C) 1995-2012    The R Core Team
     9+ *  Copyright (C) 1995-2013    The R Core Team
     10  *  Copyright (C) 2003         The R Foundation
     11  *
     12  *  This program is free software; you can redistribute it and/or modify
     13@@ -22,6 +22,12 @@
     14 #include <config.h>
     15 #endif
     16 
     17+#ifdef HAVE_LONG_DOUBLE
     18+# define SQRTL sqrtl
     19+#else
     20+# define SQRTL sqrt
     21+#endif
     22+
     23 #include <Defn.h>
     24 #include <Rmath.h>
     25 
     26@@ -113,7 +119,7 @@
     27                            ysd /= n1;                                  \
     28                            sum /= n1;                                  \
     29                        }                                               \
     30-                       sum /= (sqrtl(xsd) * sqrtl(ysd));               \
     31+                       sum /= (SQRTL(xsd) * SQRTL(ysd));               \
     32                        if(sum > 1.) sum = 1.;                          \
     33                    }                                                   \
     34                }                                                       \
     35@@ -424,7 +430,7 @@
     36                            if (ind[n1] != 0 &&  xx[k] != xx[n1])       \
     37                                sum ++; /* = sign(. - .)^2 */           \
     38            }                                                           \
     39-           _X_##m [i] = (double)sqrtl(sum);                            \
     40+           _X_##m [i] = (double)SQRTL(sum);                            \
     41        }
     42 
     43        COV_SDEV(x); /* -> xm[.] */
     44@@ -513,7 +519,7 @@
     45                            if (xx[k] != xx[n1])                        \
     46                                sum ++; /* = sign(. - .)^2 */           \
     47                }                                                       \
     48-               _X_##m [i] = (double) sqrtl(sum);                       \
     49+               _X_##m [i] = (double) SQRTL(sum);                       \
     50            }
     51 
     52        COV_SDEV(x); /* -> xm[.] */
  • spkg-install

    diff --git a/spkg-install b/spkg-install
    a b  
    7070    R_CONFIGURE="--enable-R-framework=no $R_CONFIGURE"
    7171fi
    7272
     73if [ "$UNAME" = "CYGWIN" ]; then
     74    # Cygwin libm does not provide "long double" functions
     75    # and we do not install Cephes on Cygwin at the moment
     76    R_CONFIGURE="--disable-long-double $R_CONFIGURE"
     77fi
     78
    7379if [ "$SAGE_FAT_BINARY" = yes ]; then
    7480    echo "Disabling ICU for a binary build"
    7581    R_CONFIGURE="--without-ICU $R_CONFIGURE"