procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Coalesce duplicate make_lisp_timeval etc.

Browse source 
* src/sysdep.c (timeval_to_timespec, make_lisp_timeval):
Coalesce duplicate definitions (Bug#32902).
This commit is contained in:
Paul Eggert 2018-10-03 09:10:00 -07:00
parent b5d08da1e9
commit 0faad0a002
1 changed files with 16 additions and 24 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

40
src/sysdep.c
View file

@ -3047,6 +3047,22 @@ list_system_processes (void)
#endif /* !defined (WINDOWSNT) */
#if defined __FreeBSD__ || defined DARWIN_OS
static struct timespec
timeval_to_timespec (struct timeval t)
{
return make_timespec (t.tv_sec, t.tv_usec * 1000);
}
static Lisp_Object
make_lisp_timeval (struct timeval t)
{
return make_lisp_time (timeval_to_timespec (t));
}
#endif
#if defined GNU_LINUX && defined HAVE_LONG_LONG_INT
static struct timespec
time_from_jiffies (unsigned long long tval, long hz)
@ -3567,18 +3583,6 @@ system_process_attributes (Lisp_Object pid)
#elif defined __FreeBSD__
static struct timespec
timeval_to_timespec (struct timeval t)
{
return make_timespec (t.tv_sec, t.tv_usec * 1000);
}
static Lisp_Object
make_lisp_timeval (struct timeval t)
{
return make_lisp_time (timeval_to_timespec (t));
}
Lisp_Object
system_process_attributes (Lisp_Object pid)
{
@ -3748,18 +3752,6 @@ system_process_attributes (Lisp_Object pid)
#elif defined DARWIN_OS
static struct timespec
timeval_to_timespec (struct timeval t)
{
return make_timespec (t.tv_sec, t.tv_usec * 1000);
}
static Lisp_Object
make_lisp_timeval (struct timeval t)
{
return make_lisp_time (timeval_to_timespec (t));
}
Lisp_Object
system_process_attributes (Lisp_Object pid)
{