[Git][ghc/ghc][wip/stack_cloning] Rename assertion

[Sven Tennie]

Sven Tennie pushed to branch wip/stack_cloning at Glasgow Haskell Compiler / GHC


Commits:
8a0a2957 by Sven Tennie at 2020-10-11T19:52:00+02:00
Rename assertion

- - - - -


2 changed files:

- testsuite/tests/rts/cloneStackLib.c
- testsuite/tests/rts/cloneThreadStack.hs


Changes:

=====================================
testsuite/tests/rts/cloneStackLib.c
=====================================
@@ -3,7 +3,7 @@
 #include "rts/Messages.h"
 
 
-void checkClonedStack(StgStack *clonedStack, StgTSO *tso) {
+void expectStacksToBeEqual(StgStack *clonedStack, StgTSO *tso) {
     StgStack *liveStack = tso->stackobj;
 
     if(liveStack->header.info != clonedStack->header.info){


=====================================
testsuite/tests/rts/cloneThreadStack.hs
=====================================
@@ -8,7 +8,7 @@ import GHC.Stack.CloneStack
 import Control.Concurrent
 import GHC.Conc
 
-foreign import ccall "checkClonedStack" checkClonedStack:: StackSnapshot# -> ThreadId# -> IO ()
+foreign import ccall "expectStacksToBeEqual" expectStacksToBeEqual:: StackSnapshot# -> ThreadId# -> IO ()
 
 main :: IO ()
 main = do
@@ -21,7 +21,7 @@ main = do
 
     let (StackSnapshot stack) = stackSnapshot
     let (ThreadId tid#) = threadId
-    checkClonedStack stack tid#
+    expectStacksToBeEqual stack tid#
 
 immediatelyBlocking :: MVar Int -> IO ()
 immediatelyBlocking mVarToBeBlockedOn = do



View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/8a0a2957fd8d18d89fb37871fe4cee4cae4d32de

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/8a0a2957fd8d18d89fb37871fe4cee4cae4d32de
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/20201011/2f52189e/attachment-0001.html>