[project @ 2001-08-22 12:24:41 by simonmar]

[ghc-hetmet.git] / ghc / tests / programs / jeff-bug / Predict.hs

diff --git a/ghc/tests/programs/jeff-bug/Predict.hs b/ghc/tests/programs/jeff-bug/Predict.hs
deleted file mode 100644 (file)
index 66475b3..0000000
--- a/ghc/tests/programs/jeff-bug/Predict.hs
+++ /dev/null
@@ -1,13 +0,0 @@
-module Predict where
-
-import Hawk
-import Trans 
-import qualified TransSig as T
-
-import DLX
-
-annotate x = lift1 (map anno) x
-  where anno t = let Just (Reg PC (Val pc)) = getSrcPC t 
-                 in if isBranch t then addInfo (Reg SpecPC (Val pc)) t
-                    else t
-