[prototype better error handling for ghc back end
John Meacham <john@repetae.net>**20070126035527] hunk ./E/ToHs.hs 222
+transE (EError s _) = mparen $ return (text "error__" <+> tshow s <> text "#" <+> text "`seq`" <+> text "undefined")
hunk ./Main.hs 413
+
+        --mprog <- transformProgram tparms { transformCategory = "FloatInward", transformOperation = programFloatInward } mprog
+        --mprog <- Demand.analyzeProgram mprog
+        --mprog <- return $ E.CPR.cprAnalyzeProgram mprog
+        --mprog <- transformProgram tparms { transformSkipNoStats = True, transformCategory = "WorkWrap2", transformOperation = return . workWrapProgram } mprog
+        --mprog <- simplifyProgram sopt "Simplify-Four" coreMini mprog
hunk ./data/ViaGhc.hs 10
+import GHC.Err
hunk ./data/ViaGhc.hs 63
+{-
+error__ :: Addr# -> a
+error__ s = unsafePerformIO $ do
+    error_show s
+    error_exit (I# 255#)
+
+errorInt__ :: Addr# -> Int#
+errorInt__ s = seq (unsafePerformIO $ do
+    error_show s
+    error_exit (I# 255#)) 0#
+
+errorWord__ :: Addr# -> Word#
+errorWord__ s = seq (unsafePerformIO $ do
+    error_show s
+    error_exit (I# 255#)) (int2Word# 0#)
+
+errorAddr__ :: Addr# -> Addr#
+errorAddr__ s = seq (unsafePerformIO $ do
+    error_show s
+    error_exit (I# 255#)) (int2Addr# 0#)
+foreign import ccall unsafe "puts" error_show :: Ptr a -> IO ()
+foreign import ccall unsafe "exit" error_exit :: Int -> IO a
+ -}
+