flambda-backend: Fix build_upstream for PR749 (ocaml-flambda#750)

Fix build_upstream for Pisint
mshinwell · Jul 31, 2022 · b337cb6 · b337cb6
1 parent 8e7e81c
commit b337cb6
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/middle_end/convert_primitives.ml b/middle_end/convert_primitives.ml
@@ -85,7 +85,7 @@ let convert (prim : Lambda.primitive) : Clambda_primitives.primitive =
   | Parraysetu kind -> Parraysetu kind
   | Parrayrefs kind -> Parrayrefs kind
   | Parraysets kind -> Parraysets kind
-  | Pisint -> Pisint
+  | Pisint _ -> Pisint
   | Pisout -> Pisout
   | Pcvtbint (src, dest, m) -> Pcvtbint (src, dest, m)
   | Pnegbint (bi,m) -> Pnegbint (bi,m)

diff --git a/middle_end/internal_variable_names.ml b/middle_end/internal_variable_names.ml
@@ -380,7 +380,7 @@ let of_primitive : Lambda.primitive -> string = function
   | Parrayrefs _ -> parrayrefs
   | Parraysets _ -> parraysets
   | Pctconst _ -> pctconst
-  | Pisint -> pisint
+  | Pisint _ -> pisint
   | Pisout -> pisout
   | Pbintofint _ -> pbintofint
   | Pintofbint _ -> pintofbint
@@ -488,7 +488,7 @@ let of_primitive_arg : Lambda.primitive -> string = function
   | Parrayrefs _ -> parrayrefs_arg
   | Parraysets _ -> parraysets_arg
   | Pctconst _ -> pctconst_arg
-  | Pisint -> pisint_arg
+  | Pisint _ -> pisint_arg
   | Pisout -> pisout_arg
   | Pbintofint _ -> pbintofint_arg
   | Pintofbint _ -> pintofbint_arg