From: simonmar <unknown>
Date: Thu, 24 Nov 2005 14:02:40 +0000 (+0000)
Subject: [project @ 2005-11-24 14:02:40 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~20
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=2d4e9216a65f09707862f2bbb78408a0a5fa3ceb;p=ghc-hetmet.git

[project @ 2005-11-24 14:02:40 by simonmar]
make this compile non-threaded again
---

diff --git a/ghc/rts/Stable.c b/ghc/rts/Stable.c
index 818f0f0..172be75 100644
--- a/ghc/rts/Stable.c
+++ b/ghc/rts/Stable.c
@@ -80,7 +80,9 @@ static snEntry *stable_ptr_free = NULL;
 
 static unsigned int SPT_size = 0;
 
+#ifdef THREADED_RTS
 static Mutex stable_mutex;
+#endif
 
 /* This hash table maps Haskell objects to stable names, so that every
  * call to lookupStableName on a given object will return the same
@@ -143,7 +145,9 @@ initStablePtrTable(void)
     //
     // Also, getStablePtr is now called from __attribute__((constructor))
     // functions, so initialising things here wouldn't work anyway.
+#ifdef THREADED_RTS
     initMutex(&stable_mutex);
+#endif
 }
 
 /*