From 2d4e9216a65f09707862f2bbb78408a0a5fa3ceb Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Thu, 24 Nov 2005 14:02:40 +0000
Subject: [PATCH 1/1] [project @ 2005-11-24 14:02:40 by simonmar] make this
 compile non-threaded again

---
 ghc/rts/Stable.c |    4 ++++
 1 file changed, 4 insertions(+)

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
 }
 
 /*
-- 
1.7.10.4