X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/63efa6c6a559a23be863cad0c08457a2d29a0a67..0e963201d03d9229bb8ac4323291d2b0119526ed:/src/systime.h diff --git a/src/systime.h b/src/systime.h index 1d3a4ba291..04c83ff247 100644 --- a/src/systime.h +++ b/src/systime.h @@ -1,5 +1,5 @@ /* systime.h - System-dependent definitions for time manipulations. - Copyright (C) 1993-1994, 2002-2015 Free Software Foundation, Inc. + Copyright (C) 1993-1994, 2002-2016 Free Software Foundation, Inc. This file is part of GNU Emacs. @@ -83,9 +83,8 @@ extern struct timeval make_timeval (struct timespec) ATTRIBUTE_CONST; extern void set_waiting_for_input (struct timespec *); /* When lisp.h is not included Lisp_Object is not defined (this can - happen when this files is used outside the src directory). - Use GCPRO1 to determine if lisp.h was included. */ -#ifdef GCPRO1 + happen when this file is used outside the src directory). */ +#ifdef emacs /* Emacs uses the integer list (HI LO US PS) to represent the time (HI << LO_TIME_BITS) + LO + US / 1e6 + PS / 1e12. */ @@ -100,28 +99,12 @@ struct lisp_time /* defined in editfns.c */ extern Lisp_Object make_lisp_time (struct timespec); -extern bool decode_time_components (Lisp_Object, Lisp_Object, Lisp_Object, - Lisp_Object, struct lisp_time *, double *); +extern int decode_time_components (Lisp_Object, Lisp_Object, Lisp_Object, + Lisp_Object, struct lisp_time *, double *); extern struct timespec lisp_to_timespec (struct lisp_time); extern struct timespec lisp_time_argument (Lisp_Object); #endif -#ifndef HAVE_TZALLOC -# undef mktime_z -# undef timezone_t -# undef tzalloc -# undef tzfree -# define mktime_z emacs_mktime_z -# define timezone_t emacs_timezone_t -# define tzalloc emacs_tzalloc -# define tzfree emacs_tzfree -typedef char const *timezone_t; -INLINE timezone_t tzalloc (char const *name) { return name; } -INLINE void tzfree (timezone_t tz) { } -/* Defined in editfns.c. */ -extern time_t mktime_z (timezone_t, struct tm *); -#endif - INLINE_HEADER_END #endif /* EMACS_SYSTIME_H */