X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2FUpdates.cmm;h=7ebade0aea309eb77e1eaabaf01056ef0589c829;hp=a9f25b76fbd7a6f5a84dd07f005d3ae14f8d7384;hb=d31dfb32ea936c22628b508c28a36c12e631430a;hpb=c9c4951cc1d76273be541fc4791e131e418956aa

diff --git a/rts/Updates.cmm b/rts/Updates.cmm
index a9f25b7..7ebade0 100644
--- a/rts/Updates.cmm
+++ b/rts/Updates.cmm
@@ -45,11 +45,9 @@
 	}
 
 #if defined(PROFILING)
-#define UPD_FRAME_BITMAP 3
-#define UPD_FRAME_WORDS  3
+#define UPD_FRAME_PARAMS W_ unused1, W_ unused2, "ptr" W_ unused3
 #else
-#define UPD_FRAME_BITMAP 0
-#define UPD_FRAME_WORDS  1
+#define UPD_FRAME_PARAMS "ptr" W_ unused1
 #endif
 
 /* this bitmap indicates that the first word of an update frame is a
@@ -57,11 +55,9 @@
  * there's a cost-centre-stack in there too).
  */
 
-INFO_TABLE_RET( stg_upd_frame, 
-	    UPD_FRAME_WORDS, UPD_FRAME_BITMAP, UPDATE_FRAME)
+INFO_TABLE_RET( stg_upd_frame, UPDATE_FRAME, UPD_FRAME_PARAMS)
 UPD_FRAME_ENTRY_TEMPLATE
 
 
-INFO_TABLE_RET( stg_marked_upd_frame, 
-	    UPD_FRAME_WORDS, UPD_FRAME_BITMAP, UPDATE_FRAME)
+INFO_TABLE_RET( stg_marked_upd_frame, UPDATE_FRAME, UPD_FRAME_PARAMS)
 UPD_FRAME_ENTRY_TEMPLATE