projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2002-10-15 08:56:50 by simonpj]
[ghc-hetmet.git]
/
ghc
/
includes
/
Updates.h
diff --git
a/ghc/includes/Updates.h
b/ghc/includes/Updates.h
index
d203324
..
87b7bd6
100644
(file)
--- a/
ghc/includes/Updates.h
+++ b/
ghc/includes/Updates.h
@@
-1,5
+1,5
@@
/* -----------------------------------------------------------------------------
/* -----------------------------------------------------------------------------
- * $Id: Updates.h,v 1.25 2001/11/08 12:46:31 simonmar Exp $
+ * $Id: Updates.h,v 1.27 2001/12/10 18:07:09 sof Exp $
*
* (c) The GHC Team, 1998-1999
*
*
* (c) The GHC Team, 1998-1999
*
@@
-39,7
+39,7
@@
#define UPD_REAL_IND(updclosure, heapptr) \
{ \
const StgInfoTable *info; \
#define UPD_REAL_IND(updclosure, heapptr) \
{ \
const StgInfoTable *info; \
- if (Bdescr((P_)updclosure)->back != (bdescr *)BaseReg) { \
+ if (Bdescr((P_)updclosure)->u.back != (bdescr *)BaseReg) { \
info = LOCK_CLOSURE(updclosure); \
} else { \
info = updclosure->header.info; \
info = LOCK_CLOSURE(updclosure); \
} else { \
info = updclosure->header.info; \
@@
-178,7
+178,9
@@
extern void awakenBlockedQueue(StgTSO *q);
------------------------------------------------------------------------- */
#if defined(PROFILING)
------------------------------------------------------------------------- */
#if defined(PROFILING)
-#define PUSH_STD_CCCS(frame) frame->header.prof.ccs = CCCS
+// frame->header.prof.hp.rs = NULL (or frame-header.prof.hp.ldvw = 0) is unnecessary
+// because it is not used anyhow.
+#define PUSH_STD_CCCS(frame) (frame->header.prof.ccs = CCCS)
#else
#define PUSH_STD_CCCS(frame)
#endif
#else
#define PUSH_STD_CCCS(frame)
#endif