diff options
author | Paul Monday <paul.monday@parsci.com> | 2011-11-03 15:35:37 -0600 |
---|---|---|
committer | Geoffrey Mainland <gmainlan@microsoft.com> | 2013-02-01 22:00:24 +0000 |
commit | 3984b912854a2261f5bf35e25bf929c15490e71a (patch) | |
tree | 318403ba7b6550e878b9f09574741dea759f1f58 /utils | |
parent | 4af62075bbe9e96a3678fc90288496e0c4c7c17d (diff) | |
download | haskell-3984b912854a2261f5bf35e25bf929c15490e71a.tar.gz |
Add the Int32X4# primitive type and associated primops.
Diffstat (limited to 'utils')
-rw-r--r-- | utils/genprimopcode/Main.hs | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/utils/genprimopcode/Main.hs b/utils/genprimopcode/Main.hs index 27368f3ae7..cd406bf880 100644 --- a/utils/genprimopcode/Main.hs +++ b/utils/genprimopcode/Main.hs @@ -550,8 +550,10 @@ gen_wrappers (Info _ entries) llvmOnlyTy (TyUTup tys) = any llvmOnlyTy tys llvmOnlyTyCon :: TyCon -> Bool - llvmOnlyTyCon "FloatX4#" = True - llvmOnlyTyCon _ = False + llvmOnlyTyCon "Int32#" = True + llvmOnlyTyCon "FloatX4#" = True + llvmOnlyTyCon "Int32X4#" = True + llvmOnlyTyCon _ = False gen_primop_list :: Info -> String gen_primop_list (Info _ entries) @@ -671,6 +673,7 @@ ppType (TyApp "Addr#" []) = "addrPrimTy" ppType (TyApp "Float#" []) = "floatPrimTy" ppType (TyApp "Double#" []) = "doublePrimTy" ppType (TyApp "FloatX4#" []) = "floatX4PrimTy" +ppType (TyApp "Int32X4#" []) = "int32X4PrimTy" ppType (TyApp "ByteArray#" []) = "byteArrayPrimTy" ppType (TyApp "RealWorld" []) = "realWorldTy" ppType (TyApp "ThreadId#" []) = "threadIdPrimTy" |