diff options
author | Sylvain Henry <sylvain@haskus.fr> | 2020-02-06 13:08:37 +0100 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-02-11 05:10:04 -0500 |
commit | aba51b65863db5f2687f29d10ba24ffa49dabd3b (patch) | |
tree | dc82a63a7423f54d37917e72ffea8cbd03360bc7 /utils/genprimopcode | |
parent | b75e7486de73868e6821a9f680e9e13794dff15c (diff) | |
download | haskell-aba51b65863db5f2687f29d10ba24ffa49dabd3b.tar.gz |
Add arithmetic exception primops (#14664)
Diffstat (limited to 'utils/genprimopcode')
-rw-r--r-- | utils/genprimopcode/Main.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/utils/genprimopcode/Main.hs b/utils/genprimopcode/Main.hs index f7b6ba73dd..7418045e22 100644 --- a/utils/genprimopcode/Main.hs +++ b/utils/genprimopcode/Main.hs @@ -890,6 +890,7 @@ ppType (TyApp (TyCon "MVar#") [x,y]) = "mkMVarPrimTy " ++ ppType x ++ " " ++ ppType y ppType (TyApp (TyCon "TVar#") [x,y]) = "mkTVarPrimTy " ++ ppType x ++ " " ++ ppType y +ppType (TyApp (TyCon "Void#") []) = "voidPrimTy" ppType (TyApp (VecTyCon _ pptc) []) = pptc |