diff options
Diffstat (limited to 'src/gamma-expat.c')
-rw-r--r-- | src/gamma-expat.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/gamma-expat.c b/src/gamma-expat.c index a81d30e..cd3efaa 100644 --- a/src/gamma-expat.c +++ b/src/gamma-expat.c @@ -32,7 +32,7 @@ gamma_xml_parser_create(XML_Parser parser) { struct gamma_xml_parser *gp; - gp = scm_malloc(sizeof (*gp)); + gp = scm_gc_malloc(sizeof (*gp), "xml_parser"); gp->parser = parser; SCM_RETURN_NEWSMOB(gamma_xml_parser_tag, gp); } @@ -40,7 +40,7 @@ gamma_xml_parser_create(XML_Parser parser) #define GAMMA_XML_PARSER_PTR(smob) \ ((struct gamma_xml_parser *)SCM_CDR(smob)) -static scm_sizet +static size_t gamma_xml_parser_free(SCM smob) { struct gamma_xml_parser *gp = GAMMA_XML_PARSER_PTR(smob); @@ -84,7 +84,7 @@ gamma_xml_parser_print(SCM smob, SCM port, scm_print_state *pstate) } static void -gamma_xml_parser_init() +gamma_xml_parser_init(void) { gamma_xml_parser_tag = scm_make_smob_type("XML_Parser", @@ -96,7 +96,7 @@ gamma_xml_parser_init() static struct gamma_expat_user_data * -make_user_data () +make_user_data(void) { int i; @@ -153,7 +153,7 @@ SCM_DEFINE_PUBLIC(scm_xml_primitive_make_parser, "xml-primitive-make-parser", } else parser = XML_ParserCreate(encoding); if (!parser) - scm_memory_error(FUNC_NAME); + scm_report_out_of_memory(); XML_SetUserData(parser, make_user_data()); free(encoding); return gamma_xml_parser_create(parser); |