diff options
author | Ying-Ruei Liang (TheKK) <thumbd03803@gmail.com> | 2022-12-16 13:37:29 +0800 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-12-21 14:31:54 -0500 |
commit | df7bc6b36d16e91f3e9e96e9542885e544bbf4d0 (patch) | |
tree | 46db1328e21f021a4dc2cc310e7b13c6aaace8e5 | |
parent | 0be75261cf0bd4958f075d498e8f6f966f0b1039 (diff) | |
download | haskell-df7bc6b36d16e91f3e9e96e9542885e544bbf4d0.tar.gz |
rts: explicitly store return value of ccall checkClosure to prevent type error (#22617)
-rw-r--r-- | rts/ContinuationOps.cmm | 3 |
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); |