From cd8f7a5858b46148c716b1ebc7251eacede24171 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 9 Jan 2006 14:37:07 +0000
Subject: [PATCH 1/1] [project @ 2006-01-09 14:37:07 by simonmar] Put
 entry_is_read_only and tvar_is_locked

---
 ghc/rts/STM.c |    2 ++
 1 file changed, 2 insertions(+)

diff --git a/ghc/rts/STM.c b/ghc/rts/STM.c
index bc8e9bf..783ba6b 100644
--- a/ghc/rts/STM.c
+++ b/ghc/rts/STM.c
@@ -621,6 +621,7 @@ static StgBool entry_is_update(TRecEntry *e) {
   return result;
 } 
 
+#if defined(STM_FG_LOCKS)
 static StgBool entry_is_read_only(TRecEntry *e) {
   StgBool result;
   result = (e -> expected_value == e -> new_value);
@@ -634,6 +635,7 @@ static StgBool tvar_is_locked(StgTVar *s, StgTRecHeader *h) {
   result = (c == (StgClosure *) h);
   return result;  
 }
+#endif
 
 // revert_ownership : release a lock on a TVar, storing back
 // the value that it held when the lock was acquired.  "revert_all"
-- 
1.7.10.4