7f7c318cfc
"Clean-up" stands for the fact that it's using common message digest template ../md32_common.h and sha[1_]dgst.c are reduced down to '#define SHA_[01]' and then '#include "sha_locl.h"'. It stands "(LP64)" there because it's 64 bit platforms which benefit most from the tune-up. The updated code exhibits 40% performance improvement on IRIX64 (sounds too good, huh? I probably should double check if it's not some cache trashing that was holding it back before), 28% - on Alpha Linux and 12% - Solaris 7/64.
83 lines
1.5 KiB
C++
83 lines
1.5 KiB
C++
//
|
|
// gettsc.inl
|
|
//
|
|
// gives access to the Pentium's (secret) cycle counter
|
|
//
|
|
// This software was written by Leonard Janke (janke@unixg.ubc.ca)
|
|
// in 1996-7 and is entered, by him, into the public domain.
|
|
|
|
#if defined(__WATCOMC__)
|
|
void GetTSC(unsigned long&);
|
|
#pragma aux GetTSC = 0x0f 0x31 "mov [edi], eax" parm [edi] modify [edx eax];
|
|
#elif defined(__GNUC__)
|
|
inline
|
|
void GetTSC(unsigned long& tsc)
|
|
{
|
|
asm volatile(".byte 15, 49\n\t"
|
|
: "=eax" (tsc)
|
|
:
|
|
: "%edx", "%eax");
|
|
}
|
|
#elif defined(_MSC_VER)
|
|
inline
|
|
void GetTSC(unsigned long& tsc)
|
|
{
|
|
unsigned long a;
|
|
__asm _emit 0fh
|
|
__asm _emit 31h
|
|
__asm mov a, eax;
|
|
tsc=a;
|
|
}
|
|
#endif
|
|
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <openssl/sha.h>
|
|
|
|
#define sha1_block_x86 sha1_block_asm_data_order
|
|
extern "C" {
|
|
void sha1_block_x86(SHA_CTX *ctx, unsigned char *buffer,int num);
|
|
}
|
|
|
|
void main(int argc,char *argv[])
|
|
{
|
|
unsigned char buffer[64*256];
|
|
SHA_CTX ctx;
|
|
unsigned long s1,s2,e1,e2;
|
|
unsigned char k[16];
|
|
unsigned long data[2];
|
|
unsigned char iv[8];
|
|
int i,num=0,numm;
|
|
int j=0;
|
|
|
|
if (argc >= 2)
|
|
num=atoi(argv[1]);
|
|
|
|
if (num == 0) num=16;
|
|
if (num > 250) num=16;
|
|
numm=num+2;
|
|
#if 0
|
|
num*=64;
|
|
numm*=64;
|
|
#endif
|
|
|
|
for (j=0; j<6; j++)
|
|
{
|
|
for (i=0; i<10; i++) /**/
|
|
{
|
|
sha1_block_x86(&ctx,buffer,numm);
|
|
GetTSC(s1);
|
|
sha1_block_x86(&ctx,buffer,numm);
|
|
GetTSC(e1);
|
|
GetTSC(s2);
|
|
sha1_block_x86(&ctx,buffer,num);
|
|
GetTSC(e2);
|
|
sha1_block_x86(&ctx,buffer,num);
|
|
}
|
|
|
|
printf("sha1 (%d bytes) %d %d (%.2f)\n",num*64,
|
|
e1-s1,e2-s2,(double)((e1-s1)-(e2-s2))/2);
|
|
}
|
|
}
|
|
|