[Git][ghc/ghc][wip/ghc-debug] Use rts_isPaused() is test

[Sven Tennie]

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


Commits:
9f719b84 by Sven Tennie at 2020-06-28T15:40:35+02:00
Use rts_isPaused() is test

- - - - -


1 changed file:

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


Changes:

=====================================
testsuite/tests/rts/ghc-debug/pause_and_unpause_thread.c
=====================================
@@ -12,6 +12,11 @@ struct PauseTimestamps timestamps = {0, 0};
 void* pauseAndUnpause_thread(void* unused){
     RtsPaused r_paused = rts_pause();
 
+    if(!rts_isPaused()) {
+        errorBelch("Expected the RTS to be paused.");
+        exit(1);
+    }
+
     timestamps.begin = time(NULL);
     sleep(5);
     timestamps.end = time(NULL);



View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/9f719b840be6155f9b1e9b5acb5b2e1347981f27

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/9f719b840be6155f9b1e9b5acb5b2e1347981f27
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/20200628/60f67573/attachment.html>