Fourth

1 files changed, 1 insertions, 1 deletions

diff --git a/CodeGen.hs b/CodeGen.hs
index 764a900..905bee5 100644
--- a/CodeGen.hs
+++ b/CodeGen.hs
@@ -61,7 +61,7 @@ setSpillSize sz = modify $ \s -> s {spillSize = sz}
 codegen :: IRProgram -> Error String
 codegen (IRProgram vars funcs) = do
     x64 <- execCGMonad $ mapM_ codegenFunc funcs
-    traceShowM x64
+    -- traceShowM x64
     X64.verify x64
     varcg <- liftM unlines $ mapM codegenVar vars
     x64opt <- x64Optimise x64