File tree Expand file tree Collapse file tree 2 files changed +2
-3
lines changed Expand file tree Collapse file tree 2 files changed +2
-3
lines changed Original file line number Diff line number Diff line change @@ -444,15 +444,14 @@ let run
444
444
let z = Zip. open_out tmp_output_file in
445
445
Zip. add_file z ~name: " runtime.wasm" ~file: tmp_wasm_file;
446
446
Zip. add_entry z ~name: " runtime.js" ~contents: js_runtime;
447
- let predefined_exceptions, (strings, fragments) = build_prelude z in
447
+ let predefined_exceptions, fragments = build_prelude z in
448
448
Link. add_info
449
449
z
450
450
~predefined_exceptions
451
451
~build_info: (Build_info. create `Runtime )
452
452
~unit_data:
453
453
[ { Link. unit_name = " wasmoo_prelude"
454
454
; unit_info = Unit_info. empty
455
- ; strings
456
455
; fragments
457
456
}
458
457
]
Original file line number Diff line number Diff line change @@ -1037,7 +1037,7 @@ module Constant = struct
1037
1037
translate_js_string s
1038
1038
| String s ->
1039
1039
if Config.Flag. use_js_string ()
1040
- then translate_js_string (str_js_byte s)
1040
+ then translate_js_string (byte_string s)
1041
1041
else
1042
1042
let * ty = Type. string_type in
1043
1043
if String. length s > = string_length_threshold
You can’t perform that action at this time.
0 commit comments