Commit 118a09ef authored by ian@well-typed.com's avatar ian@well-typed.com

Remove a redundant cast

parent ed6a7e4e
...@@ -505,7 +505,7 @@ EXTERN_INLINE void overwritingClosure (StgClosure *p) ...@@ -505,7 +505,7 @@ EXTERN_INLINE void overwritingClosure (StgClosure *p)
// For LDV profiling, we need to record the closure as dead // For LDV profiling, we need to record the closure as dead
#if defined(PROFILING) #if defined(PROFILING)
LDV_recordDead((StgClosure *)(p), size); LDV_recordDead(p, size);
#endif #endif
for (i = 0; i < size - sizeofW(StgThunkHeader); i++) { for (i = 0; i < size - sizeofW(StgThunkHeader); i++) {
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment