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

Original author: cvscast
Date: 2003-07-27 12:40:39+00:00

expat/expat_stubs.c

@@ -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