diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2009-08-05 09:35:39 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2009-08-05 09:35:39 +0000 |
| commit | 948c01bdb7f42504487a624b229137694871efd0 (patch) | |
| tree | 162006e4eef0ed26e403fd313a7ff62caf2b97e1 /includes/rts/prof/LDV.h | |
| parent | a53ccca7894727fcf6de21b5c7b0ea2f7eaec569 (diff) | |
| download | haskell-948c01bdb7f42504487a624b229137694871efd0.tar.gz | |
profiling build fixes
Diffstat (limited to 'includes/rts/prof/LDV.h')
| -rw-r--r-- | includes/rts/prof/LDV.h | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/includes/rts/prof/LDV.h b/includes/rts/prof/LDV.h index c51b10647e..f54724652d 100644 --- a/includes/rts/prof/LDV.h +++ b/includes/rts/prof/LDV.h @@ -23,17 +23,22 @@ * because retainer profiling also expects LDVW(c) to be initialised * to zero. */ -#ifndef CMINUSMINUS -#define LDV_RECORD_CREATE(c) \ - LDVW((c)) = ((StgWord)RTS_DEREF(era) << LDV_SHIFT) | LDV_STATE_CREATE -#endif #ifdef CMINUSMINUS + #define LDV_RECORD_DEAD_FILL_SLOP_DYNAMIC(c) \ foreign "C" LDV_recordDead_FILL_SLOP_DYNAMIC(c "ptr") + #else + +#define LDV_RECORD_CREATE(c) \ + LDVW((c)) = ((StgWord)RTS_DEREF(era) << LDV_SHIFT) | LDV_STATE_CREATE + +void LDV_recordDead_FILL_SLOP_DYNAMIC( StgClosure *p ); + #define LDV_RECORD_DEAD_FILL_SLOP_DYNAMIC(c) \ LDV_recordDead_FILL_SLOP_DYNAMIC(c) + #endif #else /* !PROFILING */ |