From f862c74bf9ce3e0f0d949ee2f49f19ca34b73171 Mon Sep 17 00:00:00 2001 From: Ilya Rezvov Date: Sat, 2 Jun 2018 11:01:01 -0700 Subject: [PATCH] fix typos in sign suffixes --- src/Language/Wasm/Builder.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Language/Wasm/Builder.hs b/src/Language/Wasm/Builder.hs index 42a4cb9..d2d98b5 100644 --- a/src/Language/Wasm/Builder.hs +++ b/src/Language/Wasm/Builder.hs @@ -439,7 +439,7 @@ trunc_u t float = do trunc_s :: (Producer f, IsFloat (OutType f) ~ True, IsInt (Proxy t) ~ True, ValueTypeable t) => Proxy t -> f -> GenFun (Proxy t) trunc_s t float = do produce float - appendExpr [ITruncFU (getSize $ getValueType t) (getSize $ asValueType float)] + appendExpr [ITruncFS (getSize $ getValueType t) (getSize $ asValueType float)] return Proxy extend_u :: (Producer i, OutType i ~ Proxy I32) => i -> GenFun (Proxy I64) @@ -451,7 +451,7 @@ extend_u small = do extend_s :: (Producer i, OutType i ~ Proxy I32) => i -> GenFun (Proxy I64) extend_s small = do produce small - appendExpr [I64ExtendUI32] + appendExpr [I64ExtendSI32] return Proxy convert_u :: (Producer i, IsInt (OutType i) ~ True, IsFloat (Proxy t) ~ True, ValueTypeable t) => Proxy t -> i -> GenFun (Proxy t)