Commit 6f721a9f authored by Pietro Abate's avatar Pietro Abate
Browse files

[r2003-06-03 20:36:11 by cvscast] Empty log message

Original author: cvscast
Date: 2003-06-03 20:36:11+00:00
parent 82653996
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
/* LICENCE for details. */ /* LICENCE for details. */
/***********************************************************************/ /***********************************************************************/
/* $Id: expat_stubs.c,v 1.1 2003/05/31 10:32:42 cvscast Exp $ */ /* $Id: expat_stubs.c,v 1.2 2003/06/03 20:36:11 cvscast Exp $ */
/* Stub code to interface Ocaml with Expat */ /* Stub code to interface Ocaml with Expat */
...@@ -106,6 +106,7 @@ create_ocaml_expat_parser(XML_Parser xml_parser) ...@@ -106,6 +106,7 @@ create_ocaml_expat_parser(XML_Parser xml_parser)
* handlers and register it as global root. * handlers and register it as global root.
*/ */
handlers = stat_alloc(sizeof *handlers); handlers = stat_alloc(sizeof *handlers);
*handlers = Val_unit;
register_global_root(handlers); register_global_root(handlers);
*handlers = alloc_tuple(NUM_HANDLERS); *handlers = alloc_tuple(NUM_HANDLERS);
for(i = 0; i < NUM_HANDLERS; i++) { for(i = 0; i < NUM_HANDLERS; i++) {
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment