add debug output

nicolasmarti · Nov 17, 2011 · 8501fab · 8501fab
1 parent c0f07c8
commit 8501fab
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/ocaml/app/mypython/mypython.ml b/ocaml/app/mypython/mypython.ml
@@ -415,6 +415,7 @@ def createValue(id):
 	match args with
 	  | id::[] when Number.check id -> (
 	    let id = Int.asLong (Int.coerce id) in
+	    if !debug then printf "decref of %d\n" id;
 	    if not (Hashtbl.mem registry id) then
 	      Object.obj (Base.none ())
 	    else