diff options
author | tomsmeding <tom.smeding@gmail.com> | 2019-11-29 21:06:54 +0100 |
---|---|---|
committer | tomsmeding <tom.smeding@gmail.com> | 2019-11-30 10:19:16 +0100 |
commit | ecd369e0fbdc71c74ccd327899f8915045a01630 (patch) | |
tree | 6015bed5621645c0a7c4bec6f232ce371bec5642 /Optimiser.hs | |
parent | 5347cb83e730a84fabe162dfc722132cc3ed0f75 (diff) |
WIP liveness analysis implementation
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 |