Wasm: do not generate JavaScript strings for predefined exceptions

ocsigen · Sep 23, 2024 · 4522e92 · 4522e92
1 parent b283056
commit 4522e92
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/compiler/lib/parse_bytecode.ml b/compiler/lib/parse_bytecode.ml
@@ -795,7 +795,11 @@ let register_global ?(force = false) g i loc rem =
       | None -> []
       | Some name ->
           Code.Var.name (access_global g i) name;
-          [ Pc (NativeString (Native_string.of_string name)) ]
+          [ Pc
+              (match Config.target () with
+              | `JavaScript -> NativeString (Native_string.of_string name)
+              | `Wasm -> String name)
+          ]
     in
     ( Let
         ( Var.fresh ()