summaryrefslogtreecommitdiff
path: root/compiler
diff options
context:
space:
mode:
authorSimon Marlow <marlowsd@gmail.com>2012-11-12 14:01:22 +0000
committerSimon Marlow <marlowsd@gmail.com>2012-11-12 15:20:44 +0000
commita1ebe37d8394e35d0a29f21511626d0895db634a (patch)
tree0de71e8a105a554ef2d100c06c277f55176300a4 /compiler
parent4dc7d04e59161be4ea33192f82aa94be3c68bf20 (diff)
downloadhaskell-a1ebe37d8394e35d0a29f21511626d0895db634a.tar.gz
handle MO_Touch, and generate no code for it.
Diffstat (limited to 'compiler')
-rw-r--r--compiler/llvmGen/LlvmCodeGen/CodeGen.hs3
1 files changed, 3 insertions, 0 deletions
diff --git a/compiler/llvmGen/LlvmCodeGen/CodeGen.hs b/compiler/llvmGen/LlvmCodeGen/CodeGen.hs
index ef9fc2b666..fd9d7011c4 100644
--- a/compiler/llvmGen/LlvmCodeGen/CodeGen.hs
+++ b/compiler/llvmGen/LlvmCodeGen/CodeGen.hs
@@ -184,6 +184,9 @@ genCall env (PrimTarget MO_WriteBarrier) _ _
| getLlvmVer env > 29 = barrier env
| otherwise = oldBarrier env
+genCall env (PrimTarget MO_Touch) _ _
+ = return (env, nilOL, [])
+
-- Handle popcnt function specifically since GHC only really has i32 and i64
-- types and things like Word8 are backed by an i32 and just present a logical
-- i8 range. So we must handle conversions from i32 to i8 explicitly as LLVM