X-Git-Url: http://git.nguyen.vg/gitweb/?p=tatoo.git;a=blobdiff_plain;f=src%2Fnaive_tree.ml;h=3cefe18b5b6aa3fd21c9a1054f248d034f9026af;hp=38421e0ad766ec72799de4f75bc9872fffa84ab8;hb=4f265eb7d78b740292b5543d94f9f0fa40d206d5;hpb=31d45495fda9a110fd348f8b492761c28b434ec9

diff --git a/src/naive_tree.ml b/src/naive_tree.ml
index 38421e0..3cefe18 100644
--- a/src/naive_tree.ml
+++ b/src/naive_tree.ml
@@ -211,7 +211,7 @@ first_child=%a; next_sibling=%a; parent=%a }"
        Expat.final psr;
        let root = List.hd ctx.stack in
        root.next_sibling <- nil;
-       let a = Array.create ctx.current_preorder nil in
+       let a = Array.make ctx.current_preorder nil in
        let rec loop n =
          if n != nil then
            begin
@@ -244,7 +244,7 @@ first_child=%a; next_sibling=%a; parent=%a }"
       Expat.Expat_error e -> error e parser_
 
   let parse_file fd =
-    let buffer = String.create 4096 in
+    let buffer = String.make 4096 '\000' in
     let parser_, finalize = create_parser () in
     let rec loop () =
       let read = input fd buffer 0 4096 in