summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorYing-Ruei Liang (TheKK) <thumbd03803@gmail.com>2022-12-16 13:37:29 +0800
committerMarge Bot <ben+marge-bot@smart-cactus.org>2022-12-21 14:31:54 -0500
commitdf7bc6b36d16e91f3e9e96e9542885e544bbf4d0 (patch)
tree46db1328e21f021a4dc2cc310e7b13c6aaace8e5
parent0be75261cf0bd4958f075d498e8f6f966f0b1039 (diff)
downloadhaskell-df7bc6b36d16e91f3e9e96e9542885e544bbf4d0.tar.gz
rts: explicitly store return value of ccall checkClosure to prevent type error (#22617)
-rw-r--r--rts/ContinuationOps.cmm3
1 files changed, 2 insertions, 1 deletions
diff --git a/rts/ContinuationOps.cmm b/rts/ContinuationOps.cmm
index 2282dd9425..efb485057f 100644
--- a/rts/ContinuationOps.cmm
+++ b/rts/ContinuationOps.cmm
@@ -166,11 +166,12 @@ INFO_TABLE_FUN(stg_CONTINUATION,0,0,CONTINUATION,"CONTINUATION","CONTINUATION",2
// see Note [Continuations overview] in Continuation.c
stg_CONTINUATION_apply // explicit stack
{
+ W_ _unused;
P_ cont, io;
cont = R1;
io = R2;
- IF_DEBUG(sanity, ccall checkClosure(cont "ptr"));
+ IF_DEBUG(sanity, (_unused) = ccall checkClosure(cont "ptr"));
W_ new_stack_words, apply_mask_frame, mask_frame_offset;
new_stack_words = StgContinuation_stack_size(cont);