mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 05:50:26 +02:00
Code Activity

(SCM_TIME_UNITS_PER_SECOND): Use sysconf(_SC_CLK_TCK) when

Browse source 
available.  This also gets around CLK_TCK being absent when
_GNU_SOURCE and _POSIX_C_SOURCE are defined in stime.c.
This commit is contained in:
Kevin Ryde 2004-09-06 01:29:04 +00:00
parent edea856ce5
commit 8a74f7f502
1 changed files with 15 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

16
libguile/stime.h
View file

@ -24,9 +24,23 @@
#include "libguile/__scm.h" #include "libguile/__scm.h"
#include <unistd.h> /* for sysconf */
/* This should be figured out by autoconf. */ /* This should be figured out by autoconf.
sysconf(_SC_CLK_TCK) is best, since it's the actual running kernel, not
some compile-time CLK_TCK. On glibc 2.3.2 CLK_TCK (when defined) is in
fact sysconf(_SC_CLK_TCK) anyway.
CLK_TCK is obsolete in POSIX. In glibc 2.3.2 it's defined by default,
but if you define _GNU_SOURCE or _POSIX_C_SOURCE to get other features
then it goes away. */
#if ! defined(SCM_TIME_UNITS_PER_SECOND) && defined(_SC_CLK_TCK)
# define SCM_TIME_UNITS_PER_SECOND ((int) sysconf (_SC_CLK_TCK))
#endif
#if ! defined(SCM_TIME_UNITS_PER_SECOND) && defined(CLK_TCK) #if ! defined(SCM_TIME_UNITS_PER_SECOND) && defined(CLK_TCK)
# define SCM_TIME_UNITS_PER_SECOND ((int) CLK_TCK) # define SCM_TIME_UNITS_PER_SECOND ((int) CLK_TCK)
#endif #endif