Mercurial > gub
changeset 6130:e0f873fa6093
mingw::guile: build fix.
author | Jan Nieuwenhuizen <janneke@gnu.org> |
---|---|
date | Tue, 15 Mar 2011 14:53:44 +0100 |
parents | d0a2dc28489f |
children | 5b9035dc7cc9 |
files | patches/guile-2.0.0-mingw-dynl.patch |
diffstat | 1 files changed, 3 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/patches/guile-2.0.0-mingw-dynl.patch Tue Mar 15 14:42:54 2011 +0100 +++ b/patches/guile-2.0.0-mingw-dynl.patch Tue Mar 15 14:53:44 2011 +0100 @@ -2,14 +2,15 @@ index 2484dda..b612709 100644 --- a/libguile/dynl.c +++ b/libguile/dynl.c -@@ -121,6 +121,17 @@ sysdep_dynl_value (const char *symb, void *handle, const char *subr) +@@ -121,6 +121,18 @@ sysdep_dynl_value (const char *symb, void *handle, const char *subr) return fptr; } +#ifdef __MINGW32__ +static void -+setenv (char const *name, char const *value) ++setenv (char const *name, char const *value, int overwrite) +{ ++ (void) overwrite; + int len = strlen (value) + strlen (value) + 2; + char *str = malloc (len); + sprintf (str, "%s=%s", name, value);