builtins pour signed div/mod

1 files changed, 16 insertions, 0 deletions

diff --git a/kvx/SelectOp.vp b/kvx/SelectOp.vp
index 63c7d73b..5225a71c 100644
--- a/kvx/SelectOp.vp
+++ b/kvx/SelectOp.vp
@@ -788,6 +788,22 @@ Definition platform_builtin (b: platform_builtin) (args: exprlist) : option expr
                      | a:::b:::Enil => Some (FPDivision64.fp_modu64 a b)
                      | _ => None
                      end)
+  | BI_fp_sdiv32 => (match args with
+                     | a:::b:::Enil => Some (FPDivision32.fp_divs32 a b)
+                     | _ => None
+                     end)
+  | BI_fp_sdiv64 => (match args with
+                     | a:::b:::Enil => Some (FPDivision64.fp_divs64 a b)
+                     | _ => None
+                     end)
+  | BI_fp_smod32 => (match args with
+                     | a:::b:::Enil => Some (FPDivision32.fp_mods32 a b)
+                     | _ => None
+                     end)
+  | BI_fp_smod64 => (match args with
+                     | a:::b:::Enil => Some (FPDivision64.fp_mods64 a b)
+                     | _ => None
+                     end)
   | BI_abs => gen_abs args
   | BI_absl => gen_absl args
   end.