From 4ae2dcb8c4b0f42bd83345da172da69716da1081 Mon Sep 17 00:00:00 2001 From: Lukasz Czajka Date: Fri, 10 Jan 2025 16:29:27 +0100 Subject: [PATCH] changes for review --- .../Tree/Transformation/Optimize/ConvertUnaryCalls.hs | 2 ++ test/Main.hs | 4 ++-- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/src/Juvix/Compiler/Tree/Transformation/Optimize/ConvertUnaryCalls.hs b/src/Juvix/Compiler/Tree/Transformation/Optimize/ConvertUnaryCalls.hs index 3aceb4f0c5..e7c3c98250 100644 --- a/src/Juvix/Compiler/Tree/Transformation/Optimize/ConvertUnaryCalls.hs +++ b/src/Juvix/Compiler/Tree/Transformation/Optimize/ConvertUnaryCalls.hs @@ -6,6 +6,8 @@ import Juvix.Compiler.Tree.Extra.Recursors import Juvix.Compiler.Tree.Extra.Type import Juvix.Compiler.Tree.Transformation.Base +-- Replaces generic calls (with CallClosures) to unknown unary functions with +-- known non-function target types by direct closure calls (with Call) convertUnaryCalls :: InfoTable -> InfoTable convertUnaryCalls tab = mapT convert tab where diff --git a/test/Main.hs b/test/Main.hs index 98ef785718..6f7dd375ab 100644 --- a/test/Main.hs +++ b/test/Main.hs @@ -28,9 +28,9 @@ import Typecheck qualified slowTests :: IO TestTree slowTests = - testGroup + sequentialTestGroup "Juvix slow tests" - -- AllFinish + AllFinish <$> sequence [ return Runtime.allTests, return Reg.allTests,