diff options
Diffstat (limited to 'packages/base')
-rw-r--r-- | packages/base/hmatrix.cabal | 4 | ||||
-rw-r--r-- | packages/base/src/Internal/C/vector-aux.c | 5 |
2 files changed, 7 insertions, 2 deletions
diff --git a/packages/base/hmatrix.cabal b/packages/base/hmatrix.cabal index 3a11135..7bed0d3 100644 --- a/packages/base/hmatrix.cabal +++ b/packages/base/hmatrix.cabal | |||
@@ -1,5 +1,5 @@ | |||
1 | Name: hmatrix | 1 | Name: hmatrix |
2 | Version: 0.17.0.0 | 2 | Version: 0.17.0.1 |
3 | License: BSD3 | 3 | License: BSD3 |
4 | License-file: LICENSE | 4 | License-file: LICENSE |
5 | Author: Alberto Ruiz | 5 | Author: Alberto Ruiz |
@@ -74,7 +74,7 @@ library | |||
74 | Internal.Util | 74 | Internal.Util |
75 | Internal.Modular | 75 | Internal.Modular |
76 | Internal.Static | 76 | Internal.Static |
77 | 77 | ||
78 | C-sources: src/Internal/C/lapack-aux.c | 78 | C-sources: src/Internal/C/lapack-aux.c |
79 | src/Internal/C/vector-aux.c | 79 | src/Internal/C/vector-aux.c |
80 | 80 | ||
diff --git a/packages/base/src/Internal/C/vector-aux.c b/packages/base/src/Internal/C/vector-aux.c index a52b969..9dbf536 100644 --- a/packages/base/src/Internal/C/vector-aux.c +++ b/packages/base/src/Internal/C/vector-aux.c | |||
@@ -939,7 +939,12 @@ int vectorScan(char * file, int* n, double**pp){ | |||
939 | See: http://www.evanjones.ca/random-thread-safe.html | 939 | See: http://www.evanjones.ca/random-thread-safe.html |
940 | */ | 940 | */ |
941 | #pragma message "randomVector is not thread-safe in OSX and FreeBSD" | 941 | #pragma message "randomVector is not thread-safe in OSX and FreeBSD" |
942 | #endif | ||
942 | 943 | ||
944 | #if defined (__APPLE__) || (__FreeBSD__) || defined(_WIN32) || defined(WIN32) | ||
945 | /* Windows use thread-safe random | ||
946 | See: http://stackoverflow.com/questions/143108/is-windows-rand-s-thread-safe | ||
947 | */ | ||
943 | inline double urandom() { | 948 | inline double urandom() { |
944 | /* the probalility of matching will be theoretically p^3(in fact, it is not) | 949 | /* the probalility of matching will be theoretically p^3(in fact, it is not) |
945 | p is matching probalility of random(). | 950 | p is matching probalility of random(). |