Updated test

sanketr · Feb 26, 2012 · 7d0719b · 7d0719b
1 parent 338b688
commit 7d0719b
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/T.hs b/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]

diff --git a/test.c b/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)