[Git][ghc/ghc][wip/T22010] Quick fixes for tests

[Jaro Reinders (@Noughtmare)]

Jaro Reinders pushed to branch wip/T22010 at Glasgow Haskell Compiler / GHC


Commits:
fa21833a by Jaro Reinders at 2023-06-14T14:48:36+02:00
Quick fixes for tests

- - - - -


3 changed files:

- testsuite/tests/count-deps/CountDepsAst.stdout
- testsuite/tests/count-deps/CountDepsParser.stdout
- testsuite/tests/perf/should_run/UniqLoop.hs


Changes:

=====================================
testsuite/tests/count-deps/CountDepsAst.stdout
=====================================
@@ -100,6 +100,13 @@ GHC.Data.Strict
 GHC.Data.StringBuffer
 GHC.Data.TrieMap
 GHC.Data.Unboxed
+GHC.Data.Word64Map
+GHC.Data.Word64Map.Internal
+GHC.Data.Word64Map.Lazy
+GHC.Data.Word64Map.Strict
+GHC.Data.Word64Map.Strict.Internal
+GHC.Data.Word64Set
+GHC.Data.Word64Set.Internal
 GHC.Driver.Backend
 GHC.Driver.Backend.Internal
 GHC.Driver.Config.Core.Lint
@@ -286,6 +293,9 @@ GHC.Utils.Binary.Typeable
 GHC.Utils.BufHandle
 GHC.Utils.CliOption
 GHC.Utils.Constants
+GHC.Utils.Containers.Internal.BitUtil
+GHC.Utils.Containers.Internal.Prelude
+GHC.Utils.Containers.Internal.StrictPair
 GHC.Utils.Error
 GHC.Utils.Exception
 GHC.Utils.FV


=====================================
testsuite/tests/count-deps/CountDepsParser.stdout
=====================================
@@ -100,6 +100,13 @@ GHC.Data.Strict
 GHC.Data.StringBuffer
 GHC.Data.TrieMap
 GHC.Data.Unboxed
+GHC.Data.Word64Map
+GHC.Data.Word64Map.Internal
+GHC.Data.Word64Map.Lazy
+GHC.Data.Word64Map.Strict
+GHC.Data.Word64Map.Strict.Internal
+GHC.Data.Word64Set
+GHC.Data.Word64Set.Internal
 GHC.Driver.Backend
 GHC.Driver.Backend.Internal
 GHC.Driver.Backpack.Syntax
@@ -293,6 +300,9 @@ GHC.Utils.Binary.Typeable
 GHC.Utils.BufHandle
 GHC.Utils.CliOption
 GHC.Utils.Constants
+GHC.Utils.Containers.Internal.BitUtil
+GHC.Utils.Containers.Internal.Prelude
+GHC.Utils.Containers.Internal.StrictPair
 GHC.Utils.Error
 GHC.Utils.Exception
 GHC.Utils.FV


=====================================
testsuite/tests/perf/should_run/UniqLoop.hs
=====================================
@@ -4,13 +4,14 @@ module Main where
 
 import GHC.Types.Unique.Supply
 import GHC.Types.Unique
+import Data.Word
 
 -- Generate a lot of uniques
 main = do
     us <- mkSplitUniqSupply 'v'
     seq (churn us 10000000) (return ())
 
-churn :: UniqSupply -> Int -> Int
+churn :: UniqSupply -> Word64 -> Word64
 churn !us 0 = getKey $ uniqFromSupply us
 churn us n =
   let (!x,!us') = takeUniqFromSupply us



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

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/fa21833aa157a32c7e5dcb7f750daf6982a5c013
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/20230614/a572356b/attachment-0001.html>