Permalink
Browse files

Updated test

  • Loading branch information...
sanketr committed Feb 26, 2012
1 parent 338b688 commit 7d0719b7e45382ef72e8f21eb817f65a106e040f
Showing with 3 additions and 3 deletions.
  1. +1 −1 T.hs
  2. +2 −2 test.c
View
2 T.hs
@@ -48,7 +48,7 @@ getPtr = unsafeForeignPtrToPtr . (\(x,_,_) -> x) . SV.unsafeToForeignPtr
main :: IO ()
main = do
- let nThreads = 12
+ let nThreads = 7
-- create two mvar lists for C FFI threads
m1 <- mapM (const newEmptyMVar) [1..nThreads] :: IO [MVar CInt]
m2 <- mapM (const newEmptyMVar) [1..nThreads] :: IO [MVar CInt]
View
4 test.c
@@ -3,8 +3,8 @@
void startTest(int);
-int gThreads = 0; //number of threads
-FnPtr* gFn = NULL;
+static int gThreads = 0; //number of threads
+static FnPtr* gFn = NULL;
static pthread_mutex_t* gLock = NULL;
void initThreads(int nThreads, FnPtr* fns)

0 comments on commit 7d0719b

Please sign in to comment.