From 459e4fba8229dc980aacfa7b41c96606136ec844 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 1 Jul 2010 08:52:12 -0600 Subject: [PATCH] fix C warnings due to function prototype mismatches --- src/racket/src/module.c | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/src/racket/src/module.c b/src/racket/src/module.c index 8c813eb537..9a138cd39a 100644 --- a/src/racket/src/module.c +++ b/src/racket/src/module.c @@ -103,12 +103,14 @@ static void module_validate(Scheme_Object *data, Mz_CPort *port, char *stack, Validate_TLS tls, int depth, int letlimit, int delta, int num_toplevels, int num_stxes, int num_lifts, - struct Validate_Clearing *vc, int tailpos); + struct Validate_Clearing *vc, int tailpos, + Scheme_Hash_Tree *procs); static void top_level_require_validate(Scheme_Object *data, Mz_CPort *port, char *stack, Validate_TLS tls, int depth, int letlimit, int delta, int num_toplevels, int num_stxes, int num_lifts, - struct Validate_Clearing *vc, int tailpos); + struct Validate_Clearing *vc, int tailpos, + Scheme_Hash_Tree *procs); static Scheme_Object *write_module(Scheme_Object *obj); static Scheme_Object *read_module(Scheme_Object *obj); @@ -5367,7 +5369,8 @@ static void module_validate(Scheme_Object *data, Mz_CPort *port, char *stack, Validate_TLS tls, int depth, int letlimit, int delta, int num_toplevels, int num_stxes, int num_lifts, - struct Validate_Clearing *vc, int tailpos) + struct Validate_Clearing *vc, int tailpos, + Scheme_Hash_Tree *procs) { Scheme_Module *m; int i, cnt, let_depth; @@ -9783,7 +9786,8 @@ static void top_level_require_validate(Scheme_Object *data, Mz_CPort *port, char *stack, Validate_TLS tls, int depth, int letlimit, int delta, int num_toplevels, int num_stxes, int num_lifts, - struct Validate_Clearing *vc, int tailpos) + struct Validate_Clearing *vc, int tailpos, + Scheme_Hash_Tree *procs) { }