mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-04-30 11:50:28 +02:00
more -Wundef on darwin fixes
* libguile/threads.c: * libguile/posix.c: Change a couple #if HAVE_FOO to #ifdef HAVE_FOO to pacify -Wundef. Some vars are defined or not, whereas some are always defined to 0 or 1. The inconsistency is unfortunate.
This commit is contained in:
parent
c1a0ba1cef
commit
534bbcc168
2 changed files with 4 additions and 4 deletions
|
@ -121,7 +121,7 @@ extern char *ttyname();
|
||||||
# include <xlocale.h>
|
# include <xlocale.h>
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#if HAVE_CRYPT_H
|
#ifdef HAVE_CRYPT_H
|
||||||
# include <crypt.h>
|
# include <crypt.h>
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
|
@ -1755,7 +1755,7 @@ SCM_DEFINE (scm_sync, "sync", 0, 0, 0,
|
||||||
multiple cpus. So for now we don't bother with anything fancy, just
|
multiple cpus. So for now we don't bother with anything fancy, just
|
||||||
ensure it works. */
|
ensure it works. */
|
||||||
|
|
||||||
#if HAVE_CRYPT
|
#ifdef HAVE_CRYPT
|
||||||
SCM_DEFINE (scm_crypt, "crypt", 2, 0, 0,
|
SCM_DEFINE (scm_crypt, "crypt", 2, 0, 0,
|
||||||
(SCM key, SCM salt),
|
(SCM key, SCM salt),
|
||||||
"Encrypt @var{key} using @var{salt} as the salt value to the\n"
|
"Encrypt @var{key} using @var{salt} as the salt value to the\n"
|
||||||
|
@ -1841,7 +1841,7 @@ SCM_DEFINE (scm_getlogin, "getlogin", 0, 0, 0,
|
||||||
#undef FUNC_NAME
|
#undef FUNC_NAME
|
||||||
#endif /* HAVE_GETLOGIN */
|
#endif /* HAVE_GETLOGIN */
|
||||||
|
|
||||||
#if HAVE_CUSERID
|
#ifdef HAVE_CUSERID
|
||||||
|
|
||||||
# if !HAVE_DECL_CUSERID
|
# if !HAVE_DECL_CUSERID
|
||||||
extern char *cuserid (char *);
|
extern char *cuserid (char *);
|
||||||
|
|
|
@ -630,7 +630,7 @@ scm_i_init_thread_for_guile (SCM_STACKITEM *base, SCM parent)
|
||||||
|
|
||||||
#if SCM_USE_PTHREAD_THREADS
|
#if SCM_USE_PTHREAD_THREADS
|
||||||
|
|
||||||
#if HAVE_PTHREAD_ATTR_GETSTACK && HAVE_PTHREAD_GETATTR_NP
|
#if defined HAVE_PTHREAD_ATTR_GETSTACK && defined HAVE_PTHREAD_GETATTR_NP
|
||||||
/* This method for GNU/Linux and perhaps some other systems.
|
/* This method for GNU/Linux and perhaps some other systems.
|
||||||
It's not for MacOS X or Solaris 10, since pthread_getattr_np is not
|
It's not for MacOS X or Solaris 10, since pthread_getattr_np is not
|
||||||
available on them. */
|
available on them. */
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue