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/prelude | |
| parent | d8228fd4ef1a7a168692c8666ce08bd522077889 (diff) | |
| download | haskell-45eb0a425bb134d41e47a90e73ec5279c23bbc27.tar.gz | |
Add a 2-word-multiply operator
Currently no NCGs support it
Diffstat (limited to 'compiler/prelude')
| -rw-r--r-- | compiler/prelude/primops.txt.pp | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/compiler/prelude/primops.txt.pp b/compiler/prelude/primops.txt.pp index 69503b1188..4d452c02ea 100644 --- a/compiler/prelude/primops.txt.pp +++ b/compiler/prelude/primops.txt.pp @@ -278,6 +278,10 @@ primop WordSubOp "minusWord#" Dyadic Word# -> Word# -> Word# primop WordMulOp "timesWord#" Dyadic Word# -> Word# -> Word# with commutable = True +primop WordMul2Op "timesWord2#" GenPrimOp + Word# -> Word# -> (# Word#, Word# #) + with commutable = True + primop WordQuotOp "quotWord#" Dyadic Word# -> Word# -> Word# with can_fail = True |