Home | History | Annotate | Download | only in crypto
      1 /* Copyright (C) 1995-1998 Eric Young (eay (at) cryptsoft.com)
      2  * All rights reserved.
      3  *
      4  * This package is an SSL implementation written
      5  * by Eric Young (eay (at) cryptsoft.com).
      6  * The implementation was written so as to conform with Netscapes SSL.
      7  *
      8  * This library is free for commercial and non-commercial use as long as
      9  * the following conditions are aheared to.  The following conditions
     10  * apply to all code found in this distribution, be it the RC4, RSA,
     11  * lhash, DES, etc., code; not just the SSL code.  The SSL documentation
     12  * included with this distribution is covered by the same copyright terms
     13  * except that the holder is Tim Hudson (tjh (at) cryptsoft.com).
     14  *
     15  * Copyright remains Eric Young's, and as such any Copyright notices in
     16  * the code are not to be removed.
     17  * If this package is used in a product, Eric Young should be given attribution
     18  * as the author of the parts of the library used.
     19  * This can be in the form of a textual message at program startup or
     20  * in documentation (online or textual) provided with the package.
     21  *
     22  * Redistribution and use in source and binary forms, with or without
     23  * modification, are permitted provided that the following conditions
     24  * are met:
     25  * 1. Redistributions of source code must retain the copyright
     26  *    notice, this list of conditions and the following disclaimer.
     27  * 2. Redistributions in binary form must reproduce the above copyright
     28  *    notice, this list of conditions and the following disclaimer in the
     29  *    documentation and/or other materials provided with the distribution.
     30  * 3. All advertising materials mentioning features or use of this software
     31  *    must display the following acknowledgement:
     32  *    "This product includes cryptographic software written by
     33  *     Eric Young (eay (at) cryptsoft.com)"
     34  *    The word 'cryptographic' can be left out if the rouines from the library
     35  *    being used are not cryptographic related :-).
     36  * 4. If you include any Windows specific code (or a derivative thereof) from
     37  *    the apps directory (application code) you must include an acknowledgement:
     38  *    "This product includes software written by Tim Hudson (tjh (at) cryptsoft.com)"
     39  *
     40  * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND
     41  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
     42  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
     43  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
     44  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
     45  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
     46  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
     47  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
     48  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
     49  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
     50  * SUCH DAMAGE.
     51  *
     52  * The licence and distribution terms for any publically available version or
     53  * derivative of this code cannot be changed.  i.e. this code cannot simply be
     54  * copied and put under another distribution licence
     55  * [including the GNU Public Licence.] */
     56 
     57 #if !defined(__STDC_FORMAT_MACROS)
     58 #define __STDC_FORMAT_MACROS
     59 #endif
     60 
     61 #include <openssl/cpu.h>
     62 
     63 
     64 #if !defined(OPENSSL_NO_ASM) && (defined(OPENSSL_X86) || defined(OPENSSL_X86_64))
     65 
     66 #include <stdio.h>
     67 #include <inttypes.h>
     68 
     69 /* This value must be explicitly initialised to zero in order to work around a
     70  * bug in libtool or the linker on OS X.
     71  *
     72  * If not initialised then it becomes a "common symbol". When put into an
     73  * archive, linking on OS X will fail to resolve common symbols. By
     74  * initialising it to zero, it becomes a "data symbol", which isn't so
     75  * affected. */
     76 uint32_t OPENSSL_ia32cap_P[4] = {0};
     77 
     78 /* OPENSSL_ia32_cpuid is defined in cpu-x86_64-asm.pl. */
     79 extern uint64_t OPENSSL_ia32_cpuid(uint32_t*);
     80 
     81 /* handle_cpu_env applies the value from |in| to the CPUID values in |out[0]|
     82  * and |out[1]|. See the comment in |OPENSSL_cpuid_setup| about this. */
     83 static void handle_cpu_env(uint32_t *out, const char *in) {
     84   const int invert = in[0] == '~';
     85   uint64_t v;
     86 
     87   if (!sscanf(in + invert, "%" PRIi64, &v)) {
     88     return;
     89   }
     90 
     91   if (invert) {
     92     out[0] &= ~v;
     93     out[1] &= ~(v >> 32);
     94   } else {
     95     out[0] = v;
     96     out[1] = v >> 32;
     97   }
     98 }
     99 
    100 void OPENSSL_cpuid_setup(void) {
    101   const char *env1, *env2;
    102 
    103 #if defined(OPENSSL_X86_64)
    104   OPENSSL_ia32_cpuid(OPENSSL_ia32cap_P);
    105 #else
    106   uint64_t vec = OPENSSL_ia32_cpuid(OPENSSL_ia32cap_P);
    107   /* 1<<10 sets a reserved bit to indicate that the variable
    108    * was already initialised. */
    109   OPENSSL_ia32cap_P[0] = ((uint32_t)vec) | (1 << 10);
    110   OPENSSL_ia32cap_P[1] = vec >> 32;
    111 #endif
    112 
    113   env1 = getenv("OPENSSL_ia32cap");
    114   if (env1 == NULL) {
    115     return;
    116   }
    117 
    118   /* OPENSSL_ia32cap can contain zero, one or two values, separated with a ':'.
    119    * Each value is a 64-bit, unsigned value which may start with "0x" to
    120    * indicate a hex value. Prior to the 64-bit value, a '~' may be given.
    121    *
    122    * If '~' isn't present, then the value is taken as the result of the CPUID.
    123    * Otherwise the value is inverted and ANDed with the probed CPUID result.
    124    *
    125    * The first value determines OPENSSL_ia32cap_P[0] and [1]. The second [2]
    126    * and [3]. */
    127 
    128   handle_cpu_env(&OPENSSL_ia32cap_P[0], env1);
    129   env2 = strchr(env1, ':');
    130   if (env2 != NULL) {
    131     handle_cpu_env(&OPENSSL_ia32cap_P[2], env2 + 1);
    132   }
    133 }
    134 
    135 #endif  /* !OPENSSL_NO_ASM && (OPENSSL_X86 || OPENSSL_X86_64) */
    136