DEBUG: asset dir

ocsigen · Jan 14, 2025 · 82c1939 · 82c1939
1 parent ae7f825
commit 82c1939
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/compiler/lib-wasm/link.ml b/compiler/lib-wasm/link.ml
@@ -600,10 +600,12 @@ let link_to_directory ~files_to_link ~files ~enable_source_maps ~dir =
     let ch, pos, len, crc = Zip.get_entry z ~name:(name ^ ".wasm") in
     let intf = Wasm_binary.read_interface (Wasm_binary.from_channel ~name ch pos len) in
     let name' = Printf.sprintf "%s-%08lx" name' crc in
+    Format.eprintf "DIRECTORY %s %b@." dir (Sys.file_exists dir);
     Zip.extract_file
       z
       ~name:(name ^ ".wasm")
       ~file:(Filename.concat dir (name' ^ ".wasm"));
+    Format.eprintf "EXTRACTED %s@." (Filename.concat dir (name' ^ ".wasm"));
     name', intf
   in
   let z = Zip.open_in (fst (List.hd files)) in

diff --git a/compiler/lib/inline.mli b/compiler/lib/inline.mli
@@ -18,4 +18,4 @@
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  *)
 
-val f : Code.program -> Deadcode.variable_uses -> Code.program
+val f : Code.program -> int array -> Code.program