msyds/haskell-wasm
1
0
Fork 0
forked from GitHub/haskell-wasm
Code Pull Requests Activity

fix typos in sign suffixes

Browse Source
This commit is contained in:
Ilya Rezvov
2018-06-02 11:01:01 -07:00
parent 85dfac08f1
commit f862c74bf9
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Language/Wasm/Builder.hs
+2 -2
View File
@@ -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)