4 * Copyright 1995,1997 Morten Welinder
5 * Copyright 1997-1998 Marcus Meissner
11 #include "wine/winbase16.h"
12 #include "wine/winestring.h"
20 static BYTE PF
[64] = {0,};
22 /***********************************************************************
23 * GetSystemInfo [KERNELL32.404]
25 * Gets the current system information.
27 * On the first call it reads cached values, so it doesn't have to determine
28 * them repeatedly. On Linux, the /proc/cpuinfo special file is used.
30 * It creates a registry subhierarchy, looking like:
31 * \HARDWARE\DESCRIPTION\System\CentralProcessor\<processornumber>\
32 * Identifier (CPU x86)
33 * Note that there is a hierarchy for every processor installed, so this
34 * supports multiprocessor systems. This is done like Win95 does it, I think.
36 * It also creates a cached flag array for IsProcessorFeaturePresent().
41 VOID WINAPI
GetSystemInfo(
42 LPSYSTEM_INFO si
/* [out] system information */
45 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
.x
.wProcessorArchitecture
= PROCESSOR_ARCHITECTURE_INTEL
;
59 cachedsi
.dwPageSize
= VIRTUAL_GetPageSize();
61 /* FIXME: better values for the two entries below... */
62 cachedsi
.lpMinimumApplicationAddress
= (void *)0x40000000;
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 this registry key for all systems */
77 if (RegCreateKey16(HKEY_LOCAL_MACHINE
,"HARDWARE\\DESCRIPTION\\System\\CentralProcessor",&hkey
)!=ERROR_SUCCESS
) {
78 WARN(reg
,"Unable to register CPU information\n");
84 FILE *f
= fopen ("/proc/cpuinfo", "r");
89 while (fgets(line
,200,f
)!=NULL
) {
92 /* NOTE: the ':' is the only character we can rely on */
93 if (!(value
= strchr(line
,':')))
95 /* terminate the valuename */
97 /* skip any leading spaces */
98 while (*value
==' ') value
++;
99 if ((s
=strchr(value
,'\n')))
103 if (!lstrncmpiA(line
, "cpu family",strlen("cpu family"))) {
104 if (isdigit (value
[0])) {
105 switch (value
[0] - '0') {
106 case 3: cachedsi
.dwProcessorType
= PROCESSOR_INTEL_386
;
107 cachedsi
.wProcessorLevel
= 3;
109 case 4: cachedsi
.dwProcessorType
= PROCESSOR_INTEL_486
;
110 cachedsi
.wProcessorLevel
= 4;
112 case 5: cachedsi
.dwProcessorType
= PROCESSOR_INTEL_PENTIUM
;
113 cachedsi
.wProcessorLevel
= 5;
115 case 6: cachedsi
.dwProcessorType
= PROCESSOR_INTEL_PENTIUM
;
116 cachedsi
.wProcessorLevel
= 5;
122 /* set the CPU type of the current processor */
123 sprintf(buf
,"CPU %ld",cachedsi
.dwProcessorType
);
125 RegSetValueExA(xhkey
,"Identifier",0,REG_SZ
,buf
,strlen(buf
));
129 if (!lstrncmpiA(line
, "cpu",strlen("cpu"))) {
130 if ( isdigit (value
[0]) && value
[1] == '8' &&
131 value
[2] == '6' && value
[3] == 0
133 switch (value
[0] - '0') {
134 case 3: cachedsi
.dwProcessorType
= PROCESSOR_INTEL_386
;
135 cachedsi
.wProcessorLevel
= 3;
137 case 4: cachedsi
.dwProcessorType
= PROCESSOR_INTEL_486
;
138 cachedsi
.wProcessorLevel
= 4;
140 case 5: cachedsi
.dwProcessorType
= PROCESSOR_INTEL_PENTIUM
;
141 cachedsi
.wProcessorLevel
= 5;
143 case 6: cachedsi
.dwProcessorType
= PROCESSOR_INTEL_PENTIUM
;
144 cachedsi
.wProcessorLevel
= 5;
150 /* set the CPU type of the current processor */
151 sprintf(buf
,"CPU %ld",cachedsi
.dwProcessorType
);
153 RegSetValueExA(xhkey
,"Identifier",0,REG_SZ
,buf
,strlen(buf
));
156 if (!lstrncmpiA(line
,"fdiv_bug",strlen("fdiv_bug"))) {
157 if (!lstrncmpiA(value
,"yes",3))
158 PF
[PF_FLOATING_POINT_PRECISION_ERRATA
] = TRUE
;
162 if (!lstrncmpiA(line
,"fpu",strlen("fpu"))) {
163 if (!lstrncmpiA(value
,"no",2))
164 PF
[PF_FLOATING_POINT_EMULATED
] = TRUE
;
168 if (!lstrncmpiA(line
,"processor",strlen("processor"))) {
169 /* processor number counts up...*/
172 if (sscanf(value
,"%d",&x
))
173 if (x
+1>cachedsi
.dwNumberOfProcessors
)
174 cachedsi
.dwNumberOfProcessors
=x
+1;
176 /* Create a new processor subkey on a multiprocessor
182 RegCreateKey16(hkey
,buf
,&xhkey
);
184 if (!lstrncmpiA(line
,"stepping",strlen("stepping"))) {
187 if (sscanf(value
,"%d",&x
))
188 cachedsi
.wProcessorRevision
= x
;
190 if (!lstrncmpiA(line
,"flags",strlen("flags"))) {
191 if (strstr(value
,"cx8"))
192 PF
[PF_COMPARE_EXCHANGE_DOUBLE
] = TRUE
;
193 if (strstr(value
,"mmx"))
194 PF
[PF_MMX_INSTRUCTIONS_AVAILABLE
] = TRUE
;
200 memcpy(si
,&cachedsi
,sizeof(*si
));
202 /* FIXME: how do we do this on other systems? */
204 RegCreateKey16(hkey
,"0",&xhkey
);
205 RegSetValueExA(xhkey
,"Identifier",0,REG_SZ
,"CPU 386",strlen("CPU 386"));
214 /***********************************************************************
215 * IsProcessorFeaturePresent [KERNELL32.880]
217 * TRUE if processorfeature present
220 BOOL WINAPI
IsProcessorFeaturePresent (
221 DWORD feature
/* [in] feature number, see PF_ defines */
224 GetSystemInfo (&si
); /* To ensure the information is loaded and cached */