[MLton-commit] r7237

[Wesley Terpstra]

Don't check handlers if they don't exist


----------------------------------------------------------------------

U   mlton/branches/llvm/mlton/backend/backend.fun

----------------------------------------------------------------------

Modified: mlton/branches/llvm/mlton/backend/backend.fun
===================================================================
--- mlton/branches/llvm/mlton/backend/backend.fun	2009-10-08 15:49:57 UTC (rev 7236)
+++ mlton/branches/llvm/mlton/backend/backend.fun	2009-10-08 15:57:23 UTC (rev 7237)
@@ -187,7 +187,8 @@
                      doit = ImplementHandlers.doit}, p)
       val p = maybePass ({name = "rssaShrink2", 
                           doit = Program.shrink}, p)
-      val () = Program.checkHandlers p
+      val () = if not handlers then () else
+               Program.checkHandlers p
       val (p, makeProfileInfo) =
          pass' ({name = "implementProfiling",
                  doit = ImplementProfiling.doit},