diff options
| -rw-r--r-- | rts/Sanity.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/rts/Sanity.c b/rts/Sanity.c index dcb6e5b5ea..25a76c0000 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); } |