Runtime: rename caml_string_cat into caml_string_concat

Author: vouillon

runtime/wasm/marshal.wat

@@ -4,8 +4,8 @@
       (func $caml_invalid_argument (param (ref eq))))
    (import "fail" "caml_raise_end_of_file" (func $caml_raise_end_of_file))
    (import "obj" "double_array_tag" (global $double_array_tag i32))
-   (import "string" "caml_string_cat"
-      (func $caml_string_cat
+   (import "string" "caml_string_concat"
+      (func $caml_string_concat
          (param (ref eq)) (param (ref eq)) (result (ref eq))))
    (import "obj" "caml_is_closure"
       (func $caml_is_closure (param (ref eq)) (result i32)))
@@ -643,21 +643,21 @@
 
    (func $too_large (param $prim (ref $string))
       (call $caml_failwith
-         (call $caml_string_cat (local.get $prim)
+         (call $caml_string_concat (local.get $prim)
             (array.new_data $string $too_large (i32.const 0) (i32.const 55)))))
 
    (data $bad_object ": bad object")
 
    (func $bad_object (param $prim (ref $string))
       (call $caml_failwith
-         (call $caml_string_cat (local.get $prim)
+         (call $caml_string_concat (local.get $prim)
             (array.new_data $string $bad_object (i32.const 0) (i32.const 12)))))
 
    (data $bad_length ": bad length")
 
    (func $bad_length (param $prim (ref $string))
       (call $caml_failwith
-         (call $caml_string_cat (local.get $prim)
+         (call $caml_string_concat (local.get $prim)
             (array.new_data $string $bad_length (i32.const 0) (i32.const 12)))))
 
    (type $marshal_header
@@ -1073,7 +1073,7 @@
                         (local.get $fixed_length))))
                 (then
                    (call $caml_failwith
-                      (call $caml_string_cat
+                      (call $caml_string_concat
                          (array.new_data $string $incorrect_sizes
                             (i32.const 0) (i32.const 49))
                          (struct.get $custom_operations $id

runtime/wasm/stdlib.wat

@@ -18,8 +18,8 @@
       (func $caml_callback_2
          (param (ref eq)) (param (ref eq)) (param (ref eq)) (result (ref eq))))
    (import "bindings" "write" (func $write (param i32) (param anyref)))
-   (import "string" "caml_string_cat"
-      (func $caml_string_cat
+   (import "string" "caml_string_concat"
+      (func $caml_string_concat
          (param (ref eq)) (param (ref eq)) (result (ref eq))))
    (import "printexc" "caml_format_exception"
       (func $caml_format_exception (param (ref eq)) (result (ref eq))))
@@ -202,10 +202,10 @@
                (call $write (i32.const 2)
                   (call $unwrap
                      (call $caml_jsstring_of_string
-                        (call $caml_string_cat
+                        (call $caml_string_concat
                            (array.new_data $string $fatal_error
                               (i32.const 0) (i32.const 23))
-                           (call $caml_string_cat
+                           (call $caml_string_concat
                               (call $caml_format_exception (local.get $exn))
                               (array.new_fixed $string 1
                                  (i32.const 10)))))))) ;; `\n`

runtime/wasm/string.wat

@@ -315,7 +315,7 @@
          (i32.wrap_i64 (i64.shr_u (local.get $v) (i64.const 56))))
       (ref.i31 (i32.const 0)))
 
-   (func (export "caml_string_cat")
+   (func (export "caml_string_concat")
       (param $vs1 (ref eq)) (param $vs2 (ref eq)) (result (ref eq))
       (local $s1 (ref $string)) (local $s2 (ref $string))
       (local $s (ref $string))