diff options
Diffstat (limited to 'Optimiser.hs')
| -rw-r--r-- | Optimiser.hs | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/Optimiser.hs b/Optimiser.hs index 626cb50..f09128f 100644 --- a/Optimiser.hs +++ b/Optimiser.hs @@ -178,17 +178,6 @@ dedupDatas (IRProgram origbbs gfds datatbl) = IRProgram (map goBB origbbs) gfds goI (ref, IData i) = (ref, IData (valueIdx Map.! (datatbl !! i))) goI ins = ins -outEdges :: BB -> [Int] -outEdges (BB _ _ term) = outEdgesT term - -outEdgesT :: Terminator -> [Int] -outEdgesT (IBr _ a b) = [a, b] -outEdgesT (IJmp a) = [a] -outEdgesT (IRet _) = [] -outEdgesT (ITailC _ _) = [] -outEdgesT IExit = [] -outEdgesT IUnknown = [] - readTempsBB :: BB -> [Int] readTempsBB (BB _ inss term) = concatMap (readTempsIC . snd) inss ++ readTempsT term |