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

Original author: cvscast
Date: 2003-06-03 20:36:11+00:00

expat/expat_stubs.c

@@ -5,7 +5,7 @@
 /* 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 */
 
@@ -106,6 +106,7 @@ create_ocaml_expat_parser(XML_Parser xml_parser)
    * handlers and register it as global root. 
    */
   handlers = stat_alloc(sizeof *handlers);
+  *handlers = Val_unit;
   register_global_root(handlers);
   *handlers = alloc_tuple(NUM_HANDLERS);
   for(i = 0; i < NUM_HANDLERS; i++) {