123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188 |
- #include <stdio.h>
- #include <stdlib.h>
- #include <string.h>
- #include <setjmp.h>
- #include <signal.h>
- #include <unistd.h>
- #if defined(__linux) || defined(_AIX)
- # include <sys/utsname.h>
- #endif
- #if defined(_AIX53) /* defined even on post-5.3 */
- # include <sys/systemcfg.h>
- # if !defined(__power_set)
- # define __power_set(a) (_system_configuration.implementation & (a))
- # endif
- #endif
- #include <crypto.h>
- #include <openssl/bn.h>
- #define PPC_FPU64 (1<<0)
- #define PPC_ALTIVEC (1<<1)
- #define PPC_CRYPTO207 (1<<2)
- int OPENSSL_ppccap_P = 0;
- static sigset_t all_masked;
- #ifdef OPENSSL_BN_ASM_MONT
- int bn_mul_mont(BN_ULONG *rp, const BN_ULONG *ap, const BN_ULONG *bp, const BN_ULONG *np, const BN_ULONG *n0, int num)
- {
- int bn_mul_mont_fpu64(BN_ULONG *rp, const BN_ULONG *ap, const BN_ULONG *bp, const BN_ULONG *np, const BN_ULONG *n0, int num);
- int bn_mul_mont_int(BN_ULONG *rp, const BN_ULONG *ap, const BN_ULONG *bp, const BN_ULONG *np, const BN_ULONG *n0, int num);
- if (sizeof(size_t)==4)
- {
- #if (defined(__APPLE__) && defined(__MACH__))
- if (num>=8 && (num&3)==0 && (OPENSSL_ppccap_P&PPC_FPU64))
- return bn_mul_mont_fpu64(rp,ap,bp,np,n0,num);
- #else
- /* boundary of 32 was experimentally determined on
- Linux 2.6.22, might have to be adjusted on AIX... */
- if (num>=32 && (num&3)==0 && (OPENSSL_ppccap_P&PPC_FPU64))
- {
- sigset_t oset;
- int ret;
- sigprocmask(SIG_SETMASK,&all_masked,&oset);
- ret=bn_mul_mont_fpu64(rp,ap,bp,np,n0,num);
- sigprocmask(SIG_SETMASK,&oset,NULL);
- return ret;
- }
- #endif
- }
- else if ((OPENSSL_ppccap_P&PPC_FPU64))
- /* this is a "must" on POWER6, but run-time detection
- * is not implemented yet... */
- return bn_mul_mont_fpu64(rp,ap,bp,np,n0,num);
- return bn_mul_mont_int(rp,ap,bp,np,n0,num);
- }
- #endif
- void sha256_block_p8(void *ctx, const void *inp, size_t len);
- void sha256_block_ppc(void *ctx, const void *inp, size_t len);
- void sha256_block_data_order(void *ctx, const void *inp, size_t len)
- {
- OPENSSL_ppccap_P & PPC_CRYPTO207 ? sha256_block_p8(ctx, inp, len) :
- sha256_block_ppc(ctx, inp, len);
- }
- void sha512_block_p8(void *ctx, const void *inp, size_t len);
- void sha512_block_ppc(void *ctx, const void *inp, size_t len);
- void sha512_block_data_order(void *ctx, const void *inp, size_t len)
- {
- OPENSSL_ppccap_P & PPC_CRYPTO207 ? sha512_block_p8(ctx, inp, len) :
- sha512_block_ppc(ctx, inp, len);
- }
- static sigjmp_buf ill_jmp;
- static void ill_handler (int sig) { siglongjmp(ill_jmp,sig); }
- void OPENSSL_ppc64_probe(void);
- void OPENSSL_altivec_probe(void);
- void OPENSSL_crypto207_probe(void);
- void OPENSSL_cpuid_setup(void)
- {
- char *e;
- struct sigaction ill_oact,ill_act;
- sigset_t oset;
- static int trigger=0;
- if (trigger) return;
- trigger=1;
-
- sigfillset(&all_masked);
- sigdelset(&all_masked,SIGILL);
- sigdelset(&all_masked,SIGTRAP);
- #ifdef SIGEMT
- sigdelset(&all_masked,SIGEMT);
- #endif
- sigdelset(&all_masked,SIGFPE);
- sigdelset(&all_masked,SIGBUS);
- sigdelset(&all_masked,SIGSEGV);
- if ((e=getenv("OPENSSL_ppccap")))
- {
- OPENSSL_ppccap_P=strtoul(e,NULL,0);
- return;
- }
- OPENSSL_ppccap_P = 0;
- #if defined(_AIX)
- if (sizeof(size_t) == 4) {
- struct utsname uts;
- # if defined(_SC_AIX_KERNEL_BITMODE)
- if (sysconf(_SC_AIX_KERNEL_BITMODE) != 64)
- return;
- # endif
- if (uname(&uts) != 0 || atoi(uts.version) < 6)
- return;
- }
- # if defined(__power_set)
- /*
- * Value used in __power_set is a single-bit 1<<n one denoting
- * specific processor class. Incidentally 0xffffffff<<n can be
- * used to denote specific processor and its successors.
- */
- if (sizeof(size_t) == 4) {
- /* In 32-bit case PPC_FPU64 is always fastest [if option] */
- if (__power_set(0xffffffffU<<13)) /* POWER5 and later */
- OPENSSL_ppccap_P |= PPC_FPU64;
- } else {
- /* In 64-bit case PPC_FPU64 is fastest only on POWER6 */
- # if 0 /* to keep compatibility with previous validations */
- if (__power_set(0x1U<<14)) /* POWER6 */
- OPENSSL_ppccap_P |= PPC_FPU64;
- # endif
- }
- if (__power_set(0xffffffffU<<14)) /* POWER6 and later */
- OPENSSL_ppccap_P |= PPC_ALTIVEC;
- if (__power_set(0xffffffffU<<16)) /* POWER8 and later */
- OPENSSL_ppccap_P |= PPC_CRYPTO207;
- return;
- # endif
- #endif
- memset(&ill_act,0,sizeof(ill_act));
- ill_act.sa_handler = ill_handler;
- ill_act.sa_mask = all_masked;
- sigprocmask(SIG_SETMASK,&ill_act.sa_mask,&oset);
- sigaction(SIGILL,&ill_act,&ill_oact);
- if (sizeof(size_t)==4)
- {
- if (sigsetjmp(ill_jmp,1) == 0)
- {
- OPENSSL_ppc64_probe();
- OPENSSL_ppccap_P |= PPC_FPU64;
- }
- }
- else
- {
- /*
- * Wanted code detecting POWER6 CPU and setting PPC_FPU64
- */
- }
- if (sigsetjmp(ill_jmp,1) == 0)
- {
- OPENSSL_altivec_probe();
- OPENSSL_ppccap_P |= PPC_ALTIVEC;
- if (sigsetjmp(ill_jmp, 1) == 0)
- {
- OPENSSL_crypto207_probe();
- OPENSSL_ppccap_P |= PPC_CRYPTO207;
- }
- }
- sigaction (SIGILL,&ill_oact,NULL);
- sigprocmask(SIG_SETMASK,&oset,NULL);
- }
|