ghc/tests/programs/jeff-bug/Predict.hs

   1 module Predict where
   2
   3 import Hawk
   4 import Trans
   5 import qualified TransSig as T
   6
   7 import DLX
   8
   9 annotate x = lift1 (map anno) x
  10   where anno t = let Just (Reg PC (Val pc)) = getSrcPC t
  11                  in if isBranch t then addInfo (Reg SpecPC (Val pc)) t
  12                     else t
  13