diff options
Diffstat (limited to 'Intermediate.hs')
| -rw-r--r-- | Intermediate.hs | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/Intermediate.hs b/Intermediate.hs index ad3cb89..c395f55 100644 --- a/Intermediate.hs +++ b/Intermediate.hs @@ -200,6 +200,19 @@ isIMov :: IRIns -> Bool isIMov (IMov _ _) = True isIMov _ = False +isILoad :: IRIns -> Bool +isILoad (ILoad _ _) = True +isILoad _ = False + isIAri :: IRIns -> Bool isIAri (IAri _ _ _ _) = True isIAri _ = False + +isIResize :: IRIns -> Bool +isIResize (IResize _ _) = True +isIResize _ = False + +jumpTargets :: IRTerm -> [Id] +jumpTargets (IJcc _ _ _ i2 i1) = [i1, i2] +jumpTargets (IJmp i) = [i] +jumpTargets _ = [] |