diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2013-06-11 21:12:58 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2013-06-11 23:30:27 +0100 |
| commit | 91979ed2f0f01d8a3559c4e26d6662d6dd44b442 (patch) | |
| tree | 61305f86e8b9dda5f1745a18a71310586ffe5cb0 /compiler/codeGen | |
| parent | 2f9278d2bfeff16fa06b71cdc4453558c8228bb0 (diff) | |
| download | haskell-91979ed2f0f01d8a3559c4e26d6662d6dd44b442.tar.gz | |
Revert "Add support for byte endian swapping for Word 16/32/64."
This reverts commit 1c5b0511a89488f5280523569d45ee61c0d09ffa.
Diffstat (limited to 'compiler/codeGen')
| -rw-r--r-- | compiler/codeGen/StgCmmPrim.hs | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/compiler/codeGen/StgCmmPrim.hs b/compiler/codeGen/StgCmmPrim.hs index 7ce329a707..54002e8171 100644 --- a/compiler/codeGen/StgCmmPrim.hs +++ b/compiler/codeGen/StgCmmPrim.hs @@ -541,11 +541,6 @@ emitPrimOp _ [] CopyMutableByteArrayOp [src,src_off,dst,dst_off,n] = emitPrimOp _ [] SetByteArrayOp [ba,off,len,c] = doSetByteArrayOp ba off len c -emitPrimOp _ [res] BSwap16Op [w] = emitBSwapCall res w W16 -emitPrimOp _ [res] BSwap32Op [w] = emitBSwapCall res w W32 -emitPrimOp _ [res] BSwap64Op [w] = emitBSwapCall res w W64 -emitPrimOp dflags [res] BSwapOp [w] = emitBSwapCall res w (wordWidth dflags) - -- Population count emitPrimOp _ [res] PopCnt8Op [w] = emitPopCntCall res w W8 emitPrimOp _ [res] PopCnt16Op [w] = emitPopCntCall res w W16 @@ -1573,13 +1568,6 @@ emitAllocateCall res cap n = do allocate = CmmLit (CmmLabel (mkForeignLabel (fsLit "allocate") Nothing ForeignLabelInExternalPackage IsFunction)) -emitBSwapCall :: LocalReg -> CmmExpr -> Width -> FCode () -emitBSwapCall res x width = do - emitPrimCall - [ res ] - (MO_BSwap width) - [ x ] - emitPopCntCall :: LocalReg -> CmmExpr -> Width -> FCode () emitPopCntCall res x width = do emitPrimCall |