diff options
| author | Geoffrey Mainland <gmainlan@microsoft.com> | 2011-11-11 13:00:30 +0000 |
|---|---|---|
| committer | Geoffrey Mainland <gmainlan@microsoft.com> | 2013-02-01 22:00:24 +0000 |
| commit | 1811440833da92eefd7b7255915855fddc64994c (patch) | |
| tree | bac35ad24456b8a7e8178d9b3b1cc32d8e409af1 /utils/genprimopcode | |
| parent | 7816845c1a76d815971ba7b956c4d6cac95c1db7 (diff) | |
| download | haskell-1811440833da92eefd7b7255915855fddc64994c.tar.gz | |
Add the Int64X2# primitive type and associated primops.
Diffstat (limited to 'utils/genprimopcode')
| -rw-r--r-- | utils/genprimopcode/Main.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/utils/genprimopcode/Main.hs b/utils/genprimopcode/Main.hs index 528732288b..f3d6cb8dc0 100644 --- a/utils/genprimopcode/Main.hs +++ b/utils/genprimopcode/Main.hs @@ -554,6 +554,7 @@ gen_wrappers (Info _ entries) llvmOnlyTyCon "FloatX4#" = True llvmOnlyTyCon "DoubleX2#" = True llvmOnlyTyCon "Int32X4#" = True + llvmOnlyTyCon "Int64X2#" = True llvmOnlyTyCon _ = False gen_primop_list :: Info -> String @@ -676,6 +677,7 @@ ppType (TyApp "Double#" []) = "doublePrimTy" ppType (TyApp "FloatX4#" []) = "floatX4PrimTy" ppType (TyApp "DoubleX2#" []) = "doubleX2PrimTy" ppType (TyApp "Int32X4#" []) = "int32X4PrimTy" +ppType (TyApp "Int64X2#" []) = "int64X2PrimTy" ppType (TyApp "ByteArray#" []) = "byteArrayPrimTy" ppType (TyApp "RealWorld" []) = "realWorldTy" ppType (TyApp "ThreadId#" []) = "threadIdPrimTy" |