diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-02-24 00:34:46 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-02-24 00:34:46 +0000 |
| commit | 45eb0a425bb134d41e47a90e73ec5279c23bbc27 (patch) | |
| tree | c819732f8099e684bb5b8178a02d55378b9308d4 /compiler/cmm | |
| parent | d8228fd4ef1a7a168692c8666ce08bd522077889 (diff) | |
| download | haskell-45eb0a425bb134d41e47a90e73ec5279c23bbc27.tar.gz | |
Add a 2-word-multiply operator
Currently no NCGs support it
Diffstat (limited to 'compiler/cmm')
| -rw-r--r-- | compiler/cmm/CmmMachOp.hs | 3 | ||||
| -rw-r--r-- | compiler/cmm/PprC.hs | 1 |
2 files changed, 3 insertions, 1 deletions
diff --git a/compiler/cmm/CmmMachOp.hs b/compiler/cmm/CmmMachOp.hs index 3deb4feb99..d9484a6644 100644 --- a/compiler/cmm/CmmMachOp.hs +++ b/compiler/cmm/CmmMachOp.hs @@ -442,7 +442,8 @@ data CallishMachOp | MO_S_QuotRem Width | MO_U_QuotRem Width - | MO_Add2 Width + | MO_Add2 Width + | MO_U_Mul2 Width | MO_WriteBarrier | MO_Touch -- Keep variables live (when using interior pointers) diff --git a/compiler/cmm/PprC.hs b/compiler/cmm/PprC.hs index fc4a2dec9e..3e28484c94 100644 --- a/compiler/cmm/PprC.hs +++ b/compiler/cmm/PprC.hs @@ -664,6 +664,7 @@ pprCallishMachOp_for_C mop MO_S_QuotRem {} -> unsupported MO_U_QuotRem {} -> unsupported MO_Add2 {} -> unsupported + MO_U_Mul2 {} -> unsupported MO_Touch -> unsupported where unsupported = panic ("pprCallishMachOp_for_C: " ++ show mop ++ " not supported!") |