[Git][ghc/ghc][wip/ghc-debug] Apply suggestion to testsuite/tests/rts/ghc-debug/pause_and_unpause_thread.c

[Sven Tennie]

Sven Tennie pushed to branch wip/ghc-debug at Glasgow Haskell Compiler / GHC


Commits:
7a89b21e by Sven Tennie at 2020-09-11T02:02:46-04:00
Apply suggestion to testsuite/tests/rts/ghc-debug/pause_and_unpause_thread.c
- - - - -


1 changed file:

- testsuite/tests/rts/ghc-debug/pause_and_unpause_thread.c


Changes:

=====================================
testsuite/tests/rts/ghc-debug/pause_and_unpause_thread.c
=====================================
@@ -22,7 +22,11 @@ void* pauseAndUnpause_thread(void* unused){
     timestamps.end = time(NULL);
 
     rts_unpause(r_paused);
-
+    
+    if(rts_isPaused()) {
+        errorBelch("Expected the RTS to be unpaused.");
+        exit(1);
+    }
     return NULL;
 }
 



View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/7a89b21e6ebbf4b92d81e6675bc43ee07d5f9e44

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/7a89b21e6ebbf4b92d81e6675bc43ee07d5f9e44
You're receiving this email because of your account on gitlab.haskell.org.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.haskell.org/pipermail/ghc-commits/attachments/20200911/151d3207/attachment.html>