summaryrefslogtreecommitdiff
path: root/testsuite
diff options
context:
space:
mode:
authorCheng Shao <astrohavoc@gmail.com>2022-09-05 10:00:07 +0000
committerMarge Bot <ben+marge-bot@smart-cactus.org>2022-09-07 16:43:22 -0400
commit04a738cb23e82b32caf38b7965f5042e6af6ee88 (patch)
tree2afcf58cd76ca6f8ae018cd4cc655ebbc87269b8 /testsuite
parenta581186f38a4feb850614b03f452191eaceee14d (diff)
downloadhaskell-04a738cb23e82b32caf38b7965f5042e6af6ee88.tar.gz
CmmToAsm: remove unused ModLocation from NatM_State
Diffstat (limited to 'testsuite')
-rw-r--r--testsuite/tests/regalloc/regalloc_unit_tests.hs3
1 files changed, 1 insertions, 2 deletions
diff --git a/testsuite/tests/regalloc/regalloc_unit_tests.hs b/testsuite/tests/regalloc/regalloc_unit_tests.hs
index b414b36e59..0238b5d03c 100644
--- a/testsuite/tests/regalloc/regalloc_unit_tests.hs
+++ b/testsuite/tests/regalloc/regalloc_unit_tests.hs
@@ -152,7 +152,7 @@ compileCmmForRegAllocStats logger home_unit dflags cmmFile ncgImplF us = do
-- compile and discard the generated code, returning regalloc stats
mapM (\ (count, thisCmm) ->
- cmmNativeGen logger thisModLoc ncgImpl
+ cmmNativeGen logger ncgImpl
usb dwarfFileIds dbgMap thisCmm count >>=
(\(_, _, _, _, colorStats, linearStats, _) ->
-- scrub unneeded output from cmmNativeGen
@@ -167,7 +167,6 @@ compileCmmForRegAllocStats logger home_unit dflags cmmFile ncgImplF us = do
thisMod = mkModule
(stringToUnit . show . uniqFromSupply $ usc)
(mkModuleName . show . uniqFromSupply $ usd)
- thisModLoc = mkHiOnlyModLocation (initFinderOpts dflags) "hi" "dyn_hi" "" cmmFile
-- | The register allocator should be able to see that each variable only