Mercurial > gub

annotate patches/guile-2.0.0-mingw-dynl.patch @ 6493:a753f2b56688

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
guile: bump to 2.0
author Jan Nieuwenhuizen <janneke@gnu.org>
date Tue, 15 Mar 2011 14:13:15 +0100
parents
children e0f873fa6093
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
6493
a753f2b56688 guile: bump to 2.0
Jan Nieuwenhuizen <janneke@gnu.org>
parents:
diff changeset
1 diff --git a/libguile/dynl.c b/libguile/dynl.c
a753f2b56688 guile: bump to 2.0
Jan Nieuwenhuizen <janneke@gnu.org>
parents:
diff changeset
2 index 2484dda..b612709 100644
a753f2b56688 guile: bump to 2.0
Jan Nieuwenhuizen <janneke@gnu.org>
parents:
diff changeset
3 --- a/libguile/dynl.c
a753f2b56688 guile: bump to 2.0
Jan Nieuwenhuizen <janneke@gnu.org>
parents:
diff changeset
4 +++ b/libguile/dynl.c
a753f2b56688 guile: bump to 2.0
Jan Nieuwenhuizen <janneke@gnu.org>
parents:
diff changeset
5 @@ -121,6 +121,17 @@ sysdep_dynl_value (const char *symb, void *handle, const char *subr)
a753f2b56688 guile: bump to 2.0
Jan Nieuwenhuizen <janneke@gnu.org>
parents:
diff changeset
6 return fptr;
a753f2b56688 guile: bump to 2.0
Jan Nieuwenhuizen <janneke@gnu.org>
parents:
diff changeset
7 }
a753f2b56688 guile: bump to 2.0
Jan Nieuwenhuizen <janneke@gnu.org>
parents:
diff changeset
8
a753f2b56688 guile: bump to 2.0
Jan Nieuwenhuizen <janneke@gnu.org>
parents:
diff changeset
9 +#ifdef __MINGW32__
a753f2b56688 guile: bump to 2.0
Jan Nieuwenhuizen <janneke@gnu.org>
parents:
diff changeset
10 +static void
a753f2b56688 guile: bump to 2.0
Jan Nieuwenhuizen <janneke@gnu.org>
parents:
diff changeset
11 +setenv (char const *name, char const *value)
a753f2b56688 guile: bump to 2.0
Jan Nieuwenhuizen <janneke@gnu.org>
parents:
diff changeset
12 +{
a753f2b56688 guile: bump to 2.0
Jan Nieuwenhuizen <janneke@gnu.org>
parents:
diff changeset
13 + int len = strlen (value) + strlen (value) + 2;
a753f2b56688 guile: bump to 2.0
Jan Nieuwenhuizen <janneke@gnu.org>
parents:
diff changeset
14 + char *str = malloc (len);
a753f2b56688 guile: bump to 2.0
Jan Nieuwenhuizen <janneke@gnu.org>
parents:
diff changeset
15 + sprintf (str, "%s=%s", name, value);
a753f2b56688 guile: bump to 2.0
Jan Nieuwenhuizen <janneke@gnu.org>
parents:
diff changeset
16 + putenv (str);
a753f2b56688 guile: bump to 2.0
Jan Nieuwenhuizen <janneke@gnu.org>
parents:
diff changeset
17 +}
a753f2b56688 guile: bump to 2.0
Jan Nieuwenhuizen <janneke@gnu.org>
parents:
diff changeset
18 +#endif /* __MINGW32__ */
a753f2b56688 guile: bump to 2.0
Jan Nieuwenhuizen <janneke@gnu.org>
parents:
diff changeset
19 +
a753f2b56688 guile: bump to 2.0
Jan Nieuwenhuizen <janneke@gnu.org>
parents:
diff changeset
20 /* Augment environment variable VARIABLE with VALUE, assuming VARIABLE
a753f2b56688 guile: bump to 2.0
Jan Nieuwenhuizen <janneke@gnu.org>
parents:
diff changeset
21 is a path kind of variable. */
a753f2b56688 guile: bump to 2.0
Jan Nieuwenhuizen <janneke@gnu.org>
parents:
diff changeset
22 static void