[commit: ghc] master: Remove a redundant cast (118a09e)

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/118a09efe9e1badaddc4fe4e50af8b5671481c3e

>---------------------------------------------------------------

commit 118a09efe9e1badaddc4fe4e50af8b5671481c3e
Author: Ian Lynagh <[email protected]>
Date:   Fri Sep 21 19:39:36 2012 +0100

    Remove a redundant cast

>---------------------------------------------------------------

 includes/rts/storage/ClosureMacros.h |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/includes/rts/storage/ClosureMacros.h b/includes/rts/storage/ClosureMacros.h
index 849a6ef..6fdd557 100644
--- a/includes/rts/storage/ClosureMacros.h
+++ b/includes/rts/storage/ClosureMacros.h
@@ -505,7 +505,7 @@ EXTERN_INLINE void overwritingClosure (StgClosure *p)
 
     // For LDV profiling, we need to record the closure as dead
 #if defined(PROFILING)
-    LDV_recordDead((StgClosure *)(p), size);
+    LDV_recordDead(p, size);
 #endif
 
     for (i = 0; i < size - sizeofW(StgThunkHeader); i++) {