Fix "float unrepresentable in integer range" runtime error due to inc…

…orrect unsigned conversion (#632)
tweag · May 3, 2020 · 83b1afe · 83b1afe
1 parent 70620a1
commit 83b1afe
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/asterius/src/Asterius/Builtins.hs b/asterius/src/Asterius/Builtins.hs
@@ -786,7 +786,7 @@ generateRTSWrapper mod_sym func_sym param_vts ret_vts =
         [0 ..]
         param_vts
     ret = case ret_vts of
-      [I64] -> ([F64], truncUFloat64ToInt64)
+      [I64] -> ([F64], truncSFloat64ToInt64)
       _ -> (ret_vts, id)
 
 generateWrapperFunction :: EntitySymbol -> Function -> Function