From db490d575517e633eb173181068cc09f51f785b9 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 10 Aug 2006 03:00:05 +0000
Subject: [PATCH] fix finding iconv.dll and others

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

diff --git a/src/mzscheme/src/file.c b/src/mzscheme/src/file.c
index 549d05ac8f..973fd5cde6 100644
--- a/src/mzscheme/src/file.c
+++ b/src/mzscheme/src/file.c
@@ -4805,7 +4805,7 @@ wchar_t *scheme_get_dll_path(wchar_t *s)
     len1 = wc_strlen(dlldir);
     len2 = wc_strlen(s);
     p = (wchar_t *)scheme_malloc_atomic((len1 + len2 + 2) * sizeof(wchar_t));
-    memcpy(p, dlldir, len1);
+    memcpy(p, dlldir, len1 * sizeof(wchar_t));
     if (p[len1 - 1] != '\\') {
       p[len1++] = '\\';
     }