4 * Copyright 1995,1997 Morten Welinder
5 * Copyright 1997-1998 Marcus Meissner
7 * This library is free software; you can redistribute it and/or
8 * modify it under the terms of the GNU Lesser General Public
9 * License as published by the Free Software Foundation; either
10 * version 2.1 of the License, or (at your option) any later version.
12 * This library is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 * Lesser General Public License for more details.
17 * You should have received a copy of the GNU Lesser General Public
18 * License along with this library; if not, write to the Free Software
19 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
23 #include "wine/port.h"
28 #ifdef HAVE_SYS_TIME_H
29 # include <sys/time.h>
33 #define NONAMELESSUNION
34 #define NONAMELESSSTRUCT
36 #define WIN32_NO_STATUS
42 #include "wine/unicode.h"
43 #include "wine/debug.h"
46 WINE_DEFAULT_DEBUG_CHANNEL(reg
);
48 #define SHARED_DATA ((KSHARED_USER_DATA*)0x7ffe0000)
50 /****************************************************************************
51 * QueryPerformanceCounter (KERNEL32.@)
53 * Get the current value of the performance counter.
56 * counter [O] Destination for the current counter reading
59 * Success: TRUE. counter contains the current reading
63 * See QueryPerformanceFrequency.
65 BOOL WINAPI
QueryPerformanceCounter(PLARGE_INTEGER counter
)
67 NtQueryPerformanceCounter( counter
, NULL
);
72 /****************************************************************************
73 * QueryPerformanceFrequency (KERNEL32.@)
75 * Get the resolution of the performance counter.
78 * frequency [O] Destination for the counter resolution
81 * Success. TRUE. Frequency contains the resolution of the counter.
85 * See QueryPerformanceCounter.
87 BOOL WINAPI
QueryPerformanceFrequency(PLARGE_INTEGER frequency
)
89 LARGE_INTEGER counter
;
90 NtQueryPerformanceCounter( &counter
, frequency
);
95 /***********************************************************************
96 * GetSystemInfo [KERNEL32.@]
98 * Get information about the system.
104 * On the first call it creates cached values, so it doesn't have to determine
105 * them repeatedly. On Linux, the "/proc/cpuinfo" special file is used.
107 * It also creates a cached flag array for IsProcessorFeaturePresent().
109 VOID WINAPI
GetSystemInfo(
110 LPSYSTEM_INFO si
/* [out] Destination for system information, may not be NULL */)
113 SYSTEM_BASIC_INFORMATION sbi
;
114 SYSTEM_CPU_INFORMATION sci
;
116 TRACE("si=0x%p\n", si
);
118 if ((nts
= NtQuerySystemInformation( SystemBasicInformation
, &sbi
, sizeof(sbi
), NULL
)) != STATUS_SUCCESS
||
119 (nts
= NtQuerySystemInformation( SystemCpuInformation
, &sci
, sizeof(sci
), NULL
)) != STATUS_SUCCESS
)
121 SetLastError(RtlNtStatusToDosError(nts
));
125 si
->u
.s
.wProcessorArchitecture
= sci
.Architecture
;
126 si
->u
.s
.wReserved
= 0;
127 si
->dwPageSize
= sbi
.PageSize
;
128 si
->lpMinimumApplicationAddress
= sbi
.LowestUserAddress
;
129 si
->lpMaximumApplicationAddress
= sbi
.HighestUserAddress
;
130 si
->dwActiveProcessorMask
= sbi
.ActiveProcessorsAffinityMask
;
131 si
->dwNumberOfProcessors
= sbi
.NumberOfProcessors
;
133 switch (sci
.Architecture
)
135 case PROCESSOR_ARCHITECTURE_INTEL
:
138 case 3: si
->dwProcessorType
= PROCESSOR_INTEL_386
; break;
139 case 4: si
->dwProcessorType
= PROCESSOR_INTEL_486
; break;
141 case 6: si
->dwProcessorType
= PROCESSOR_INTEL_PENTIUM
; break;
142 default: si
->dwProcessorType
= PROCESSOR_INTEL_PENTIUM
; break;
145 case PROCESSOR_ARCHITECTURE_PPC
:
148 case 1: si
->dwProcessorType
= PROCESSOR_PPC_601
; break;
150 case 6: si
->dwProcessorType
= PROCESSOR_PPC_603
; break;
151 case 4: si
->dwProcessorType
= PROCESSOR_PPC_604
; break;
152 case 9: si
->dwProcessorType
= PROCESSOR_PPC_604
; break;
153 case 20: si
->dwProcessorType
= PROCESSOR_PPC_620
; break;
154 default: si
->dwProcessorType
= 0;
157 case PROCESSOR_ARCHITECTURE_AMD64
:
158 si
->dwProcessorType
= PROCESSOR_AMD_X8664
;
160 default: FIXME("Unknown processor architecture %x\n", sci
.Architecture
);
162 si
->dwAllocationGranularity
= sbi
.AllocationGranularity
;
163 si
->wProcessorLevel
= sci
.Level
;
164 si
->wProcessorRevision
= sci
.Revision
;
168 /***********************************************************************
169 * GetNativeSystemInfo [KERNEL32.@]
171 VOID WINAPI
GetNativeSystemInfo(
172 LPSYSTEM_INFO si
/* [out] Destination for system information, may not be NULL */)
178 IsWow64Process(GetCurrentProcess(), &is_wow64
);
181 if (si
->u
.s
.wProcessorArchitecture
== PROCESSOR_ARCHITECTURE_INTEL
)
183 si
->u
.s
.wProcessorArchitecture
= PROCESSOR_ARCHITECTURE_AMD64
;
184 si
->dwProcessorType
= PROCESSOR_AMD_X8664
;
188 FIXME("Add the proper information for %d in wow64 mode\n",
189 si
->u
.s
.wProcessorArchitecture
);
194 /***********************************************************************
195 * IsProcessorFeaturePresent [KERNEL32.@]
197 * Determine if the cpu supports a given feature.
200 * TRUE, If the processor supports feature,
203 BOOL WINAPI
IsProcessorFeaturePresent (
204 DWORD feature
/* [in] Feature number, (PF_ constants from "winnt.h") */)
207 return SHARED_DATA
->ProcessorFeatures
[feature
];
212 /***********************************************************************
213 * K32GetPerformanceInfo (KERNEL32.@)
215 BOOL WINAPI
K32GetPerformanceInfo(PPERFORMANCE_INFORMATION info
, DWORD size
)
219 TRACE( "(%p, %d)\n", info
, size
);
221 status
= NtQuerySystemInformation( SystemPerformanceInformation
, info
, size
, NULL
);
225 SetLastError( RtlNtStatusToDosError( status
) );