diff options
| author | Geoffrey Mainland <gmainlan@microsoft.com> | 2011-11-11 11:32:05 +0000 |
|---|---|---|
| committer | Geoffrey Mainland <gmainlan@microsoft.com> | 2013-02-01 22:00:24 +0000 |
| commit | 7816845c1a76d815971ba7b956c4d6cac95c1db7 (patch) | |
| tree | b8bb36094a9f135a9d30defed939235244701358 /utils | |
| parent | 3984b912854a2261f5bf35e25bf929c15490e71a (diff) | |
| download | haskell-7816845c1a76d815971ba7b956c4d6cac95c1db7.tar.gz | |
Add the DoubleX2# primitive type and associated primops.
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/genprimopcode/Main.hs | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/utils/genprimopcode/Main.hs b/utils/genprimopcode/Main.hs index cd406bf880..528732288b 100644 --- a/utils/genprimopcode/Main.hs +++ b/utils/genprimopcode/Main.hs @@ -550,10 +550,11 @@ gen_wrappers (Info _ entries) llvmOnlyTy (TyUTup tys) = any llvmOnlyTy tys llvmOnlyTyCon :: TyCon -> Bool - llvmOnlyTyCon "Int32#" = True - llvmOnlyTyCon "FloatX4#" = True - llvmOnlyTyCon "Int32X4#" = True - llvmOnlyTyCon _ = False + llvmOnlyTyCon "Int32#" = True + llvmOnlyTyCon "FloatX4#" = True + llvmOnlyTyCon "DoubleX2#" = True + llvmOnlyTyCon "Int32X4#" = True + llvmOnlyTyCon _ = False gen_primop_list :: Info -> String gen_primop_list (Info _ entries) @@ -673,6 +674,7 @@ ppType (TyApp "Addr#" []) = "addrPrimTy" ppType (TyApp "Float#" []) = "floatPrimTy" ppType (TyApp "Double#" []) = "doublePrimTy" ppType (TyApp "FloatX4#" []) = "floatX4PrimTy" +ppType (TyApp "DoubleX2#" []) = "doubleX2PrimTy" ppType (TyApp "Int32X4#" []) = "int32X4PrimTy" ppType (TyApp "ByteArray#" []) = "byteArrayPrimTy" ppType (TyApp "RealWorld" []) = "realWorldTy" |