diff options
| author | Ian Lynagh <igloo@earth.li> | 2011-10-03 11:03:36 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2011-10-03 11:06:01 +0100 |
| commit | aff9d6908525567cdeca09c7ef40bee34459cd31 (patch) | |
| tree | ce1e0dc09a1017597a8922dedc41c4d8dcf4c20b /compiler/codeGen/CgPrimOp.hs | |
| parent | 25f8f25a494f765d644a7dd1ead5c0a5058b8c36 (diff) | |
| download | haskell-aff9d6908525567cdeca09c7ef40bee34459cd31.tar.gz | |
Handle HValues slightly nicer
We now have addrToAny# rather than addrToHValue#, and both addrToAny#
and mkApUpd0# return "Any" rather than "a". This makes it a little
easier to see what's going on, and fixes a warning in ByteCodeLink.
Diffstat (limited to 'compiler/codeGen/CgPrimOp.hs')
| -rw-r--r-- | compiler/codeGen/CgPrimOp.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/codeGen/CgPrimOp.hs b/compiler/codeGen/CgPrimOp.hs index 25d63d8002..e8f75b5dfe 100644 --- a/compiler/codeGen/CgPrimOp.hs +++ b/compiler/codeGen/CgPrimOp.hs @@ -203,7 +203,7 @@ emitPrimOp [res] ReallyUnsafePtrEqualityOp [arg1,arg2] _ = stmtC (CmmAssign (CmmLocal res) (CmmMachOp mo_wordEq [arg1,arg2])) -- #define addrToHValuezh(r,a) r=(P_)a -emitPrimOp [res] AddrToHValueOp [arg] _ +emitPrimOp [res] AddrToAnyOp [arg] _ = stmtC (CmmAssign (CmmLocal res) arg) -- #define dataToTagzh(r,a) r=(GET_TAG(((StgClosure *)a)->header.info)) |