[Git][ghc/ghc][wip/fix-ubx-cast] 2 commits: Avoid some pointless output in the testsuite

[Andreas Klebinger (@AndreasK)]

Andreas Klebinger pushed to branch wip/fix-ubx-cast at Glasgow Haskell Compiler / GHC


Commits:
632db7af by Andreas Klebinger at 2022-09-27T00:10:47+02:00
Avoid some pointless output in the testsuite

- - - - -
a796d89e by Andreas Klebinger at 2022-09-27T00:22:45+02:00
Fix some lint issues

- - - - -


2 changed files:

- compiler/GHC/Stg/Unarise.hs
- testsuite/driver/testlib.py


Changes:

=====================================
compiler/GHC/Stg/Unarise.hs
=====================================
@@ -283,7 +283,6 @@ import Data.Maybe (mapMaybe)
 import qualified Data.IntMap as IM
 import GHC.Utils.Trace
 import GHC.Builtin.PrimOps
-import GHC.Platform
 import GHC.Builtin.PrimOps.Casts
 import Data.List
 import GHC.Types.Name


=====================================
testsuite/driver/testlib.py
=====================================
@@ -1447,7 +1447,8 @@ def compile_cmp_asm(name: TestName,
                     ext: str,
                     extra_hc_opts: str
                     ) -> PassFail:
-    print('Compile only, extra args = ', extra_hc_opts)
+    if extra_hc_opts:
+        print('Compile only, extra args = ', extra_hc_opts)
     result = simple_build(name + '.' + ext, way, '-keep-s-files -O ' + extra_hc_opts, False, None, [], False, False)
 
     if badResult(result):
@@ -1474,7 +1475,8 @@ def compile_grep_asm(name: TestName,
                      is_substring: bool,
                      extra_hc_opts: str
                      ) -> PassFail:
-    print('Compile only, extra args = ', extra_hc_opts)
+    if extra_hc_opts:
+        print('Compile and grep asm, extra args = ', extra_hc_opts)
     result = simple_build(name + '.' + ext, way, '-keep-s-files -O ' + extra_hc_opts, False, None, [], False, False)
 
     if badResult(result):
@@ -1495,7 +1497,8 @@ def compile_grep_core(name: TestName,
                       way: WayName,
                       extra_hc_opts: str
                       ) -> PassFail:
-    print('Compile only, extra args = ', extra_hc_opts)
+    if extra_hc_opts:
+        print('Compile only, extra args = ', extra_hc_opts)
     result = simple_build(name + '.hs', way, '-ddump-to-file -dsuppress-all -ddump-simpl -O ' + extra_hc_opts, False, None, [], False, False)
 
     if badResult(result):



View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/compare/dccda9ccfbb8ee4bb0f8aefa254d1ec1331efa7e...a796d89eb52d4b0e9fbb5875340f8855d4232ca4

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/compare/dccda9ccfbb8ee4bb0f8aefa254d1ec1331efa7e...a796d89eb52d4b0e9fbb5875340f8855d4232ca4
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/20220926/28d52d04/attachment-0001.html>