diff options
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/cmm/CmmCommonBlockElim.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/cmm/CmmCommonBlockElim.hs b/compiler/cmm/CmmCommonBlockElim.hs index 989eb2fb18..3dc8202274 100644 --- a/compiler/cmm/CmmCommonBlockElim.hs +++ b/compiler/cmm/CmmCommonBlockElim.hs @@ -134,7 +134,6 @@ hash_block block = hash_node :: CmmNode O x -> Word32 hash_node n | dont_care n = 0 -- don't care - hash_node (CmmUnwind _ e) = hash_e e hash_node (CmmAssign r e) = hash_reg r + hash_e e hash_node (CmmStore e e') = hash_e e + hash_e e' hash_node (CmmUnsafeForeignCall t _ as) = hash_tgt t + hash_list hash_e as @@ -181,6 +180,7 @@ hash_block block = dont_care :: CmmNode O x -> Bool dont_care CmmComment {} = True dont_care CmmTick {} = True +dont_care CmmUnwind {} = True dont_care _other = False -- Utilities: equality and substitution on the graph. |