fixed bbswap

ocaml-flambda · Jan 22, 2025 · 4e97122 · 4e97122
1 parent 4d6c02f
commit 4e97122
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/backend/cmm_helpers.ml b/backend/cmm_helpers.ml
@@ -3299,7 +3299,7 @@ let bbswap bi arg dbg =
     if (bi = Primitive.Unboxed_int64 && size_int = 4)
        || not (Proc.operation_supported op)
     then
-      let prim, tyarg =
+      let func, tyarg =
         match (bi : Primitive.unboxed_integer) with
         | Unboxed_int8 -> assert false
         | Unboxed_int16 -> "caml_bswap16_direct", XInt16
@@ -3309,7 +3309,7 @@ let bbswap bi arg dbg =
       in
       Cop
         ( Cextcall
-            { func = Printf.sprintf "caml_%s_direct_bswap" prim;
+            { func;
               builtin = false;
               returns = true;
               effects = Arbitrary_effects;
@@ -3336,6 +3336,8 @@ let bswap16 arg dbg =
             coeffects = Has_coeffects;
             ty = typ_int;
             alloc = false;
+            (* CR jvanburen: why is ty_args empty here? this is the only
+               difference to [bbswap Unboxed_int16] *)
             ty_args = []
           },
         [arg],