From: simonmar <unknown>
Date: Mon, 9 Jan 2006 14:37:07 +0000 (+0000)
Subject: [project @ 2006-01-09 14:37:07 by simonmar]
X-Git-Tag: final_switch_to_darcs,_this_repo_is_now_live~47
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=cd8f7a5858b46148c716b1ebc7251eacede24171;hp=a27ed15fca045062c389185f774e76f67fe8c5b3;p=ghc-hetmet.git

[project @ 2006-01-09 14:37:07 by simonmar]
Put entry_is_read_only and tvar_is_locked
---

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"