From: sof <unknown>
Date: Tue, 8 Apr 2003 15:32:38 +0000 (+0000)
Subject: [project @ 2003-04-08 15:32:38 by sof]
X-Git-Tag: Approx_11550_changesets_converted~986
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=6b5a425fa13fb71a9fdffe0d328df7f26e930716;hp=030fa3785b97bec246d7e9628a94987724434cd8;p=ghc-hetmet.git

[project @ 2003-04-08 15:32:38 by sof]
UPD_IND_NOLOCK(): update THREADED_RTS & SMP versions wrt rts/Storage.h:updateWithIndirection() change
---

diff --git a/ghc/includes/Updates.h b/ghc/includes/Updates.h
index ac98731..952f4d1 100644
--- a/ghc/includes/Updates.h
+++ b/ghc/includes/Updates.h
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: Updates.h,v 1.30 2003/03/27 13:54:31 simonmar Exp $
+ * $Id: Updates.h,v 1.31 2003/04/08 15:32:38 sof Exp $
  *
  * (c) The GHC Team, 1998-1999
  *
@@ -97,7 +97,7 @@
 	const StgInfoTable *info;					\
 	info = updclosure->header.info;					\
         AWAKEN_BQ(info,updclosure);					\
-	updateWithIndirection(info,					\
+	updateWithIndirection(info,&stg_IND_info,			\
 			      (StgClosure *)updclosure,			\
 			      (StgClosure *)heapptr,);			\
    }
@@ -119,9 +119,9 @@
 	const StgInfoTable *info;			\
 	info = ((StgClosure *)updclosure)->header.info;	\
         AWAKEN_BQ_NOLOCK(info,updclosure);		\
-	updateWithIndirection(info,			\
+	updateWithIndirection(info,&stg_IND_info,	\
 			      (StgClosure *)updclosure,	\
-			      (StgClosure *)heapptr);	\
+			      (StgClosure *)heapptr,);	\
    }
 # endif