3 * CPU-specific dispatch
5 * (c) 2015 Straylight/Edgeware
8 /*----- Licensing notice --------------------------------------------------*
10 * This file is part of Catacomb.
12 * Catacomb is free software; you can redistribute it and/or modify
13 * it under the terms of the GNU Library General Public License as
14 * published by the Free Software Foundation; either version 2 of the
15 * License, or (at your option) any later version.
17 * Catacomb is distributed in the hope that it will be useful,
18 * but WITHOUT ANY WARRANTY; without even the implied warranty of
19 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
20 * GNU Library General Public License for more details.
22 * You should have received a copy of the GNU Library General Public
23 * License along with Catacomb; if not, write to the Free
24 * Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
28 /*----- Header files ------------------------------------------------------*/
36 #include <mLib/macros.h>
40 /*----- Main code ---------------------------------------------------------*/
44 #define EFLAGS_ID (1u << 21)
45 #define CPUID1D_SSE2 (1u << 26)
47 struct cpuid
{ unsigned a
, b
, c
, d
; };
51 * Arguments: @struct cpuid *cc@ = where to write the result
52 * @unsigned a, c@ = EAX and ECX registers to set
56 * Use: Minimal C wrapper around the x86 `CPUID' instruction. Checks
57 * that the instruction is actually available before invoking
58 * it; fills the output structure with zero if it's not going to
63 static __inline__
unsigned getflags(void)
64 { unsigned f
; __asm__ ("pushf; popl %0" : "=g" (f
)); return (f
); }
65 static __inline__
unsigned setflags(unsigned f
)
68 __asm__ ("pushf; pushl %1; popf; pushf; popl %0; popf"
75 static void cpuid(struct cpuid
*cc
, unsigned a
, unsigned c
)
81 cc
->a
= cc
->b
= cc
->c
= cc
->d
= 0;
84 /* Stupid dance to detect whether the CPUID instruction is available. */
86 if (!(setflags(f
| EFLAGS_ID
) & EFLAGS_ID
)) return;
87 if ( setflags(f
& ~EFLAGS_ID
) & EFLAGS_ID
) return;
90 /* Alas, EBX is magical in PIC code, so abuse ESI instead. This isn't
91 * pretty, but it works.
93 __asm__ ("pushl %%ebx; cpuid; movl %%ebx, %%esi; popl %%ebx"
94 : "=a" (cc
->a
), "=S" (cc
->b
), "=c" (cc
->c
), "=d" (cc
->d
)
99 static unsigned cpuid_maxleaf(void)
100 { struct cpuid c
; cpuid(&c
, 0, 0); return (c
.a
); }
102 static int cpuid_features_p(unsigned dbits
, unsigned cbits
)
105 if (cpuid_maxleaf() < 1) return (0);
107 return ((c
.d
& dbits
) == dbits
&& (c
.c
& cbits
) == cbits
);
112 /* --- @check_env@ --- *
114 * Arguments: @const char *ftok@ = feature token
116 * Returns: Zero if the feature is forced off; positive if it's forced
117 * on; negative if the user hasn't decided.
119 * Use: Checks the environment variable `CATACOMB_CPUFEAT' for the
120 * feature token @ftok@. The variable, if it exists, should be
121 * a space-separated sequence of `+tok' and `-tok' items. These
122 * tokens may end in `*', which matches any suffix.
125 static int IGNORABLE
check_env(const char *ftok
)
127 const char *p
, *q
, *pp
;
130 p
= getenv("CATACOMB_CPUFEAT");
134 while (isspace((unsigned char)*p
)) p
++;
135 if (!*p
) return (-1);
137 case '+': d
= +1; p
++; break;
138 case '-': d
= 0; p
++; break;
139 default: d
= -1; break;
141 for (q
= p
; *q
&& !isspace((unsigned char)*q
); q
++);
143 for (pp
= ftok
; p
< q
&& *pp
&& *p
== *pp
; p
++, pp
++);
144 if ((p
== q
&& !*pp
) || (*p
== '*' && p
+ 1 == q
)) return (d
);
151 /* --- @cpu_feature_p@ --- *
153 * Arguments: @unsigned feat@ = a @CPUFEAT_...@ code
155 * Returns: Nonzero if the feature is available.
160 int cpu_feature_p(int feat
)
164 #define CHECK_ENV(ftok) \
165 do { if ((f = check_env(ftok)) >= 0) return (f); } while (0)
169 case CPUFEAT_X86_SSE2
: {
170 CHECK_ENV("x86:sse2");
171 return (cpuid_features_p(CPUID1D_SSE2
, 0));
180 /*----- That's all, folks -------------------------------------------------*/