2000-02-25 10:15:17 +00:00
|
|
|
// This may look like C code, but it is really -*- C++ -*-
|
|
|
|
|
|
|
|
// ------------------------------------------------------------------
|
|
|
|
// The Goldware Library
|
|
|
|
// Copyright (C) 1990-1999 Odinn Sorensen
|
|
|
|
// Copyright (C) 1999-2000 Alexander S. Aganichev
|
|
|
|
// ------------------------------------------------------------------
|
|
|
|
// This library is free software; you can redistribute it and/or
|
|
|
|
// modify it under the terms of the GNU Library General Public
|
|
|
|
// License as published by the Free Software Foundation; either
|
|
|
|
// version 2 of the License, or (at your option) any later version.
|
|
|
|
//
|
|
|
|
// This library is distributed in the hope that it will be useful,
|
|
|
|
// but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
|
|
// Library General Public License for more details.
|
|
|
|
//
|
|
|
|
// You should have received a copy of the GNU Library General Public
|
|
|
|
// License along with this program; if not, write to the Free
|
|
|
|
// Software Foundation, Inc., 59 Temple Place, Suite 330, Boston,
|
|
|
|
// MA 02111-1307, USA
|
|
|
|
// ------------------------------------------------------------------
|
|
|
|
// $Id$
|
|
|
|
// ------------------------------------------------------------------
|
|
|
|
// Get operating system version.
|
|
|
|
// ------------------------------------------------------------------
|
|
|
|
|
|
|
|
#include <cstdio>
|
|
|
|
#include <gstrall.h>
|
|
|
|
#include <gutlmisc.h>
|
|
|
|
|
|
|
|
#if defined(__WIN32__)
|
|
|
|
#include <windows.h>
|
|
|
|
#elif defined(__GNUC__)
|
|
|
|
#include <sys/utsname.h>
|
|
|
|
#endif
|
|
|
|
|
2003-03-29 21:51:19 +00:00
|
|
|
#if defined(__BEOS__)
|
|
|
|
#include <File.h>
|
|
|
|
#include <AppFileInfo.h>
|
|
|
|
#endif
|
2000-02-25 10:15:17 +00:00
|
|
|
|
2005-10-05 21:58:34 +00:00
|
|
|
|
|
|
|
// ------------------------------------------------------------------
|
|
|
|
|
2005-10-15 21:43:46 +00:00
|
|
|
#define _MAX_VNAME_LEN 12
|
2005-10-05 21:58:34 +00:00
|
|
|
#define _MAX_MNAME_LEN 30
|
|
|
|
|
|
|
|
|
|
|
|
// ------------------------------------------------------------------
|
|
|
|
|
2005-10-15 22:58:39 +00:00
|
|
|
inline static bool HaveCPUID()
|
2005-10-05 21:58:34 +00:00
|
|
|
{
|
|
|
|
// TO_PORT_TAG: CPUID
|
|
|
|
#if defined(_MSC_VER)
|
|
|
|
__try
|
|
|
|
{
|
|
|
|
__asm
|
|
|
|
{
|
|
|
|
xor eax, eax
|
|
|
|
cpuid
|
|
|
|
}
|
|
|
|
}
|
|
|
|
__except(EXCEPTION_EXECUTE_HANDLER)
|
|
|
|
{
|
|
|
|
return false;
|
|
|
|
}
|
2005-10-09 21:09:37 +00:00
|
|
|
|
2005-10-13 19:28:32 +00:00
|
|
|
return true;
|
|
|
|
#elif defined(__GNUC__)
|
2005-10-05 21:58:34 +00:00
|
|
|
return true;
|
|
|
|
#else
|
|
|
|
return false;
|
|
|
|
#endif
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
// ------------------------------------------------------------------
|
|
|
|
|
|
|
|
static void cpuname(int family, int model, const char *v_name, char *m_name)
|
|
|
|
{
|
|
|
|
if (!strcmp("AuthenticAMD", v_name))
|
|
|
|
{
|
|
|
|
switch (family)
|
|
|
|
{
|
|
|
|
case 4:
|
2005-10-24 15:09:49 +00:00
|
|
|
switch (model)
|
|
|
|
{
|
|
|
|
case 3:
|
|
|
|
case 7:
|
|
|
|
strcpy(m_name, "AMD486DX2");
|
|
|
|
break;
|
|
|
|
case 8:
|
|
|
|
case 9:
|
|
|
|
strcpy(m_name, "AMD486DX4");
|
|
|
|
break;
|
|
|
|
case 14:
|
|
|
|
case 15:
|
|
|
|
strcpy(m_name, "AMD5x86");
|
|
|
|
break;
|
|
|
|
default:
|
|
|
|
sprintf(m_name, "AMD486_M%d", model);
|
|
|
|
|
|
|
|
}
|
2005-10-05 21:58:34 +00:00
|
|
|
break;
|
|
|
|
|
|
|
|
case 5:
|
|
|
|
switch (model)
|
|
|
|
{
|
|
|
|
case 0:
|
|
|
|
case 1:
|
|
|
|
case 2:
|
|
|
|
case 3:
|
|
|
|
strcpy(m_name, "AMD_K5");
|
|
|
|
break;
|
|
|
|
case 6:
|
|
|
|
case 7:
|
|
|
|
strcpy(m_name, "AMD_K6");
|
|
|
|
break;
|
|
|
|
case 8:
|
|
|
|
strcpy(m_name, "AMD_K6-2");
|
|
|
|
break;
|
|
|
|
case 9:
|
|
|
|
case 10:
|
|
|
|
case 11:
|
|
|
|
case 12:
|
2005-10-24 15:09:49 +00:00
|
|
|
strcpy(m_name, "AMD_K6-3");
|
|
|
|
break;
|
2005-10-05 21:58:34 +00:00
|
|
|
case 13:
|
|
|
|
case 14:
|
|
|
|
case 15:
|
2005-10-24 15:09:49 +00:00
|
|
|
strcpy(m_name, "AMD_K6-3+");
|
2005-10-05 21:58:34 +00:00
|
|
|
break;
|
|
|
|
default:
|
|
|
|
sprintf(m_name, "AMD_F%dM%d", family, model);
|
|
|
|
}
|
|
|
|
break;
|
|
|
|
|
|
|
|
case 6:
|
2005-10-24 15:09:49 +00:00
|
|
|
switch (model)
|
|
|
|
{
|
|
|
|
case 1:
|
|
|
|
case 2:
|
|
|
|
case 4:
|
|
|
|
strcpy(m_name, "AMD_Athlon");
|
|
|
|
break;
|
|
|
|
case 3:
|
|
|
|
strcpy(m_name, "AMD_Duron");
|
|
|
|
break;
|
|
|
|
default:
|
|
|
|
sprintf(m_name, "AMD_K7_M%u", model);
|
|
|
|
}
|
2005-10-05 21:58:34 +00:00
|
|
|
break;
|
|
|
|
|
|
|
|
case 15:
|
2005-10-24 15:09:49 +00:00
|
|
|
strcpy(m_name, "AMD64");
|
2005-10-05 21:58:34 +00:00
|
|
|
break;
|
|
|
|
|
|
|
|
default:
|
|
|
|
sprintf(m_name, "AMD_F%dM%d", family, model);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
else if (!strcmp("GenuineIntel", v_name))
|
|
|
|
{
|
|
|
|
switch (family)
|
|
|
|
{
|
|
|
|
case 4:
|
|
|
|
switch (model)
|
|
|
|
{
|
|
|
|
case 0:
|
|
|
|
case 1:
|
|
|
|
strcpy(m_name, "i486DX");
|
|
|
|
break;
|
|
|
|
case 2:
|
|
|
|
strcpy(m_name, "i486SX");
|
|
|
|
break;
|
|
|
|
case 3:
|
|
|
|
strcpy(m_name, "i486DX2");
|
|
|
|
break;
|
|
|
|
case 4:
|
|
|
|
strcpy(m_name, "i486SL");
|
|
|
|
break;
|
|
|
|
case 5:
|
2005-10-24 15:09:49 +00:00
|
|
|
strcpy(m_name, "i486SX2O");
|
2005-10-05 21:58:34 +00:00
|
|
|
break;
|
|
|
|
case 7:
|
|
|
|
strcpy(m_name, "i486DX2E");
|
|
|
|
break;
|
|
|
|
case 8:
|
|
|
|
strcpy(m_name, "i486DX4");
|
|
|
|
break;
|
|
|
|
default:
|
2005-10-24 15:09:49 +00:00
|
|
|
sprintf(m_name, "i486_M%d", model);
|
2005-10-05 21:58:34 +00:00
|
|
|
}
|
|
|
|
break;
|
|
|
|
|
|
|
|
case 5:
|
|
|
|
switch (model)
|
|
|
|
{
|
|
|
|
case 1:
|
2005-10-24 15:09:49 +00:00
|
|
|
strcpy(m_name, "iP");
|
|
|
|
break;
|
2005-10-05 21:58:34 +00:00
|
|
|
case 2:
|
2005-10-16 09:15:11 +00:00
|
|
|
strcpy(m_name, "iP54C");
|
2005-10-05 21:58:34 +00:00
|
|
|
break;
|
2005-10-24 15:09:49 +00:00
|
|
|
case 3:
|
|
|
|
strcpy(m_name, "iP_OverDrive");
|
|
|
|
break;
|
2005-10-05 21:58:34 +00:00
|
|
|
case 4:
|
2005-10-16 09:15:11 +00:00
|
|
|
strcpy(m_name, "iP55C");
|
2005-10-05 21:58:34 +00:00
|
|
|
break;
|
|
|
|
default:
|
|
|
|
sprintf(m_name, "iF%dM%d", family, model);
|
|
|
|
}
|
|
|
|
break;
|
|
|
|
|
|
|
|
case 6:
|
|
|
|
switch (model)
|
|
|
|
{
|
|
|
|
case 1:
|
|
|
|
strcpy(m_name, "iP-Pro");
|
|
|
|
break;
|
|
|
|
case 3:
|
|
|
|
case 5:
|
|
|
|
strcpy(m_name, "iP-II");
|
|
|
|
break;
|
|
|
|
case 6:
|
|
|
|
strcpy(m_name, "iCeleron");
|
|
|
|
break;
|
|
|
|
case 7:
|
|
|
|
case 8:
|
|
|
|
case 11:
|
|
|
|
strcpy(m_name, "iP-III");
|
|
|
|
break;
|
2005-10-15 21:43:46 +00:00
|
|
|
case 13:
|
2005-10-16 09:13:38 +00:00
|
|
|
strcpy(m_name, "iP-M"); // Pentium M "Centrino" (Pentium Mobile)
|
2005-10-15 21:43:46 +00:00
|
|
|
break;
|
2005-10-05 21:58:34 +00:00
|
|
|
default:
|
|
|
|
sprintf(m_name, "iF%dM%d", family, model);
|
|
|
|
}
|
|
|
|
break;
|
|
|
|
|
2005-10-18 12:34:58 +00:00
|
|
|
case 15:
|
|
|
|
switch (model)
|
|
|
|
{
|
2005-10-23 13:33:26 +00:00
|
|
|
/* case 2: // 15-2-7, 15-4-1
|
2005-10-18 12:34:58 +00:00
|
|
|
strcpy(m_name, "iXeon");
|
|
|
|
break;
|
2005-10-23 13:33:26 +00:00
|
|
|
*/
|
2005-10-18 12:34:58 +00:00
|
|
|
default:
|
2005-10-16 09:15:59 +00:00
|
|
|
strcpy(m_name, "iP-IV");
|
2005-10-05 21:58:34 +00:00
|
|
|
break;
|
2005-10-18 12:34:58 +00:00
|
|
|
}
|
|
|
|
break;
|
2005-10-05 21:58:34 +00:00
|
|
|
|
2005-10-18 12:34:58 +00:00
|
|
|
default:
|
2005-10-05 21:58:34 +00:00
|
|
|
sprintf(m_name, "iF%dM%d", family, model);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
else if (!strcmp("CyrixInstead", v_name))
|
|
|
|
sprintf(m_name, "CyrF%dM%d", family, model);
|
|
|
|
else if (!strcmp("CentaurHauls", v_name))
|
|
|
|
sprintf(m_name, "CenF%dM%d", family, model);
|
2005-10-15 21:43:46 +00:00
|
|
|
else {
|
2005-10-24 15:09:49 +00:00
|
|
|
if (model) {
|
2005-10-15 21:43:46 +00:00
|
|
|
sprintf(m_name, "CPU %3s-F%dM%d", v_name, family, model);
|
2005-10-24 15:09:49 +00:00
|
|
|
}else{
|
|
|
|
switch (family)
|
|
|
|
{
|
|
|
|
case 0:
|
|
|
|
sprintf(m_name, "CPU %s", v_name);
|
|
|
|
break;
|
|
|
|
case 3:
|
|
|
|
case 4:
|
|
|
|
sprintf(m_name, "%s-%u86", v_name, family);
|
|
|
|
break;
|
|
|
|
default:
|
|
|
|
sprintf(m_name, "CPU %3s-F%dM%d", v_name, family, model);
|
|
|
|
}
|
|
|
|
}
|
2005-10-15 21:43:46 +00:00
|
|
|
}
|
2005-10-05 21:58:34 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
// ------------------------------------------------------------------
|
|
|
|
|
2005-10-15 22:58:39 +00:00
|
|
|
char *gcpuid(char *_cpuname)
|
2005-10-05 21:58:34 +00:00
|
|
|
{
|
2005-10-15 21:43:46 +00:00
|
|
|
|
2005-10-15 22:58:39 +00:00
|
|
|
static struct scpuid_t{
|
|
|
|
dword cpu; /* x86, where x=cpu */
|
|
|
|
dword cpu_high; /* highest CPUID capability */
|
|
|
|
#if defined(_MSC_VER)
|
|
|
|
union
|
|
|
|
{
|
|
|
|
char vendor[_MAX_VNAME_LEN+1];
|
|
|
|
struct
|
|
|
|
{
|
|
|
|
dword dw0;
|
|
|
|
dword dw1;
|
|
|
|
dword dw2;
|
|
|
|
} dw;
|
|
|
|
};
|
|
|
|
#else
|
|
|
|
char vendor[3*sizeof(dword)+1]; /* CPU vendor string 12 bytes, 13th byte is zero */
|
|
|
|
#endif
|
2005-10-22 14:44:25 +00:00
|
|
|
uint8_t family; /* CPU stepping number, 4 bits */
|
|
|
|
uint8_t model; /* CPU model number, 4 bits */
|
|
|
|
uint8_t stepping; /* CPU stepping value, 4 bits */
|
2005-10-15 21:43:46 +00:00
|
|
|
// unsigned cpu_id; /* stepping ID, 12 bits: 0x0FMS */
|
|
|
|
// unsigned features; /* CPU features info */
|
2005-10-16 09:52:01 +00:00
|
|
|
}scpuid; /* ISO C: static variabled is initialised with 0 */
|
2005-10-15 21:43:46 +00:00
|
|
|
|
|
|
|
#if defined(_MSC_VER)
|
2005-10-16 09:52:01 +00:00
|
|
|
#undef and // and is defined as &&, this is conflicted with assembler instruction "and"
|
2005-10-05 21:58:34 +00:00
|
|
|
|
|
|
|
__asm
|
|
|
|
{
|
|
|
|
// get the vendor string
|
|
|
|
xor eax, eax
|
|
|
|
cpuid
|
2005-10-15 22:58:39 +00:00
|
|
|
// mov scpuid.cpu_high, eax
|
|
|
|
mov scpuid.dw.dw0, ebx
|
|
|
|
mov scpuid.dw.dw1, edx
|
|
|
|
mov scpuid.dw.dw2, ecx
|
2005-10-05 21:58:34 +00:00
|
|
|
|
2005-10-15 22:58:39 +00:00
|
|
|
// get the CPU family, model, stepping, features bits
|
2005-10-05 21:58:34 +00:00
|
|
|
mov eax, 1
|
|
|
|
cpuid
|
2005-10-15 22:58:39 +00:00
|
|
|
// mov scpuid.features, edx
|
|
|
|
mov bx, ax
|
|
|
|
and ax, 0x0F0F // 3855 // 0x0F0F
|
|
|
|
mov scpuid.stepping, al
|
|
|
|
mov scpuid.family, ah
|
|
|
|
shr bl, 4
|
|
|
|
mov scpuid.model,bl
|
2005-10-05 21:58:34 +00:00
|
|
|
}
|
2005-10-15 21:43:46 +00:00
|
|
|
|
2005-10-15 22:58:39 +00:00
|
|
|
#define and &&
|
2005-10-15 21:43:46 +00:00
|
|
|
|
2005-10-15 22:58:39 +00:00
|
|
|
cpuname( scpuid.family, scpuid.model, scpuid.vendor, _cpuname);
|
2005-10-15 21:43:46 +00:00
|
|
|
|
2005-10-22 07:09:54 +00:00
|
|
|
#elif defined(__GNUC__) && defined(__i386__)
|
2005-10-13 19:28:32 +00:00
|
|
|
|
2005-10-15 21:43:46 +00:00
|
|
|
asm( /* assembler code is based on code of FreeBSD kernel sources */
|
|
|
|
/* uses AT&T assembler notation */
|
|
|
|
|
|
|
|
/* Step 1. Try to toggle alignment check flag; does not exist on 386. */
|
|
|
|
"pushfl\n\t"
|
2005-10-23 04:39:25 +00:00
|
|
|
"popl %%eax\n\t"
|
|
|
|
"movl %%eax,%%ecx\n\t"
|
|
|
|
"orl $0x00040000,%%eax\n\t" /* sets a alignment check flag */
|
|
|
|
"pushl %%eax\n\t"
|
2005-10-15 21:43:46 +00:00
|
|
|
"popfl\n\t"
|
|
|
|
"pushfl\n\t"
|
2005-10-23 04:39:25 +00:00
|
|
|
"popl %%eax\n\t"
|
|
|
|
"xorl %%ecx,%%eax\n\t"
|
|
|
|
"andl $0x00040000,%%eax\n\t" /* test alignment check flag */
|
|
|
|
"pushl %%ecx\n\t"
|
2005-10-15 21:43:46 +00:00
|
|
|
"popfl\n\t"
|
|
|
|
|
2005-10-23 04:39:25 +00:00
|
|
|
"testl %%eax,%%eax\n\t" /* alignment check flag is set? */
|
|
|
|
"jnz try486\n\t"
|
2005-10-15 21:43:46 +00:00
|
|
|
|
|
|
|
/* NexGen CPU does not have aligment check flag. */
|
|
|
|
"pushfl\n\t"
|
2005-10-23 04:39:25 +00:00
|
|
|
"movl $0x5555, %%eax\n\t"
|
|
|
|
"xorl %%edx, %%edx\n\t"
|
|
|
|
"movl $2, %%ecx\n\t"
|
2005-10-15 21:43:46 +00:00
|
|
|
"clc\n\t"
|
2005-10-23 04:39:25 +00:00
|
|
|
"divl %%ecx\n\t"
|
|
|
|
"jz nexgen\n\t"
|
2005-10-15 21:43:46 +00:00
|
|
|
"popfl\n\t"
|
2005-10-23 04:39:25 +00:00
|
|
|
"movl $3,%0\n\t" /* CPU 386 */
|
|
|
|
"jmp end\n"
|
2005-10-15 21:43:46 +00:00
|
|
|
|
|
|
|
"nexgen:"
|
|
|
|
"popfl\n\t"
|
2005-10-23 04:39:25 +00:00
|
|
|
"movl $5,%0\n\t" /* CPU NX586 */
|
|
|
|
"movl $0x4778654e,%1\n\t" /* store vendor string */
|
|
|
|
"movl $0x72446e65,%1+4\n\t" /* "NexGenDriven" */
|
|
|
|
"movl $0x6e657669,%1+8\n\t"
|
|
|
|
// "movl $0,%1+12\n\t" // vendor is zero-filled already
|
|
|
|
"jmp end\n"
|
2005-10-15 21:43:46 +00:00
|
|
|
|
|
|
|
/* Step2. Try to toggle identification flag; does not exist on early 486s.*/
|
|
|
|
"try486:"
|
|
|
|
"pushfl\n\t"
|
2005-10-23 04:39:25 +00:00
|
|
|
"popl %%eax\n\t"
|
|
|
|
"movl %%eax,%%ecx\n\t"
|
|
|
|
"xorl $0x00200000,%%eax\n\t" /* sets a identification bit */
|
|
|
|
"pushl %%eax\n\t"
|
2005-10-15 21:43:46 +00:00
|
|
|
"popfl\n\t"
|
|
|
|
"pushfl\n\t"
|
2005-10-23 04:39:25 +00:00
|
|
|
"popl %%eax\n\t"
|
|
|
|
"xorl %%ecx,%%eax\n\t"
|
|
|
|
"andl $0x00200000,%%eax\n\t" /* test identification bit */
|
|
|
|
"pushl %%ecx\n\t"
|
2005-10-15 21:43:46 +00:00
|
|
|
"popfl\n\t"
|
|
|
|
|
2005-10-23 04:39:25 +00:00
|
|
|
"testl %%eax,%%eax\n\t" /* if identification flag is set then cpuid CPU's command may be used */
|
|
|
|
"jnz trycpuid\n\t"
|
|
|
|
"movl $4,%0\n\t" /* CPU 486 */
|
2005-10-15 21:43:46 +00:00
|
|
|
|
|
|
|
/*
|
|
|
|
* Check Cyrix CPU
|
|
|
|
* Cyrix CPUs do not change the undefined flags following
|
|
|
|
* execution of the divide instruction which divides 5 by 2.
|
|
|
|
*
|
|
|
|
* Note: CPUID is enabled on M2, so it passes another way.
|
|
|
|
*/
|
|
|
|
"pushfl\n\t"
|
2005-10-23 04:39:25 +00:00
|
|
|
"movl $0x5555, %%eax\n\t"
|
|
|
|
"xorl %%edx, %%edx\n\t"
|
|
|
|
"movl $2, %%ecx\n\t"
|
2005-10-15 21:43:46 +00:00
|
|
|
"clc\n\t"
|
2005-10-23 04:39:25 +00:00
|
|
|
"divl %%ecx\n\t"
|
|
|
|
"jnc trycyrix\n\t"
|
2005-10-15 21:43:46 +00:00
|
|
|
"popfl\n\t"
|
2005-10-23 04:39:25 +00:00
|
|
|
"jmp end\n" /* You may use Intel CPU */
|
2005-10-15 21:43:46 +00:00
|
|
|
|
|
|
|
"trycyrix:"
|
|
|
|
"popfl\n\t"
|
|
|
|
/*
|
|
|
|
* IBM Bluelighting CPU also doesn't change the undefined flags.
|
|
|
|
* Because IBM doesn't disclose the information for Bluelighting
|
|
|
|
* CPU, we couldn't distinguish it from Cyrix's (including IBM
|
|
|
|
* brand of Cyrix CPUs).
|
|
|
|
*/
|
2005-10-23 04:39:25 +00:00
|
|
|
"movl $0x69727943,%1\n\t" /* store vendor string */
|
|
|
|
"movl $0x736e4978,%1+4\n\t" /* "CyrixInstead" */
|
|
|
|
"movl $0x64616574,%1+8\n\t"
|
|
|
|
"jmp end\n"
|
2005-10-15 21:43:46 +00:00
|
|
|
|
|
|
|
/* Step 3. Use the `cpuid' instruction. */
|
|
|
|
"trycpuid:"
|
2005-10-23 04:39:25 +00:00
|
|
|
"xorl %%eax,%%eax\n\t"
|
|
|
|
".byte 0x0f,0xa2\n\t" /* cpuid 0 */
|
|
|
|
"movl %%eax,%2\n\t" /* "cpuid 1" capability */
|
|
|
|
"movl %%ebx,%1\n\t" /* store vendor string */
|
|
|
|
"movl %%edx,%1+4\n\t"
|
|
|
|
"movl %%ecx,%1+8\n\t"
|
|
|
|
// "movb $0,%1+12\n\t" // vendor is zero-filled already
|
2005-10-15 21:43:46 +00:00
|
|
|
|
|
|
|
"andl %%eax,%%eax\n\t" /* "cpuid 1" is allowed? (eax==1?) */
|
|
|
|
"jz i586\n\t" /* no, skip "cpuid 1" */
|
|
|
|
|
2005-10-23 04:39:25 +00:00
|
|
|
"movl $1,%%eax\n\t"
|
|
|
|
".byte 0x0f,0xa2\n\t" // cpuid 1
|
|
|
|
// "movl %%eax,%6\n\t" // store cpu_id
|
|
|
|
// "movl %%edx,%7\n\t" // store cpu_feature
|
2005-10-15 21:43:46 +00:00
|
|
|
|
2005-10-23 04:39:25 +00:00
|
|
|
"movb %%al,%%bl\n\t"
|
|
|
|
"shrb $4,%%bl\n\t" // extract CPU model
|
|
|
|
"movb %%bl,%4\n\t" // store model
|
2005-10-15 21:43:46 +00:00
|
|
|
|
2005-10-23 04:39:25 +00:00
|
|
|
"andl $0x0F0F,%%eax\n\t" // extract CPU family type and stepping
|
|
|
|
"movb %%al,%5\n\t" // store stepping
|
|
|
|
"movb %%ah,%3\n\t" // store family
|
|
|
|
"cmpb $5,%%ah\n\t"
|
|
|
|
"jae i586\n\t"
|
2005-10-15 21:43:46 +00:00
|
|
|
|
|
|
|
/* less than Pentium; must be 486 */
|
2005-10-23 04:39:25 +00:00
|
|
|
"movl $4,%0\n\t" /* CPU 486 */
|
|
|
|
"jmp end\n"
|
2005-10-15 21:43:46 +00:00
|
|
|
"i586:\n\t" /* Pentium and greater. Store family type into CPU type var */
|
2005-10-23 04:39:25 +00:00
|
|
|
"movb %%ah,%0\n"
|
2005-10-15 21:43:46 +00:00
|
|
|
"end:\n\t"
|
|
|
|
"nop\n\t"
|
|
|
|
|
|
|
|
: /* output */
|
|
|
|
"=m" (scpuid.cpu) /* %0 */
|
|
|
|
,"=m" (scpuid.vendor) /* %1 */
|
|
|
|
,"=m" (scpuid.cpu_high) /* %2 */
|
|
|
|
,"=m" (scpuid.family) /* %3 */
|
|
|
|
,"=m" (scpuid.model) /* %4 */
|
|
|
|
,"=m" (scpuid.stepping) /* %5 */
|
|
|
|
// ,"=m" (scpuid.cpu_id) /* %6 */
|
|
|
|
// ,"=m" (scpuid.features) /* %7 */
|
|
|
|
: /* no input */
|
|
|
|
: /* modified registers */
|
|
|
|
"eax", "ebx", "ecx", "edx", "esp"
|
|
|
|
);
|
|
|
|
|
2005-10-16 09:52:01 +00:00
|
|
|
cpuname(scpuid.family?scpuid.family:scpuid.cpu, scpuid.model, scpuid.vendor, _cpuname);
|
2005-10-15 21:43:46 +00:00
|
|
|
|
2005-10-05 21:58:34 +00:00
|
|
|
#else
|
2005-10-16 09:12:25 +00:00
|
|
|
#if defined(MSDOS) || defined(DOS) || defined(__MSDOS__) || defined(_DOS) \
|
|
|
|
|| defined(WIN32) || defined(__WIN32__) || defined(_WIN) || defined(WINNT) \
|
|
|
|
|| defined(__OS2__) || defined(OS2)
|
|
|
|
cpuname(0, 0, "x86", _cpuname);
|
|
|
|
#else
|
|
|
|
cpuname(0, 0, "UNKNOWN", _cpuname);
|
|
|
|
#endif
|
2005-10-05 21:58:34 +00:00
|
|
|
#endif
|
|
|
|
|
2005-10-15 22:58:39 +00:00
|
|
|
return _cpuname;
|
2005-10-05 21:58:34 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
|
2000-02-25 10:15:17 +00:00
|
|
|
// ------------------------------------------------------------------
|
|
|
|
|
|
|
|
char* ggetosstring(void) {
|
|
|
|
|
|
|
|
static char osstring[256] = "";
|
|
|
|
|
|
|
|
if(*osstring == NUL) {
|
|
|
|
|
2005-10-16 09:12:25 +00:00
|
|
|
char processor[_MAX_MNAME_LEN] = "";
|
|
|
|
|
2001-04-15 19:24:44 +00:00
|
|
|
#if defined(__UNIX__) || defined(__DJGPP__) || defined(__EMX__)
|
2000-02-25 10:15:17 +00:00
|
|
|
|
|
|
|
struct utsname info;
|
|
|
|
|
2003-04-03 14:20:58 +00:00
|
|
|
if(uname(&info) != -1) {
|
2005-10-16 09:12:25 +00:00
|
|
|
if(strcmp(info.machine,"i386"))
|
|
|
|
strcpy(processor,info.machine);
|
|
|
|
else
|
|
|
|
gcpuid(processor);
|
|
|
|
|
2000-02-25 10:15:17 +00:00
|
|
|
#if defined(__EMX__)
|
2005-10-16 09:12:25 +00:00
|
|
|
sprintf(osstring, "%s %s.%s %s", info.sysname, info.version, info.release, processor);
|
2000-02-25 10:15:17 +00:00
|
|
|
#elif defined(__DJGPP__)
|
2005-10-16 09:12:25 +00:00
|
|
|
sprintf(osstring, "%s %s.%s %s", info.sysname, info.release, info.version, processor);
|
2003-03-29 21:51:19 +00:00
|
|
|
#elif defined(__BEOS__)
|
2003-04-03 14:20:58 +00:00
|
|
|
BAppFileInfo appFileInfo;
|
|
|
|
version_info sys_ver = {0};
|
2005-10-09 21:09:37 +00:00
|
|
|
BFile file("/boot/beos/system/lib/libbe.so", B_READ_ONLY);
|
2003-04-03 14:20:58 +00:00
|
|
|
appFileInfo.SetTo(&file);
|
|
|
|
appFileInfo.GetVersionInfo(&sys_ver, B_APP_VERSION_KIND);
|
2005-10-16 09:12:25 +00:00
|
|
|
sprintf(osstring, "%s %s %s", info.sysname, sys_ver.short_info, processor);
|
2003-04-03 14:20:58 +00:00
|
|
|
#else
|
2005-10-16 09:12:25 +00:00
|
|
|
sprintf(osstring, "%s %s %s", info.sysname, info.release, processor);
|
2000-02-25 10:15:17 +00:00
|
|
|
#endif
|
2003-04-03 14:20:58 +00:00
|
|
|
}
|
2000-02-25 10:15:17 +00:00
|
|
|
else
|
|
|
|
strcpy(osstring, "unknown");
|
|
|
|
|
|
|
|
#elif defined (__WIN32__)
|
|
|
|
|
|
|
|
OSVERSIONINFO info;
|
|
|
|
SYSTEM_INFO si;
|
|
|
|
char ostype[16];
|
|
|
|
|
|
|
|
GetSystemInfo(&si);
|
|
|
|
info.dwOSVersionInfoSize = sizeof(OSVERSIONINFO);
|
|
|
|
if(GetVersionEx(&info)) {
|
|
|
|
switch(info.dwPlatformId) {
|
|
|
|
case VER_PLATFORM_WIN32_NT:
|
|
|
|
strcpy(ostype, "WinNT");
|
|
|
|
break;
|
|
|
|
case VER_PLATFORM_WIN32_WINDOWS:
|
|
|
|
strcpy(ostype, "Win9x");
|
|
|
|
break;
|
|
|
|
default:
|
|
|
|
strcpy(ostype, "Win32s");
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
switch(*((WORD*)&si)) {
|
|
|
|
case PROCESSOR_ARCHITECTURE_INTEL:
|
|
|
|
{
|
2005-10-05 21:58:34 +00:00
|
|
|
if (HaveCPUID())
|
|
|
|
{
|
2005-10-15 22:58:39 +00:00
|
|
|
gcpuid(processor);
|
2005-10-05 21:58:34 +00:00
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
int cpu;
|
2005-10-11 20:07:52 +00:00
|
|
|
if( (info.dwPlatformId == VER_PLATFORM_WIN32_NT &&
|
|
|
|
info.dwMajorVersion > 3)
|
|
|
|
#ifdef VER_PLATFORM_WIN32_CE
|
|
|
|
|| info.dwPlatformId == VER_PLATFORM_WIN32_CE
|
|
|
|
#endif
|
|
|
|
)
|
2005-10-05 21:58:34 +00:00
|
|
|
cpu = si.wProcessorLevel;
|
|
|
|
else {
|
2005-10-11 20:07:52 +00:00
|
|
|
switch(si.dwProcessorType) { /* Windows NT 3.5 and earlier */
|
2000-02-25 10:15:17 +00:00
|
|
|
case PROCESSOR_INTEL_386:
|
|
|
|
cpu = 3;
|
|
|
|
break;
|
|
|
|
case PROCESSOR_INTEL_486:
|
|
|
|
cpu = 4;
|
|
|
|
break;
|
2005-10-07 12:37:19 +00:00
|
|
|
case PROCESSOR_INTEL_PENTIUM:
|
2000-02-25 10:15:17 +00:00
|
|
|
cpu = 5;
|
2005-10-11 20:07:52 +00:00
|
|
|
break;
|
|
|
|
case 6: /* Pentium Pro or Pentim II */
|
|
|
|
cpu = 6;
|
2005-10-09 21:09:37 +00:00
|
|
|
case 15: /* Pentium 4 */
|
2005-10-11 20:07:52 +00:00
|
|
|
cpu = 8;
|
2005-10-07 12:37:19 +00:00
|
|
|
default:
|
2005-10-11 20:07:52 +00:00
|
|
|
cpu = 7;
|
2000-02-25 10:15:17 +00:00
|
|
|
break;
|
2005-10-05 21:58:34 +00:00
|
|
|
}
|
2000-02-25 10:15:17 +00:00
|
|
|
}
|
2005-10-07 12:37:19 +00:00
|
|
|
switch(cpu) {
|
|
|
|
case 15:
|
2005-10-11 20:07:52 +00:00
|
|
|
sprintf(processor, "i886");
|
2005-10-07 12:37:19 +00:00
|
|
|
break;
|
|
|
|
default:
|
2005-10-11 20:07:52 +00:00
|
|
|
if( cpu>9 ) cpu= cpu%10+int(cpu/10)+2;
|
2005-10-07 12:37:19 +00:00
|
|
|
sprintf(processor, "i%d86", cpu);
|
|
|
|
}
|
2000-02-25 10:15:17 +00:00
|
|
|
}
|
|
|
|
}
|
|
|
|
break;
|
2005-10-09 21:09:37 +00:00
|
|
|
case PROCESSOR_ARCHITECTURE_IA64:
|
|
|
|
sprintf(processor, "IA64-%d", si.wProcessorLevel);
|
|
|
|
break;
|
2005-10-11 20:07:52 +00:00
|
|
|
#ifdef PROCESSOR_ARCHITECTURE_AMD64
|
|
|
|
case PROCESSOR_ARCHITECTURE_AMD64:
|
|
|
|
sprintf(processor, "AMD64-%d", si.wProcessorLevel);
|
|
|
|
break;
|
|
|
|
#endif
|
2000-02-25 10:15:17 +00:00
|
|
|
case PROCESSOR_ARCHITECTURE_MIPS:
|
2005-10-11 20:07:52 +00:00
|
|
|
/* si.wProcessorLevel is of the form 00xx, where xx is an 8-bit
|
|
|
|
implementation number (bits 8-15 of the PRId register). */
|
|
|
|
sprintf(processor, "MIPS R%u000", si.wProcessorLevel);
|
2000-02-25 10:15:17 +00:00
|
|
|
break;
|
|
|
|
case PROCESSOR_ARCHITECTURE_ALPHA:
|
2005-10-11 20:07:52 +00:00
|
|
|
/* si.wProcessorLevel is of the form xxxx, where xxxx is a 16-bit
|
|
|
|
processor version number (the low-order 16 bits of a version
|
|
|
|
number from the firmware). */
|
|
|
|
sprintf(processor, "Alpha%d", si.wProcessorLevel);
|
|
|
|
break;
|
|
|
|
case PROCESSOR_ARCHITECTURE_ALPHA64:
|
|
|
|
sprintf(processor, "Alpha%d", si.wProcessorLevel);
|
2000-02-25 10:15:17 +00:00
|
|
|
break;
|
|
|
|
case PROCESSOR_ARCHITECTURE_PPC:
|
2005-10-11 20:07:52 +00:00
|
|
|
/* si.wProcessorLevel is of the form xxxx, where xxxx is a 16-bit
|
|
|
|
processor version number (the high-order 16 bits of the Processor
|
|
|
|
Version Register). */
|
2000-02-25 10:15:17 +00:00
|
|
|
switch(si.wProcessorLevel) {
|
|
|
|
case 1:
|
2005-10-11 20:07:52 +00:00
|
|
|
strcpy(processor, "PPC601");
|
2000-02-25 10:15:17 +00:00
|
|
|
break;
|
|
|
|
case 3:
|
2005-10-11 20:07:52 +00:00
|
|
|
strcpy(processor, "PPC603");
|
2000-02-25 10:15:17 +00:00
|
|
|
break;
|
|
|
|
case 4:
|
2005-10-11 20:07:52 +00:00
|
|
|
strcpy(processor, "PPC604");
|
2000-02-25 10:15:17 +00:00
|
|
|
break;
|
|
|
|
case 6:
|
2005-10-11 20:07:52 +00:00
|
|
|
strcpy(processor, "PPC603+");
|
2000-02-25 10:15:17 +00:00
|
|
|
break;
|
|
|
|
case 9:
|
2005-10-11 20:07:52 +00:00
|
|
|
strcpy(processor, "PPC604+");
|
2000-02-25 10:15:17 +00:00
|
|
|
break;
|
|
|
|
case 20:
|
2005-10-11 20:07:52 +00:00
|
|
|
strcpy(processor, "PPC620");
|
2000-02-25 10:15:17 +00:00
|
|
|
break;
|
|
|
|
default:
|
2005-10-11 20:07:52 +00:00
|
|
|
sprintf(processor, "PPC l%u", si.wProcessorLevel);
|
2000-02-25 10:15:17 +00:00
|
|
|
break;
|
|
|
|
}
|
|
|
|
break;
|
2005-10-11 20:07:52 +00:00
|
|
|
#ifdef PROCESSOR_ARCHITECTURE_SHX
|
|
|
|
case PROCESSOR_ARCHITECTURE_SHX:
|
|
|
|
sprintf(processor, "SH-%d", si.wProcessorLevel);
|
|
|
|
break;
|
|
|
|
#endif
|
|
|
|
#ifdef PROCESSOR_ARCHITECTURE_ARM
|
|
|
|
case PROCESSOR_ARCHITECTURE_ARM:
|
|
|
|
sprintf(processor, "ARM-%d", si.wProcessorLevel);
|
|
|
|
break;
|
|
|
|
#endif
|
2000-02-25 10:15:17 +00:00
|
|
|
default:
|
2005-10-11 20:07:52 +00:00
|
|
|
strcpy(processor, "CPU-unknown");
|
2000-02-25 10:15:17 +00:00
|
|
|
break;
|
|
|
|
}
|
|
|
|
if(info.dwPlatformId == VER_PLATFORM_WIN32_WINDOWS)
|
|
|
|
info.dwBuildNumber = info.dwBuildNumber & 0x0000ffffl;
|
|
|
|
if(info.dwPlatformId == VER_PLATFORM_WIN32_NT and *info.szCSDVersion != NUL) {
|
|
|
|
char _tmp[128];
|
|
|
|
strcpy(_tmp, info.szCSDVersion);
|
|
|
|
strchg(_tmp, ' ', '_');
|
2005-10-12 05:15:00 +00:00
|
|
|
strisrep(_tmp, "Service_Pack_", "SP");
|
2000-02-25 10:15:17 +00:00
|
|
|
sprintf(osstring, "%s %ld.%ld.%ld-%s %s", ostype, info.dwMajorVersion, info.dwMinorVersion, info.dwBuildNumber, _tmp, processor);
|
|
|
|
}
|
|
|
|
else
|
|
|
|
sprintf(osstring, "%s %ld.%ld.%ld %s", ostype,info.dwMajorVersion, info.dwMinorVersion, info.dwBuildNumber, processor);
|
|
|
|
}
|
|
|
|
else
|
2005-10-11 20:07:52 +00:00
|
|
|
strcpy(osstring, "Win32-unknown");
|
2000-02-25 10:15:17 +00:00
|
|
|
|
|
|
|
#else
|
|
|
|
|
2005-10-16 09:12:25 +00:00
|
|
|
#if defined(__MSDOS__)
|
|
|
|
const char* osname = "DOS";
|
|
|
|
#elif defined(__OS2__)
|
|
|
|
const char* osname = "OS/2";
|
|
|
|
#endif
|
2000-02-25 10:15:17 +00:00
|
|
|
|
2005-10-16 09:12:25 +00:00
|
|
|
sprintf(osstring, "%s %d.%02d %s", osname, _osmajor, _osminor, gcpuid(processor));
|
2000-02-25 10:15:17 +00:00
|
|
|
|
|
|
|
#endif
|
|
|
|
}
|
|
|
|
|
|
|
|
return osstring;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
// -------------------------------------------------------------------
|