From 6b5a425fa13fb71a9fdffe0d328df7f26e930716 Mon Sep 17 00:00:00 2001 From: sof Date: Tue, 8 Apr 2003 15:32:38 +0000 Subject: [PATCH 1/1] [project @ 2003-04-08 15:32:38 by sof] UPD_IND_NOLOCK(): update THREADED_RTS & SMP versions wrt rts/Storage.h:updateWithIndirection() change --- ghc/includes/Updates.h | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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 -- 1.7.10.4