From: simonmar <unknown>
Date: Tue, 12 Jul 2005 14:23:51 +0000 (+0000)
Subject: [project @ 2005-07-12 14:23:51 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~362
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=85f3db842ae9bd547b3b21c18754b4987335fd38;p=ghc-hetmet.git

[project @ 2005-07-12 14:23:51 by simonmar]
Disable a couple of assertions for the same reason as the previous commit.
---

diff --git a/ghc/rts/Exception.cmm b/ghc/rts/Exception.cmm
index 23655f8..f35a9c7 100644
--- a/ghc/rts/Exception.cmm
+++ b/ghc/rts/Exception.cmm
@@ -52,7 +52,8 @@
 INFO_TABLE_RET( stg_unblockAsyncExceptionszh_ret,
  		0/*framesize*/, 0/*bitmap*/, RET_SMALL )
 {
-    ASSERT(StgTSO_blocked_exceptions(CurrentTSO) != NULL);
+    // Not true: see comments above
+    // ASSERT(StgTSO_blocked_exceptions(CurrentTSO) != NULL);
 #if defined(GRAN) || defined(PAR)
     foreign "C" awakenBlockedQueue(StgTSO_blocked_exceptions(CurrentTSO) "ptr", 
 				   NULL "ptr"); 
@@ -73,7 +74,8 @@ INFO_TABLE_RET( stg_unblockAsyncExceptionszh_ret,
 INFO_TABLE_RET( stg_blockAsyncExceptionszh_ret,
   		0/*framesize*/, 0/*bitmap*/, RET_SMALL )
 {
-    ASSERT(StgTSO_blocked_exceptions(CurrentTSO) == NULL);
+    // Not true: see comments above
+    // ASSERT(StgTSO_blocked_exceptions(CurrentTSO) == NULL);
     StgTSO_blocked_exceptions(CurrentTSO) = END_TSO_QUEUE;
 #ifdef REG_R1
     Sp_adj(1);