rainlance/amiga-tz
1
0
Fork 0
mirror of https://frontier.innolan.net/rainlance/amiga-tz.git synced 2025-11-21 12:51:39 +00:00
Code Releases Activity

SCCS-file: tzfile.h

Browse Source 
SCCS-SID: 7.16
This commit is contained in:
Arthur David Olson
2004-10-11 15:10:09 -04:00
committed by Paul Eggert
parent 453ed380ef
commit e86c95c46e
1 changed files with 3 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
tzfile.h
View File

@ -156,14 +156,6 @@ struct tzhead {
#define EPOCH_YEAR 1970
#define EPOCH_WDAY TM_THURSDAY
/*
** Given an integral argument (a) and a positive integral argument (b),
** return a % b per C99.
*/
#define C99IPMOD(a, b) ((-1 % 2 < 0 || (a) >= 0) ? \
((a) % (b)) : ((a) % (b) - (b)))
#define isleap(y) (((y) % 4) == 0 && (((y) % 100) != 0 || ((y) % 400) == 0))
/*
@ -173,11 +165,12 @@ struct tzhead {
** isleap(a + b) == isleap((a + b) % 400)
** or
** isleap(a + b) == isleap(a % 400 + b % 400)
** (at least under the C99 definition of %).
** This is true even if % means modulo rather than Fortran remainder
** (which is allowed by C89 but not C99).
** We use this to avoid addition overflow problems.
*/
#define isleap_sum(a, b) isleap(C99IPMOD((a), 400) + C99IPMOD((b), 400))
#define isleap_sum(a, b) isleap((a) % 400 + (b) % 400)
#ifndef USG