X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FInterpreter.c;h=9071912f2de991f50b1a4db3e91e1d902181fc92;hb=26f164e5759e9eca73deb0531ddec422d36a6924;hp=b95d5a903064d111cdfe1d1704c148fa3141f9ca;hpb=35beb255958545f401f4f2229953a6355d09476c;p=ghc-hetmet.git

diff --git a/rts/Interpreter.c b/rts/Interpreter.c
index b95d5a9..9071912 100644
--- a/rts/Interpreter.c
+++ b/rts/Interpreter.c
@@ -11,10 +11,10 @@
 
 // internal headers
 #include "sm/Storage.h"
+#include "sm/Sanity.h"
 #include "RtsUtils.h"
 #include "Schedule.h"
 #include "Updates.h"
-#include "Sanity.h"
 #include "Prelude.h"
 #include "Stable.h"
 #include "Printer.h"
@@ -443,7 +443,7 @@ do_return:
         // to a PAP by the GC, violating the invariant that PAPs
         // always contain a tagged pointer to the function.
 	INTERP_TICK(it_retto_UPDATE);
-	UPD_IND(((StgUpdateFrame *)Sp)->updatee, tagged_obj); 
+	UPD_IND(cap, ((StgUpdateFrame *)Sp)->updatee, tagged_obj); 
 	Sp += sizeofW(StgUpdateFrame);
 	goto do_return;