Inline argsToLists

unisonweb · Dec 10, 2024 · 5e2b968 · 5e2b968
1 parent dfac404
commit 5e2b968
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/unison-runtime/src/Unison/Runtime/Foreign/Impl.hs b/unison-runtime/src/Unison/Runtime/Foreign/Impl.hs
@@ -179,7 +179,7 @@ import UnliftIO qualified
 foreignCall :: ForeignFunc -> Args -> XStack -> IOXStack
 foreignCall !ff !args !xstk =
   stackIOToIOX $ foreignCallHelper ff args (packXStack xstk)
-{-# INLINE foreignCall #-}
+{-# NOINLINE foreignCall #-}
 
 foreignCallHelper :: ForeignFunc -> Args -> Stack -> IO Stack
 foreignCallHelper = \case

diff --git a/unison-runtime/src/Unison/Runtime/MCode.hs b/unison-runtime/src/Unison/Runtime/MCode.hs
@@ -285,6 +285,7 @@ argsToLists = \case
   VArgR i l -> take l [i ..]
   VArgN us -> primArrayToList us
   VArgV _ -> internalBug "argsToLists: DArgV"
+{-# INLINEABLE argsToLists #-}
 
 countArgs :: Args -> Int
 countArgs ZArgs = 0
@@ -293,6 +294,7 @@ countArgs (VArg2 {}) = 2
 countArgs (VArgR _ l) = l
 countArgs (VArgN us) = sizeofPrimArray us
 countArgs (VArgV {}) = internalBug "countArgs: DArgV"
+{-# INLINEABLE countArgs #-}
 
 data UPrim1
   = -- integral