From 949a6e3916f6a1cb6b1565ed6b677f10abc68810 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 1 May 2008 13:49:53 +0000
Subject: [PATCH] cast needed for MSVC

svn: r9562
---
 src/mzscheme/src/setjmpup.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/mzscheme/src/setjmpup.c b/src/mzscheme/src/setjmpup.c
index 99059f625d..decf16d92e 100644
--- a/src/mzscheme/src/setjmpup.c
+++ b/src/mzscheme/src/setjmpup.c
@@ -596,7 +596,7 @@ struct Scheme_Overflow_Jmp *scheme_prune_jmpup(struct Scheme_Overflow_Jmp *jmp,
 #endif
     
     memcpy(get_copy(copy), 
-           get_copy(jmp->cont.stack_copy) XFORM_OK_PLUS delta,
+           (char *)get_copy(jmp->cont.stack_copy) XFORM_OK_PLUS delta,
            new_size);
 
     naya->cont.stack_size = naya->cont.stack_max_size = new_size;