diff options
author | tomsmeding <tom.smeding@gmail.com> | 2017-08-21 15:02:54 +0200 |
---|---|---|
committer | tomsmeding <tom.smeding@gmail.com> | 2017-08-21 15:02:54 +0200 |
commit | 3fd304ea2272432a435e6c877ce002ff3d4c77df (patch) | |
tree | 495a88524998d1353ff528bb99cd369fc7fc4bc9 /Intermediate.hs | |
parent | 5aea0d2034c47380bbdd588806efbd5c9c85d765 (diff) |
Seventh
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 _ = [] |