1*ebfedea0SLionel Sambuc //
2*ebfedea0SLionel Sambuc // gettsc.inl
3*ebfedea0SLionel Sambuc //
4*ebfedea0SLionel Sambuc // gives access to the Pentium's (secret) cycle counter
5*ebfedea0SLionel Sambuc //
6*ebfedea0SLionel Sambuc // This software was written by Leonard Janke (janke@unixg.ubc.ca)
7*ebfedea0SLionel Sambuc // in 1996-7 and is entered, by him, into the public domain.
8*ebfedea0SLionel Sambuc
9*ebfedea0SLionel Sambuc #if defined(__WATCOMC__)
10*ebfedea0SLionel Sambuc void GetTSC(unsigned long&);
11*ebfedea0SLionel Sambuc #pragma aux GetTSC = 0x0f 0x31 "mov [edi], eax" parm [edi] modify [edx eax];
12*ebfedea0SLionel Sambuc #elif defined(__GNUC__)
13*ebfedea0SLionel Sambuc inline
GetTSC(unsigned long & tsc)14*ebfedea0SLionel Sambuc void GetTSC(unsigned long& tsc)
15*ebfedea0SLionel Sambuc {
16*ebfedea0SLionel Sambuc asm volatile(".byte 15, 49\n\t"
17*ebfedea0SLionel Sambuc : "=eax" (tsc)
18*ebfedea0SLionel Sambuc :
19*ebfedea0SLionel Sambuc : "%edx", "%eax");
20*ebfedea0SLionel Sambuc }
21*ebfedea0SLionel Sambuc #elif defined(_MSC_VER)
22*ebfedea0SLionel Sambuc inline
GetTSC(unsigned long & tsc)23*ebfedea0SLionel Sambuc void GetTSC(unsigned long& tsc)
24*ebfedea0SLionel Sambuc {
25*ebfedea0SLionel Sambuc unsigned long a;
26*ebfedea0SLionel Sambuc __asm _emit 0fh
27*ebfedea0SLionel Sambuc __asm _emit 31h
28*ebfedea0SLionel Sambuc __asm mov a, eax;
29*ebfedea0SLionel Sambuc tsc=a;
30*ebfedea0SLionel Sambuc }
31*ebfedea0SLionel Sambuc #endif
32*ebfedea0SLionel Sambuc
33*ebfedea0SLionel Sambuc #include <stdio.h>
34*ebfedea0SLionel Sambuc #include <stdlib.h>
35*ebfedea0SLionel Sambuc #include <openssl/cast.h>
36*ebfedea0SLionel Sambuc
main(int argc,char * argv[])37*ebfedea0SLionel Sambuc void main(int argc,char *argv[])
38*ebfedea0SLionel Sambuc {
39*ebfedea0SLionel Sambuc CAST_KEY key;
40*ebfedea0SLionel Sambuc unsigned long s1,s2,e1,e2;
41*ebfedea0SLionel Sambuc unsigned long data[2];
42*ebfedea0SLionel Sambuc int i,j;
43*ebfedea0SLionel Sambuc
44*ebfedea0SLionel Sambuc for (j=0; j<6; j++)
45*ebfedea0SLionel Sambuc {
46*ebfedea0SLionel Sambuc for (i=0; i<1000; i++) /**/
47*ebfedea0SLionel Sambuc {
48*ebfedea0SLionel Sambuc CAST_encrypt(&data[0],&key);
49*ebfedea0SLionel Sambuc GetTSC(s1);
50*ebfedea0SLionel Sambuc CAST_encrypt(&data[0],&key);
51*ebfedea0SLionel Sambuc CAST_encrypt(&data[0],&key);
52*ebfedea0SLionel Sambuc CAST_encrypt(&data[0],&key);
53*ebfedea0SLionel Sambuc GetTSC(e1);
54*ebfedea0SLionel Sambuc GetTSC(s2);
55*ebfedea0SLionel Sambuc CAST_encrypt(&data[0],&key);
56*ebfedea0SLionel Sambuc CAST_encrypt(&data[0],&key);
57*ebfedea0SLionel Sambuc CAST_encrypt(&data[0],&key);
58*ebfedea0SLionel Sambuc CAST_encrypt(&data[0],&key);
59*ebfedea0SLionel Sambuc GetTSC(e2);
60*ebfedea0SLionel Sambuc CAST_encrypt(&data[0],&key);
61*ebfedea0SLionel Sambuc }
62*ebfedea0SLionel Sambuc
63*ebfedea0SLionel Sambuc printf("cast %d %d (%d)\n",
64*ebfedea0SLionel Sambuc e1-s1,e2-s2,((e2-s2)-(e1-s1)));
65*ebfedea0SLionel Sambuc }
66*ebfedea0SLionel Sambuc }
67*ebfedea0SLionel Sambuc
68