X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Ftests%2Fprograms%2Fjeff-bug%2FPredict.hs;fp=ghc%2Ftests%2Fprograms%2Fjeff-bug%2FPredict.hs;h=0000000000000000000000000000000000000000;hb=16acb4976514ab4b03c79d6845e3f0e98a1a33cf;hp=66475b351b27ed49a439d81ca8fc80b63214a379;hpb=f2eadfd5dfb23cc611e2540f46180bca7d095f15;p=ghc-hetmet.git

diff --git a/ghc/tests/programs/jeff-bug/Predict.hs b/ghc/tests/programs/jeff-bug/Predict.hs
deleted file mode 100644
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
-