[code cleanups
John Meacham <john@repetae.net>**20050916095928] hunk ./FastMutInt.hs 2
---
--- (c) The University of Glasgow 2002
---
--- Unboxed mutable Ints
-
--- arch-tag: cc964025-cbad-4910-8f56-5d54d5b1a006
-
-
-{-# OPTIONS -cpp #-}
hunk ./FastMutInt.hs 6
-
-
-
---  #define SIZEOF_HSINT 4
-
-
hunk ./GraphUtil.hs 10
---import qualified Map
hunk ./GraphUtil.hs 22
-    --kv a = Map.lookup a $ Map.fromList $  zip (sort $ map fn ns) [0..]
hunk ./GraphUtil.hs 42
-            -- ng =  -- (g // [(n,[ x | x <- g!n, x /= mv]) | n <- ns])
hunk ./GraphUtil.hs 51
-
hunk ./GraphUtil.hs 71
---reachable :: Graph n k -> [k] -> [k]
hunk ./Main.hs 150
-        --let bs = annotateBindings mempty lc
-        --mapM_ putErrLn  [ tvrShowName x <+> "->" <+> tshow y | (x,y) <- Map.toList bs]
hunk ./Main.hs 184
-    --wdump FD.Progress $ showHoCounts ho
hunk ./Main.hs 189
-            putStrLn "  ---- class hierarchy ---- "
-            printClassHierarchy (hoClassHierarchy ho)
+        putStrLn "  ---- class hierarchy ---- "
+        printClassHierarchy (hoClassHierarchy ho)
hunk ./Main.hs 200
-    --wdump FD.Progress $ putErrLn $ "Functions culled: " ++ show (length ds - length ds')
hunk ./Main.hs 205
-    let pe = ePrettyEx
-    --let esimplify = E.Simplify.simplify mempty { so_dataTable = dataTable, so_properties = (if fopts FO.InlinePragmas then  hoProps ho else mempty), so_rules = rules }
-    --let esimplify = E.Simplify.simplify ((if fopts FO.InlinePragmas then  hoProps ho else mempty)) dataTable
hunk ./Main.hs 210
-        --let (e'',_,_occ) = collectOcc [] rules dataTable e
-        --mapM_ (putDocMLn CharIO.putErr) $ [ pprint x <+> text "->" <+> tshow y|  (x,y) <- Map.toList occ]
-        --putErrLn ">>> Funzo"
-        --printCheckName dataTable e''
hunk ./Main.hs 297
-        --let comm =  "gcc -std=gnu99 -g -Wall -o '" ++ fn ++ "' '" ++ cf ++ "'"