Compiler/wasm: no longer resolve js prims aliases for wasmoo

Author: hhugo

compiler/lib-wasm/generate.ml

@@ -663,7 +663,6 @@ module Generate (Target : Target_sig.S) = struct
                 in
                 Memory.allocate ~tag:0 ~deadcode_sentinal:ctx.deadcode_sentinal l
             | Extern name, l -> (
-                let name = Primitive.resolve name in
                 try
                   let typ = Hashtbl.find specialized_primitives name in
                   let* f = register_import ~name (Fun (specialized_func_type typ)) in
@@ -1195,10 +1194,7 @@ module Generate (Target : Target_sig.S) = struct
     List.rev_append context.other_fields (imports @ constant_data)
 end
 
-let init () =
-  let l = [ "caml_make_array", "caml_array_of_uniform_array" ] in
-  Primitive.register "caml_array_of_uniform_array" `Mutable None None;
-  List.iter ~f:(fun (nm, nm') -> Primitive.alias nm nm') l
+let init () = ()
 
 (* Make sure we can use [br_table] for switches *)
 let fix_switch_branches p =

compiler/lib/eval.ml

@@ -185,7 +185,6 @@ let eval_prim x =
   | Neq, [ Int i; Int j ] -> bool Targetint.(i <> j)
   | Ult, [ Int i; Int j ] -> bool (Targetint.(j < zero) || Targetint.(i < j))
   | Extern name, l -> (
-      let name = Primitive.resolve name in
       match name, l with
       (* int *)
       | "%int_add", _ -> int_binop l Targetint.add

runtime/wasm/array.wat

@@ -71,7 +71,7 @@
       (if (i32.eqz (local.get $sz)) (then (return (global.get $empty_array))))
       (array.new $float_array (f64.const 0) (local.get $sz)))
 
-   (func (export "caml_array_of_uniform_array")
+   (func (export "caml_array_of_uniform_array") (export "caml_make_array")
       (param $vinit (ref eq)) (result (ref eq))
       (local $init (ref $block)) (local $res (ref $float_array))
       (local $size i32) (local $i i32)