summaryrefslogtreecommitdiff
path: root/packages/base
diff options
context:
space:
mode:
Diffstat (limited to 'packages/base')
-rw-r--r--packages/base/hmatrix.cabal4
-rw-r--r--packages/base/src/Internal/C/vector-aux.c5
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 @@
1Name: hmatrix 1Name: hmatrix
2Version: 0.17.0.0 2Version: 0.17.0.1
3License: BSD3 3License: BSD3
4License-file: LICENSE 4License-file: LICENSE
5Author: Alberto Ruiz 5Author: 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*/
943inline double urandom() { 948inline 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().