diff --git a/ChangeLog b/ChangeLog
index c48f0476e9..f6b525c6d9 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Mon May 24 09:19:59 2010  NAKAMURA Usaku  <usa@ruby-lang.org>
+
+	* gc.c (gc_sweep): suppres a warning on VC.
+
 Mon May 24 08:16:02 2010  Nobuyoshi Nakada  <nobu@ruby-lang.org>
 
 	* process.c (rb_f_spawn): use correct command name for the error
diff --git a/gc.c b/gc.c
index 43f28100f4..cf677ab917 100644
--- a/gc.c
+++ b/gc.c
@@ -1908,7 +1908,7 @@ gc_sweep(rb_objspace_t *objspace)
 	    RVALUE *pp;
 
 	    for (pp = final_list; pp != final; pp = pp->as.free.next) {
-		RDATA(pp)->dmark = (void (*)())(VALUE)&heaps[i];
+		RDATA(pp)->dmark = (void (*)_((void *)))(VALUE)&heaps[i];
 		pp->as.free.flags |= FL_SINGLETON; /* freeing page mark */
 	    }
 	    heaps[i].limit = final_num;