Mercurial > gub
changeset 6495:69a20236bfeb
mingw::guile: build fix.
| author | Jan Nieuwenhuizen <janneke@gnu.org> |
|---|---|
| date | Tue, 15 Mar 2011 14:53:44 +0100 |
| parents | 4af12ccffd10 |
| children | 1056230c73d1 |
| 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);