2 files changed, 13 insertions, 3 deletions

diff --git a/lib/Numeric/GSL/gsl-aux.c b/lib/Numeric/GSL/gsl-aux.c
index 83c3bf8..bd0a6bd 100644
--- a/lib/Numeric/GSL/gsl-aux.c
+++ b/lib/Numeric/GSL/gsl-aux.c
@@ -116,9 +116,9 @@ int mapR(int code, KRVEC(x), RVEC(r)) {
         OP(7,sinh)
         OP(8,cosh)
         OP(9,tanh)
-        OP(10,asinh)
-        OP(11,acosh)
-        OP(12,atanh)
+        OP(10,gsl_asinh)
+        OP(11,gsl_acosh)
+        OP(12,gsl_atanh)
         OP(13,exp)
         OP(14,log)
         OP(15,sign)
diff --git a/lib/Numeric/LinearAlgebra/LAPACK/lapack-aux.c b/lib/Numeric/LinearAlgebra/LAPACK/lapack-aux.c
index bf0cfba..9b6c1db 100644
--- a/lib/Numeric/LinearAlgebra/LAPACK/lapack-aux.c
+++ b/lib/Numeric/LinearAlgebra/LAPACK/lapack-aux.c
@@ -29,6 +29,8 @@
 #define SINGULAR 2004
 #define NOCONVER 2005
 #define NODEFPOS 2006
+#define NOSPRTD  2007
+
 
 //////////////////// real svd ////////////////////////////////////
 
@@ -423,6 +425,9 @@ int linearSolveLSR_l(KDMAT(a),KDMAT(b),DMAT(x)) {
 //////////////////// least squares complex linear system ////////////
 
 int linearSolveLSC_l(KCMAT(a),KCMAT(b),CMAT(x)) {
+    #ifdef _WIN32
+    return NOSPRTD;
+    #else
     integer m = ar;
     integer n = ac;
     integer nrhs = bc;
@@ -463,6 +468,7 @@ int linearSolveLSC_l(KCMAT(a),KCMAT(b),CMAT(x)) {
     free(work);
     free(AC);
     OK
+    #endif
 }
 
 //////////////////// least squares real linear system using SVD ////////////
@@ -527,6 +533,9 @@ int zgelss_(integer *m, integer *n, integer *nhrs,
     integer *info);
 
 int linearSolveSVDC_l(double rcond, KCMAT(a),KCMAT(b),CMAT(x)) {
+    #ifdef _WIN32
+    return NOSPRTD;
+    #else
     integer m = ar;
     integer n = ac;
     integer nrhs = bc;
@@ -577,6 +586,7 @@ int linearSolveSVDC_l(double rcond, KCMAT(a),KCMAT(b),CMAT(x)) {
     free(S);
     free(AC);
     OK
+    #endif
 }
 
 //////////////////// Cholesky factorization /////////////////////////