Commit 565d5231 authored by Pietro Abate's avatar Pietro Abate
Browse files

[r2003-07-27 12:40:39 by cvscast] Bug fix ocaml-expat

Original author: cvscast
Date: 2003-07-27 12:40:39+00:00
parent cbca3f27
......@@ -5,7 +5,7 @@
/* LICENCE for details. */
/***********************************************************************/
/* $Id: expat_stubs.c,v 1.5 2003/06/30 16:35:47 cvscast Exp $ */
/* $Id: expat_stubs.c,v 1.6 2003/07/27 12:40:39 cvscast Exp $ */
/* Stub code to interface Ocaml with Expat */
......@@ -107,7 +107,7 @@ create_ocaml_expat_parser(XML_Parser xml_parser)
* so I've set some figures here, which seems to do well.
*/
parser = alloc_custom(&xml_parser_ops, sizeof(XML_Parser), 1, 5000);
Store_field(parser, 1, Val_bp(xml_parser));
XML_Parser_val(parser) = xml_parser;
/*
* Malloc a value for a tuple which will contain the callback
......
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