aboutsummaryrefslogtreecommitdiff
path: root/src/gamma-expat.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/gamma-expat.c')
-rw-r--r--src/gamma-expat.c10
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);

Return to:

Send suggestions and report system problems to the System administrator.