From ddb6c424ef9eef029a62e84748c0399ae091f2a7 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 4 Oct 2005 20:21:47 +0000 Subject: [PATCH] prototype correction svn: r974 --- collects/mzscheme/examples/bitmatrix.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/mzscheme/examples/bitmatrix.c b/collects/mzscheme/examples/bitmatrix.c index 6e9eefb8bd..ecdfd7996e 100644 --- a/collects/mzscheme/examples/bitmatrix.c +++ b/collects/mzscheme/examples/bitmatrix.c @@ -30,14 +30,14 @@ typedef struct { #ifdef MZ_PRECISE_GC START_XFORM_SKIP; /* Traversal procedures for precise GC: */ -static long bm_size(void *p) { +static int bm_size(void *p) { return gcBYTES_TO_WORDS(sizeof(Bitmatrix)); } -static long bm_mark(void *p) { +static int bm_mark(void *p) { gcMARK(((Bitmatrix *)p)->matrix); return gcBYTES_TO_WORDS(sizeof(Bitmatrix)); } -static long bm_fixup(void *p) { +static int bm_fixup(void *p) { gcFIXUP(((Bitmatrix *)p)->matrix); return gcBYTES_TO_WORDS(sizeof(Bitmatrix)); }