Delete debugging code (include of stdio, eprintf)

mirage · Jul 3, 2019 · 966ca6a · 966ca6a
1 parent eb0ea71
commit 966ca6a
Show file tree

Hide file tree

Showing 2 changed files with 0 additions and 3 deletions.
diff --git a/src-c/digestif.ml b/src-c/digestif.ml
@@ -148,7 +148,6 @@ module Unsafe (F : Foreign) (D : Desc) = struct
   let unsafe_get t =
     let res = By.create digest_size in
     By.fill res 0 digest_size '\000' ;
-    Format.eprintf "(OCaml) Finalize\n%!" ;
     F.Bytes.finalize t res 0 ; res
 end
 

diff --git a/src-c/native/stubs.c b/src-c/native/stubs.c
@@ -12,8 +12,6 @@
 #include <caml/memory.h>
 #include <string.h>
 
-#include <stdio.h>
-
 #ifndef Bytes_val
 #define Bytes_val(x) String_val(x)
 #endif