4 * Copyright 1995,1997 Morten Welinder
5 * Copyright 1997-1998 Marcus Meissner
12 #include "wine/port.h"
17 #include "debugtools.h"
19 DEFAULT_DEBUG_CHANNEL(reg
);
21 static BYTE PF
[64] = {0,};
23 /***********************************************************************
24 * GetSystemInfo [KERNELL32.404]
26 * Gets the current system information.
28 * On the first call it reads cached values, so it doesn't have to determine
29 * them repeatedly. On Linux, the /proc/cpuinfo special file is used.
31 * It creates a registry subhierarchy, looking like:
32 * \HARDWARE\DESCRIPTION\System\CentralProcessor\<processornumber>\
33 * Identifier (CPU x86)
34 * Note that there is a hierarchy for every processor installed, so this
35 * supports multiprocessor systems. This is done like Win95 does it, I think.
37 * It also creates a cached flag array for IsProcessorFeaturePresent().
42 VOID WINAPI
GetSystemInfo(
43 LPSYSTEM_INFO si
/* [out] system information */
46 static SYSTEM_INFO cachedsi
;
50 memcpy(si
,&cachedsi
,sizeof(*si
));
53 memset(PF
,0,sizeof(PF
));
55 /* choose sensible defaults ...
56 * FIXME: perhaps overrideable with precompiler flags?
58 cachedsi
.u
.s
.wProcessorArchitecture
= PROCESSOR_ARCHITECTURE_INTEL
;
59 cachedsi
.dwPageSize
= getpagesize();
61 /* FIXME: the two entries below should be computed somehow... */
62 cachedsi
.lpMinimumApplicationAddress
= (void *)0x00010000;
63 cachedsi
.lpMaximumApplicationAddress
= (void *)0x7FFFFFFF;
64 cachedsi
.dwActiveProcessorMask
= 1;
65 cachedsi
.dwNumberOfProcessors
= 1;
66 cachedsi
.dwProcessorType
= PROCESSOR_INTEL_386
;
67 cachedsi
.dwAllocationGranularity
= 0x10000;
68 cachedsi
.wProcessorLevel
= 3; /* 386 */
69 cachedsi
.wProcessorRevision
= 0;
71 cache
= 1; /* even if there is no more info, we now have a cacheentry */
72 memcpy(si
,&cachedsi
,sizeof(*si
));
74 /* Hmm, reasonable processor feature defaults? */
76 /* Create these registry keys for all systems
77 * FPU entry is often empty on Windows, so we don't care either */
78 if ( (RegCreateKeyA(HKEY_LOCAL_MACHINE
,"HARDWARE\\DESCRIPTION\\System\\FloatingPointProcessor",&hkey
)!=ERROR_SUCCESS
)
79 || (RegCreateKeyA(HKEY_LOCAL_MACHINE
,"HARDWARE\\DESCRIPTION\\System\\CentralProcessor",&hkey
)!=ERROR_SUCCESS
) )
81 WARN("Unable to write FPU/CPU info to registry\n");
88 FILE *f
= fopen ("/proc/cpuinfo", "r");
93 while (fgets(line
,200,f
)!=NULL
) {
96 /* NOTE: the ':' is the only character we can rely on */
97 if (!(value
= strchr(line
,':')))
99 /* terminate the valuename */
101 /* skip any leading spaces */
102 while (*value
==' ') value
++;
103 if ((s
=strchr(value
,'\n')))
107 if (!strncasecmp(line
, "cpu family",strlen("cpu family"))) {
108 if (isdigit (value
[0])) {
109 switch (value
[0] - '0') {
110 case 3: cachedsi
.dwProcessorType
= PROCESSOR_INTEL_386
;
111 cachedsi
.wProcessorLevel
= 3;
113 case 4: cachedsi
.dwProcessorType
= PROCESSOR_INTEL_486
;
114 cachedsi
.wProcessorLevel
= 4;
116 case 5: cachedsi
.dwProcessorType
= PROCESSOR_INTEL_PENTIUM
;
117 cachedsi
.wProcessorLevel
= 5;
119 case 6: cachedsi
.dwProcessorType
= PROCESSOR_INTEL_PENTIUM
;
120 cachedsi
.wProcessorLevel
= 5;
126 /* set the CPU type of the current processor */
127 sprintf(buf
,"CPU %ld",cachedsi
.dwProcessorType
);
129 RegSetValueExA(xhkey
,"Identifier",0,REG_SZ
,buf
,strlen(buf
));
133 if (!strncasecmp(line
, "cpu",strlen("cpu"))) {
134 if ( isdigit (value
[0]) && value
[1] == '8' &&
135 value
[2] == '6' && value
[3] == 0
137 switch (value
[0] - '0') {
138 case 3: cachedsi
.dwProcessorType
= PROCESSOR_INTEL_386
;
139 cachedsi
.wProcessorLevel
= 3;
141 case 4: cachedsi
.dwProcessorType
= PROCESSOR_INTEL_486
;
142 cachedsi
.wProcessorLevel
= 4;
144 case 5: cachedsi
.dwProcessorType
= PROCESSOR_INTEL_PENTIUM
;
145 cachedsi
.wProcessorLevel
= 5;
147 case 6: cachedsi
.dwProcessorType
= PROCESSOR_INTEL_PENTIUM
;
148 cachedsi
.wProcessorLevel
= 5;
154 /* set the CPU type of the current processor */
155 sprintf(buf
,"CPU %ld",cachedsi
.dwProcessorType
);
157 RegSetValueExA(xhkey
,"Identifier",0,REG_SZ
,buf
,strlen(buf
));
160 if (!strncasecmp(line
,"fdiv_bug",strlen("fdiv_bug"))) {
161 if (!strncasecmp(value
,"yes",3))
162 PF
[PF_FLOATING_POINT_PRECISION_ERRATA
] = TRUE
;
166 if (!strncasecmp(line
,"fpu",strlen("fpu"))) {
167 if (!strncasecmp(value
,"no",2))
168 PF
[PF_FLOATING_POINT_EMULATED
] = TRUE
;
172 if (!strncasecmp(line
,"processor",strlen("processor"))) {
173 /* processor number counts up... */
176 if (sscanf(value
,"%d",&x
))
177 if (x
+1>cachedsi
.dwNumberOfProcessors
)
178 cachedsi
.dwNumberOfProcessors
=x
+1;
180 /* Create a new processor subkey on a multiprocessor
186 RegCreateKeyA(hkey
,buf
,&xhkey
);
188 if (!strncasecmp(line
,"stepping",strlen("stepping"))) {
191 if (sscanf(value
,"%d",&x
))
192 cachedsi
.wProcessorRevision
= x
;
194 if ( !strncasecmp(line
,"flags",strlen("flags")) ||
195 !strncasecmp(line
,"features",strlen("features"))
197 if (strstr(value
,"cx8"))
198 PF
[PF_COMPARE_EXCHANGE_DOUBLE
] = TRUE
;
199 if (strstr(value
,"mmx"))
200 PF
[PF_MMX_INSTRUCTIONS_AVAILABLE
] = TRUE
;
206 memcpy(si
,&cachedsi
,sizeof(*si
));
208 /* FIXME: how do we do this on other systems? */
210 RegCreateKeyA(hkey
,"0",&xhkey
);
211 RegSetValueExA(xhkey
,"Identifier",0,REG_SZ
,"CPU 386",strlen("CPU 386"));
220 /***********************************************************************
221 * IsProcessorFeaturePresent [KERNELL32.880]
223 * TRUE if processorfeature present
226 BOOL WINAPI
IsProcessorFeaturePresent (
227 DWORD feature
/* [in] feature number, see PF_ defines */
230 GetSystemInfo (&si
); /* To ensure the information is loaded and cached */