From b250f6185627671d8b3e80004671663fe88ac80f Mon Sep 17 00:00:00 2001 From: simonmar Date: Thu, 28 Apr 2005 21:31:45 +0000 Subject: [PATCH] [project @ 2005-04-28 21:31:45 by simonmar] StgFunInfoExtra_slow_apply(): convert the slow_apply_offset to a W_ before arithmetic. --- ghc/includes/Cmm.h | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/ghc/includes/Cmm.h b/ghc/includes/Cmm.h index 09320a0..e989a00 100644 --- a/ghc/includes/Cmm.h +++ b/ghc/includes/Cmm.h @@ -383,8 +383,8 @@ */ #define StgFunInfoExtra_slow_apply(fun_info) \ - (StgFunInfoExtraRev_slow_apply_offset(fun_info) \ - + (fun_info) + SIZEOF_StgFunInfoExtraRev + SIZEOF_StgInfoTable) + (TO_W_(StgFunInfoExtraRev_slow_apply_offset(fun_info)) \ + + (fun_info) + SIZEOF_StgFunInfoExtraRev + SIZEOF_StgInfoTable) #define StgFunInfoExtra_fun_type(i) StgFunInfoExtraRev_fun_type(i) #define StgFunInfoExtra_arity(i) StgFunInfoExtraRev_arity(i) -- 1.7.10.4