WIP: #16672wip/16672

1 files changed, 7 insertions, 3 deletions

diff --git a/compiler/main/DynFlags.hs b/compiler/main/DynFlags.hs
index e94798aede..52843b4cb0 100644
--- a/compiler/main/DynFlags.hs
+++ b/compiler/main/DynFlags.hs
@@ -2812,7 +2812,7 @@ parseDynamicFlagsFull activeFlags cmdline dflags0 args = do
   let (dflags5, consistency_warnings) = makeDynFlagsConsistent dflags4
 
   -- Set timer stats & heap size
-  when (enableTimeStats dflags5) $ liftIO enableTimingStats
+--  when (enableTimeStats dflags5) $ liftIO enableTimingStats
   case (ghcHeapSize dflags5) of
     Just x -> liftIO (setHeapSize x)
     _      -> return ()
@@ -5967,8 +5967,12 @@ decodeSize str
         n      = readRational m
         pred c = isDigit c || c == '.'
 
-foreign import ccall unsafe "setHeapSize"       setHeapSize       :: Int -> IO ()
-foreign import ccall unsafe "enableTimingStats" enableTimingStats :: IO ()
+setHeapSize :: Int -> IO ()
+setHeapSize _ = return ()
+enableTimingStats :: IO ()
+enableTimingStats = return ()
+--foreign import ccall unsafe "setHeapSize"       setHeapSize       :: Int -> IO ()
+--foreign import ccall unsafe "enableTimingStats" enableTimingStats :: IO ()
 
 -- -----------------------------------------------------------------------------
 -- Types for managing temporary files.