From f7bb70d97eb7820c8ef7216038c750e1722c13a8 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Thu, 23 Feb 2006 15:09:04 +0000 Subject: [PATCH] bugfix for LDV profiling on 64-bit platforms There was an integer overflow in the definition of LDV_RECORD_CREATE when StgWord is 64 bits. --- ghc/includes/StgLdvProf.h | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ghc/includes/StgLdvProf.h b/ghc/includes/StgLdvProf.h index f5f7ae2..3c3df1c 100644 --- a/ghc/includes/StgLdvProf.h +++ b/ghc/includes/StgLdvProf.h @@ -25,7 +25,7 @@ */ #ifndef CMINUSMINUS #define LDV_RECORD_CREATE(c) \ - LDVW((c)) = (RTS_DEREF(era) << LDV_SHIFT) | LDV_STATE_CREATE + LDVW((c)) = ((StgWord)RTS_DEREF(era) << LDV_SHIFT) | LDV_STATE_CREATE #endif #ifdef CMINUSMINUS -- 1.7.10.4