summaryrefslogtreecommitdiff
path: root/src/freeze.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/freeze.c')
-rw-r--r--src/freeze.c14
1 files changed, 7 insertions, 7 deletions
diff --git a/src/freeze.c b/src/freeze.c
index 5ac913d8..d2e9ea62 100644
--- a/src/freeze.c
+++ b/src/freeze.c
@@ -33,7 +33,7 @@
static void produce_mem_dump (FILE *, const char *, size_t);
static void produce_resyntax_dump (m4 *, FILE *);
static void produce_syntax_dump (FILE *, m4_syntax_table *, char);
-static void produce_module_dump (FILE *, m4_module *);
+static void produce_module_dump (m4 *, FILE *, m4_module *);
static void produce_symbol_dump (m4 *, FILE *, m4_symbol_table *);
static void *dump_symbol_CB (m4_symbol_table *, const char *,
size_t, m4_symbol *, void *);
@@ -148,17 +148,17 @@ produce_debugmode_state (FILE *file, int flags)
}
/* The modules must be dumped in the order in which they will be
- reloaded from the frozen file. libltdl stores handles in a push
+ reloaded from the frozen file. We store handles in a push
down stack, so we need to dump them in the reverse order to that. */
static void
-produce_module_dump (FILE *file, m4_module *module)
+produce_module_dump (m4 *context, FILE *file, m4_module *module)
{
const char *name = m4_get_module_name (module);
size_t len = strlen (name);
- module = m4_module_next (module);
+ module = m4_module_next (context, module);
if (module)
- produce_module_dump (file, module);
+ produce_module_dump (context, file, module);
xfprintf (file, "M%zu\n", len);
produce_mem_dump (file, name, len);
@@ -322,7 +322,7 @@ produce_frozen_state (m4 *context, const char *name)
produce_debugmode_state (file, m4_get_debug_level_opt (context));
/* Dump all loaded modules. */
- produce_module_dump (file, m4_module_next (NULL));
+ produce_module_dump (context, file, m4_module_next (context, NULL));
/* Dump all symbols. */
produce_symbol_dump (context, file, M4SYMTAB);
@@ -713,7 +713,7 @@ ill-formed frozen file, invalid module %s encountered"),
string[2], number[2]));
module = m4__module_find (string[2]);
}
- token = m4_builtin_find_by_name (module, string[1]);
+ token = m4_builtin_find_by_name (context, module, string[1]);
if (token == NULL)
{