diff options
Diffstat (limited to 'testsuite/tests/rts/cloneStackLib.c')
-rw-r--r-- | testsuite/tests/rts/cloneStackLib.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/testsuite/tests/rts/cloneStackLib.c b/testsuite/tests/rts/cloneStackLib.c index a89a069886..c4050c45aa 100644 --- a/testsuite/tests/rts/cloneStackLib.c +++ b/testsuite/tests/rts/cloneStackLib.c @@ -75,7 +75,7 @@ static int countOnes(StgPtr spBottom, StgPtr payload, case CONSTR_0_1: { const StgConInfoTable *con_info = get_con_itbl(closure); if (strcmp(GET_CON_DESC(con_info), "ghc-prim:GHC.Types.I#") == 0 && - closure->payload[0] == 1) { + closure->payload[0] == (StgClosure*) 1) { ones++; } break; |