test_mod_mul is useful, let's run it more often.
[openssl.git] / crypto / tmdiff.c
1 /* crypto/tmdiff.c */
2 /* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com)
3  * All rights reserved.
4  *
5  * This package is an SSL implementation written
6  * by Eric Young (eay@cryptsoft.com).
7  * The implementation was written so as to conform with Netscapes SSL.
8  * 
9  * This library is free for commercial and non-commercial use as long as
10  * the following conditions are aheared to.  The following conditions
11  * apply to all code found in this distribution, be it the RC4, RSA,
12  * lhash, DES, etc., code; not just the SSL code.  The SSL documentation
13  * included with this distribution is covered by the same copyright terms
14  * except that the holder is Tim Hudson (tjh@cryptsoft.com).
15  * 
16  * Copyright remains Eric Young's, and as such any Copyright notices in
17  * the code are not to be removed.
18  * If this package is used in a product, Eric Young should be given attribution
19  * as the author of the parts of the library used.
20  * This can be in the form of a textual message at program startup or
21  * in documentation (online or textual) provided with the package.
22  * 
23  * Redistribution and use in source and binary forms, with or without
24  * modification, are permitted provided that the following conditions
25  * are met:
26  * 1. Redistributions of source code must retain the copyright
27  *    notice, this list of conditions and the following disclaimer.
28  * 2. Redistributions in binary form must reproduce the above copyright
29  *    notice, this list of conditions and the following disclaimer in the
30  *    documentation and/or other materials provided with the distribution.
31  * 3. All advertising materials mentioning features or use of this software
32  *    must display the following acknowledgement:
33  *    "This product includes cryptographic software written by
34  *     Eric Young (eay@cryptsoft.com)"
35  *    The word 'cryptographic' can be left out if the rouines from the library
36  *    being used are not cryptographic related :-).
37  * 4. If you include any Windows specific code (or a derivative thereof) from 
38  *    the apps directory (application code) you must include an acknowledgement:
39  *    "This product includes software written by Tim Hudson (tjh@cryptsoft.com)"
40  * 
41  * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND
42  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
43  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
44  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
45  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
46  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
47  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
48  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
49  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
50  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
51  * SUCH DAMAGE.
52  * 
53  * The licence and distribution terms for any publically available version or
54  * derivative of this code cannot be changed.  i.e. this code cannot simply be
55  * copied and put under another distribution licence
56  * [including the GNU Public Licence.]
57  */
58 #include <stdio.h>
59 #include <stdlib.h>
60 #include "cryptlib.h"
61 #include <openssl/tmdiff.h>
62
63 #ifdef TIMEB
64 #undef WIN32
65 #undef TIMES
66 #endif
67
68 #ifndef MSDOS
69 #  ifndef WIN32
70 #    if !defined(VMS) || defined(__DECC)
71 #      define TIMES
72 #    endif
73 #  endif
74 #endif
75
76 #ifndef _IRIX
77 #  include <time.h>
78 #endif
79 #ifdef TIMES
80 #  include <sys/types.h>
81 #  include <sys/times.h>
82 #endif
83
84 /* Depending on the VMS version, the tms structure is perhaps defined.
85    The __TMS macro will show if it was.  If it wasn't defined, we should
86    undefine TIMES, since that tells the rest of the program how things
87    should be handled.                           -- Richard Levitte */
88 #if defined(VMS) && defined(__DECC) && !defined(__TMS)
89 #undef TIMES
90 #endif
91
92 #if defined(sun) || defined(__ultrix)
93 #define _POSIX_SOURCE
94 #include <limits.h>
95 #include <sys/param.h>
96 #endif
97
98 #ifndef TIMES
99 #include <sys/timeb.h>
100 #endif
101
102 #ifdef WIN32
103 #include <windows.h>
104 #endif
105
106 /* The following if from times(3) man page.  It may need to be changed */
107 #ifndef HZ
108 # ifndef CLK_TCK
109 #  ifndef _BSD_CLK_TCK_ /* FreeBSD hack */
110 #   define HZ  100.0
111 #  else /* _BSD_CLK_TCK_ */
112 #   define HZ ((double)_BSD_CLK_TCK_)
113 #  endif
114 # else /* CLK_TCK */
115 #  define HZ ((double)CLK_TCK)
116 # endif
117 #endif
118
119 typedef struct ms_tm
120         {
121 #ifdef TIMES
122         struct tms ms_tms;
123 #else
124 #  ifdef WIN32
125         HANDLE thread_id;
126         FILETIME ms_win32;
127 #  else
128         struct timeb ms_timeb;
129 #  endif
130 #endif
131         } MS_TM;
132
133 char *ms_time_new(void)
134         {
135         MS_TM *ret;
136
137         ret=(MS_TM *)OPENSSL_malloc(sizeof(MS_TM));
138         if (ret == NULL)
139                 return(NULL);
140         memset(ret,0,sizeof(MS_TM));
141 #ifdef WIN32
142         ret->thread_id=GetCurrentThread();
143 #endif
144         return((char *)ret);
145         }
146
147 void ms_time_free(char *a)
148         {
149         if (a != NULL)
150                 OPENSSL_free(a);
151         }
152
153 void ms_time_get(char *a)
154         {
155         MS_TM *tm=(MS_TM *)a;
156 #ifdef WIN32
157         FILETIME tmpa,tmpb,tmpc;
158 #endif
159
160 #ifdef TIMES
161         times(&tm->ms_tms);
162 #else
163 #  ifdef WIN32
164         GetThreadTimes(tm->thread_id,&tmpa,&tmpb,&tmpc,&(tm->ms_win32));
165 #  else
166         ftime(&tm->ms_timeb);
167 #  endif
168 #endif
169         }
170
171 double ms_time_diff(char *ap, char *bp)
172         {
173         MS_TM *a=(MS_TM *)ap;
174         MS_TM *b=(MS_TM *)bp;
175         double ret;
176
177 #ifdef TIMES
178         ret=(b->ms_tms.tms_utime-a->ms_tms.tms_utime)/HZ;
179 #else
180 # ifdef WIN32
181         {
182 #ifdef __GNUC__
183         signed long long la,lb;
184 #else
185         signed _int64 la,lb;
186 #endif
187         la=a->ms_win32.dwHighDateTime;
188         lb=b->ms_win32.dwHighDateTime;
189         la<<=32;
190         lb<<=32;
191         la+=a->ms_win32.dwLowDateTime;
192         lb+=b->ms_win32.dwLowDateTime;
193         ret=((double)(lb-la))/1e7;
194         }
195 # else
196         ret=     (double)(b->ms_timeb.time-a->ms_timeb.time)+
197                 (((double)b->ms_timeb.millitm)-
198                 ((double)a->ms_timeb.millitm))/1000.0;
199 #  endif
200 #endif
201         return((ret < 0.0000001)?0.0000001:ret);
202         }
203
204 int ms_time_cmp(char *ap, char *bp)
205         {
206         MS_TM *a=(MS_TM *)ap,*b=(MS_TM *)bp;
207         double d;
208         int ret;
209
210 #ifdef TIMES
211         d=(b->ms_tms.tms_utime-a->ms_tms.tms_utime)/HZ;
212 #else
213 # ifdef WIN32
214         d =(b->ms_win32.dwHighDateTime&0x000fffff)*10+b->ms_win32.dwLowDateTime/1e7;
215         d-=(a->ms_win32.dwHighDateTime&0x000fffff)*10+a->ms_win32.dwLowDateTime/1e7;
216 # else
217         d=       (double)(b->ms_timeb.time-a->ms_timeb.time)+
218                 (((double)b->ms_timeb.millitm)-(double)a->ms_timeb.millitm)/1000.0;
219 #  endif
220 #endif
221         if (d == 0.0)
222                 ret=0;
223         else if (d < 0)
224                 ret= -1;
225         else
226                 ret=1;
227         return(ret);
228         }
229