Buffer.clear ctx.text_buffer;
Queue.add (Text s, get_position parser_) ctx.events
-let character_data_handler parser_ ctx text =
+let character_data_handler _ ctx text =
Buffer.add_string ctx.text_buffer text
let create_parser () =
let diffs fd1 fd2 =
- let buffer1 = String.create 4096 in
- let buffer2 = String.create 4096 in
+ let buffer1 = String.make 4096 '\000' in
+ let buffer2 = String.make 4096 '\000' in
let parser1,ctx1 = create_parser () in
let parser2,ctx2 = create_parser () in
let rec loop () =