From: Simon Marlow <simonmar@microsoft.com>
Date: Mon, 26 Nov 2007 16:04:20 +0000 (+0000)
Subject: Check tag bits on the fun pointer of a PAP
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=770dd8113b313be8c1db889e82c4a8bf8a553ad5;p=ghc-hetmet.git

Check tag bits on the fun pointer of a PAP
---

diff --git a/rts/Sanity.c b/rts/Sanity.c
index dcb6e5b..25a76c0 100644
--- a/rts/Sanity.c
+++ b/rts/Sanity.c
@@ -235,6 +235,9 @@ checkPAP (StgClosure *fun, StgClosure** payload, StgWord n_args)
 			  n_args );
 	break;
     }
+
+    ASSERT(fun_info->f.arity > TAG_MASK ? GET_CLOSURE_TAG(fun) == 1
+           : GET_CLOSURE_TAG(fun) == fun_info->f.arity);
 }