153 lines
3.9 KiB
C
153 lines
3.9 KiB
C
/*
|
|
* What processor?
|
|
*
|
|
* Copyright 1995,1997 Morten Welinder
|
|
* Copyright 1997 Marcus Meissner
|
|
*/
|
|
|
|
#include <stdio.h>
|
|
#include <ctype.h>
|
|
#include <string.h>
|
|
#include "windows.h"
|
|
#include "winnt.h"
|
|
|
|
/***********************************************************************
|
|
* GetSystemInfo [KERNELL32.404]
|
|
*/
|
|
VOID WINAPI GetSystemInfo(LPSYSTEM_INFO si)
|
|
{
|
|
static int cache = 0;
|
|
static SYSTEM_INFO cachedsi;
|
|
|
|
if (cache) {
|
|
memcpy(si,&cachedsi,sizeof(*si));
|
|
return;
|
|
}
|
|
|
|
/* choose sensible defaults ...
|
|
* FIXME: perhaps overrideable with precompiler flags?
|
|
*/
|
|
cachedsi.u.x.wProcessorArchitecture = PROCESSOR_ARCHITECTURE_INTEL;
|
|
cachedsi.dwPageSize = 4096;
|
|
|
|
/* FIXME: better values for the two entries below... */
|
|
cachedsi.lpMinimumApplicationAddress = (void *)0x40000000;
|
|
cachedsi.lpMaximumApplicationAddress = (void *)0x7FFFFFFF;
|
|
cachedsi.dwActiveProcessorMask = 1;
|
|
cachedsi.dwNumberOfProcessors = 1;
|
|
cachedsi.dwProcessorType = PROCESSOR_INTEL_386;
|
|
cachedsi.dwAllocationGranularity = 0x10000;
|
|
cachedsi.wProcessorLevel = 3; /* 386 */
|
|
cachedsi.wProcessorRevision = 0;
|
|
|
|
cache = 1; /* even if there is no more info, we now have a cacheentry */
|
|
memcpy(si,&cachedsi,sizeof(*si));
|
|
|
|
#ifdef linux
|
|
{
|
|
char line[200],info[200],value[200],junk[200];
|
|
FILE *f = fopen ("/proc/cpuinfo", "r");
|
|
|
|
if (!f)
|
|
return;
|
|
while (fgets(line,200,f)!=NULL) {
|
|
if (sscanf(line,"%s%[ \t:]%s",info,junk,value)!=3)
|
|
continue;
|
|
if (!lstrncmpi32A(line, "cpu",3)) {
|
|
if ( isdigit (value[0]) && value[1] == '8' &&
|
|
value[2] == '6' && value[3] == 0
|
|
) {
|
|
switch (value[0] - '0') {
|
|
case 3:
|
|
cachedsi.dwProcessorType = PROCESSOR_INTEL_386;
|
|
cachedsi.wProcessorLevel= 3;
|
|
break;
|
|
case 4:
|
|
cachedsi.dwProcessorType = PROCESSOR_INTEL_486;
|
|
cachedsi.wProcessorLevel= 4;
|
|
break;
|
|
case 5:
|
|
cachedsi.dwProcessorType = PROCESSOR_INTEL_PENTIUM;
|
|
cachedsi.wProcessorLevel= 5;
|
|
break;
|
|
case 6: /* FIXME does the PPro have a special type? */
|
|
cachedsi.dwProcessorType = PROCESSOR_INTEL_PENTIUM;
|
|
cachedsi.wProcessorLevel= 5;
|
|
break;
|
|
default:
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
if (!lstrncmpi32A(info,"processor",9)) {
|
|
/* processor number counts up...*/
|
|
int x;
|
|
|
|
if (sscanf(value,"%d",&x))
|
|
if (x+1>cachedsi.dwNumberOfProcessors)
|
|
cachedsi.dwNumberOfProcessors=x+1;
|
|
}
|
|
if (!lstrncmpi32A(info,"stepping",8)) {
|
|
int x;
|
|
|
|
if (sscanf(value,"%d",&x))
|
|
cachedsi.wProcessorRevision = x;
|
|
}
|
|
}
|
|
fclose (f);
|
|
}
|
|
memcpy(si,&cachedsi,sizeof(*si));
|
|
return;
|
|
#else /* linux */
|
|
/* FIXME: how do we do this on other systems? */
|
|
return;
|
|
#endif /* linux */
|
|
}
|
|
|
|
/***********************************************************************
|
|
* CPU_TestProcessorFeature
|
|
*/
|
|
static BOOL32 CPU_TestProcessorFeature(const char* query_info, const char* query_value)
|
|
{
|
|
BOOL32 flag=FALSE;
|
|
#ifdef linux
|
|
char line[200],info[200],value[200],junk[200];
|
|
FILE *f = fopen ("/proc/cpuinfo", "r");
|
|
|
|
if (!f)
|
|
return 0;
|
|
while (fgets(line,200,f)!=NULL) {
|
|
if (sscanf(line,"%s%[ \t:]%s",info,junk,value)!=3)
|
|
continue;
|
|
if (strcmp(info,query_info)==0)
|
|
flag = strstr(value,query_value)!=NULL;
|
|
}
|
|
fclose (f);
|
|
#else /* linux */
|
|
/* FIXME: how do we do this on other systems? */
|
|
#endif /* linux */
|
|
return flag;
|
|
}
|
|
|
|
/***********************************************************************
|
|
* IsProcessorFeaturePresent [KERNELL32.880]
|
|
*/
|
|
BOOL32 WINAPI IsProcessorFeaturePresent (DWORD feature)
|
|
{
|
|
SYSTEM_INFO si;
|
|
GetSystemInfo (&si);
|
|
switch (feature)
|
|
{
|
|
case PF_FLOATING_POINT_PRECISION_ERRATA:
|
|
return si.wProcessorLevel == 5;
|
|
case PF_FLOATING_POINT_EMULATED:
|
|
return CPU_TestProcessorFeature("fpu","no"); break;
|
|
case PF_COMPARE_EXCHANGE_DOUBLE:
|
|
return si.wProcessorLevel >= 5;
|
|
case PF_MMX_INSTRUCTIONS_AVAILABLE:
|
|
return CPU_TestProcessorFeature("flags","mmx"); break;
|
|
default:
|
|
return FALSE;
|
|
}
|
|
}
|