From d2e1c2cedb08a30f9d9b7c82904b3baa1e351dfa Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Fri, 24 Mar 2006 11:39:00 +0000 Subject: [PATCH] mark recordMutableCap() with [R1] to avoid saving all regs across it --- ghc/rts/Updates.h | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ghc/rts/Updates.h b/ghc/rts/Updates.h index 62473b3..5872157 100644 --- a/ghc/rts/Updates.h +++ b/ghc/rts/Updates.h @@ -278,7 +278,7 @@ FILL_SLOP(StgClosure *p) if (bdescr_gen_no(bd) != 0 :: CInt) { \ foreign "C" recordMutableCap(p1 "ptr", \ MyCapability() "ptr", \ - bdescr_gen_no(bd)); \ + bdescr_gen_no(bd)) [R1]; \ SET_INFO(p1, stg_IND_OLDGEN_info); \ LDV_RECORD_CREATE(p1); \ TICK_UPD_OLD_IND(); \ -- 1.7.10.4