?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
kernelbase: Let GetModuleBaseName succeed on 64bit modules in wow64.
[wine.git] / dlls / wow64 / system.c
blobc5c1563afc2978194f5ba1b59dcbbb9549665894
1 /*
2 * WoW64 system functions
3 *
4 * Copyright 2021 Alexandre Julliard
5 *
6 * This library is free software; you can redistribute it and/or
7 * modify it under the terms of the GNU Lesser General Public
8 * License as published by the Free Software Foundation; either
9 * version 2.1 of the License, or (at your option) any later version.
10 *
11 * This library is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 * Lesser General Public License for more details.
15 *
16 * You should have received a copy of the GNU Lesser General Public
17 * License along with this library; if not, write to the Free Software
18 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
19 */
20
21 #include <stdarg.h>
22
23 #include "ntstatus.h"
24 #define WIN32_NO_STATUS
25 #include "windef.h"
26 #include "winbase.h"
27 #include "winnt.h"
28 #include "winternl.h"
29 #include "wow64_private.h"
30 #include "wine/debug.h"
31
32 WINE_DEFAULT_DEBUG_CHANNEL(wow);
33
34 static void put_system_basic_information( SYSTEM_BASIC_INFORMATION32 *info32,
35 const SYSTEM_BASIC_INFORMATION *info )
36 {
37 info32->unknown = info->unknown;
38 info32->KeMaximumIncrement = info->KeMaximumIncrement;
39 info32->PageSize = info->PageSize;
40 info32->MmNumberOfPhysicalPages = info->MmNumberOfPhysicalPages;
41 info32->MmLowestPhysicalPage = info->MmLowestPhysicalPage;
42 info32->MmHighestPhysicalPage = info->MmHighestPhysicalPage;
43 info32->AllocationGranularity = info->AllocationGranularity;
44 info32->LowestUserAddress = PtrToUlong( info->LowestUserAddress );
45 info32->HighestUserAddress = PtrToUlong( info->HighestUserAddress );
46 info32->ActiveProcessorsAffinityMask = info->ActiveProcessorsAffinityMask;
47 info32->NumberOfProcessors = info->NumberOfProcessors;
48 }
49
50
51 static void put_group_affinity( GROUP_AFFINITY32 *info32, const GROUP_AFFINITY *info )
52 {
53 info32->Mask = info->Mask;
54 info32->Group = info->Group;
55 }
56
57
58 static void put_logical_proc_info_ex( SYSTEM_LOGICAL_PROCESSOR_INFORMATION_EX32 *info32,
59 const SYSTEM_LOGICAL_PROCESSOR_INFORMATION_EX *info )
60 {
61 ULONG i;
62
63 info32->Relationship = info->Relationship;
64 info32->Size = offsetof( SYSTEM_LOGICAL_PROCESSOR_INFORMATION_EX32, Processor );
65 switch (info->Relationship)
66 {
67 case RelationProcessorCore:
68 case RelationProcessorPackage:
69 info32->Processor.Flags = info->Processor.Flags;
70 info32->Processor.EfficiencyClass = info->Processor.EfficiencyClass;
71 info32->Processor.GroupCount = info->Processor.GroupCount;
72 for (i = 0; i < info->Processor.GroupCount; i++)
73 put_group_affinity( &info32->Processor.GroupMask[i], &info->Processor.GroupMask[i] );
74 info32->Size += offsetof( PROCESSOR_RELATIONSHIP32, GroupMask[i] );
75 break;
76 case RelationNumaNode:
77 info32->NumaNode.NodeNumber = info->NumaNode.NodeNumber;
78 put_group_affinity( &info32->NumaNode.GroupMask, &info->NumaNode.GroupMask );
79 info32->Size += sizeof(info32->NumaNode);
80 break;
81 case RelationCache:
82 info32->Cache.Level = info->Cache.Level;
83 info32->Cache.Associativity = info->Cache.Associativity;
84 info32->Cache.LineSize = info->Cache.LineSize;
85 info32->Cache.CacheSize = info->Cache.CacheSize;
86 info32->Cache.Type = info->Cache.Type;
87 put_group_affinity( &info32->Cache.GroupMask, &info->Cache.GroupMask );
88 info32->Size += sizeof(info32->Cache);
89 break;
90 case RelationGroup:
91 info32->Group.MaximumGroupCount = info->Group.MaximumGroupCount;
92 info32->Group.ActiveGroupCount = info->Group.ActiveGroupCount;
93 for (i = 0; i < info->Group.MaximumGroupCount; i++)
94 {
95 info32->Group.GroupInfo[i].MaximumProcessorCount = info->Group.GroupInfo[i].MaximumProcessorCount;
96 info32->Group.GroupInfo[i].ActiveProcessorCount = info->Group.GroupInfo[i].ActiveProcessorCount;
97 info32->Group.GroupInfo[i].ActiveProcessorMask = info->Group.GroupInfo[i].ActiveProcessorMask;
98 }
99 info32->Size += offsetof( GROUP_RELATIONSHIP32, GroupInfo[i] );
100 break;
101 default:
102 break;
103 }
104 }
105
106
107 static NTSTATUS put_system_proc_info( SYSTEM_PROCESS_INFORMATION32 *info32,
108 const SYSTEM_PROCESS_INFORMATION *info,
109 BOOL ext_info, ULONG len, ULONG *retlen )
110 {
111 ULONG inpos = 0, outpos = 0, i;
112 SYSTEM_PROCESS_INFORMATION32 *prev = NULL;
113 ULONG ti_size = (ext_info ? sizeof(SYSTEM_EXTENDED_THREAD_INFORMATION) : sizeof(SYSTEM_THREAD_INFORMATION));
114 ULONG ti_size32 = (ext_info ? sizeof(SYSTEM_EXTENDED_THREAD_INFORMATION32) : sizeof(SYSTEM_THREAD_INFORMATION32));
115
116 for (;;)
117 {
118 SYSTEM_EXTENDED_THREAD_INFORMATION *ti;
119 SYSTEM_EXTENDED_THREAD_INFORMATION32 *ti32;
120 SYSTEM_PROCESS_INFORMATION *proc = (SYSTEM_PROCESS_INFORMATION *)((char *)info + inpos);
121 SYSTEM_PROCESS_INFORMATION32 *proc32 = (SYSTEM_PROCESS_INFORMATION32 *)((char *)info32 + outpos);
122 ULONG proc_len = offsetof( SYSTEM_PROCESS_INFORMATION32, ti ) + proc->dwThreadCount * ti_size32;
123
124 if (outpos + proc_len + proc->ProcessName.MaximumLength <= len)
125 {
126 memset( proc32, 0, proc_len );
127
128 proc32->dwThreadCount = proc->dwThreadCount;
129 proc32->WorkingSetPrivateSize = proc->WorkingSetPrivateSize;
130 proc32->HardFaultCount = proc->HardFaultCount;
131 proc32->NumberOfThreadsHighWatermark = proc->NumberOfThreadsHighWatermark;
132 proc32->CycleTime = proc->CycleTime;
133 proc32->CreationTime = proc->CreationTime;
134 proc32->UserTime = proc->UserTime;
135 proc32->KernelTime = proc->KernelTime;
136 proc32->ProcessName.Length = proc->ProcessName.Length;
137 proc32->ProcessName.MaximumLength = proc->ProcessName.MaximumLength;
138 proc32->ProcessName.Buffer = PtrToUlong( (char *)proc32 + proc_len );
139 proc32->dwBasePriority = proc->dwBasePriority;
140 proc32->UniqueProcessId = HandleToULong( proc->UniqueProcessId );
141 proc32->ParentProcessId = HandleToULong( proc->ParentProcessId );
142 proc32->HandleCount = proc->HandleCount;
143 proc32->SessionId = proc->SessionId;
144 proc32->UniqueProcessKey = proc->UniqueProcessKey;
145 proc32->ioCounters = proc->ioCounters;
146 put_vm_counters( &proc32->vmCounters, &proc->vmCounters, sizeof(proc32->vmCounters) );
147 for (i = 0; i < proc->dwThreadCount; i++)
148 {
149 ti = (SYSTEM_EXTENDED_THREAD_INFORMATION *)((char *)proc->ti + i * ti_size);
150 ti32 = (SYSTEM_EXTENDED_THREAD_INFORMATION32 *)((char *)proc32->ti + i * ti_size32);
151 ti32->ThreadInfo.KernelTime = ti->ThreadInfo.KernelTime;
152 ti32->ThreadInfo.UserTime = ti->ThreadInfo.UserTime;
153 ti32->ThreadInfo.CreateTime = ti->ThreadInfo.CreateTime;
154 ti32->ThreadInfo.dwTickCount = ti->ThreadInfo.dwTickCount;
155 ti32->ThreadInfo.StartAddress = PtrToUlong( ti->ThreadInfo.StartAddress );
156 ti32->ThreadInfo.dwCurrentPriority = ti->ThreadInfo.dwCurrentPriority;
157 ti32->ThreadInfo.dwBasePriority = ti->ThreadInfo.dwBasePriority;
158 ti32->ThreadInfo.dwContextSwitches = ti->ThreadInfo.dwContextSwitches;
159 ti32->ThreadInfo.dwThreadState = ti->ThreadInfo.dwThreadState;
160 ti32->ThreadInfo.dwWaitReason = ti->ThreadInfo.dwWaitReason;
161 put_client_id( &ti32->ThreadInfo.ClientId, &ti->ThreadInfo.ClientId );
162 if (ext_info)
163 {
164 ti32->StackBase = PtrToUlong( ti->StackBase );
165 ti32->StackLimit = PtrToUlong( ti->StackLimit );
166 ti32->Win32StartAddress = PtrToUlong( ti->Win32StartAddress );
167 ti32->TebBase = PtrToUlong( ti->TebBase );
168 ti32->Reserved2 = ti->Reserved2;
169 ti32->Reserved3 = ti->Reserved3;
170 ti32->Reserved4 = ti->Reserved4;
171 }
172 }
173 memcpy( (char *)proc32 + proc_len, proc->ProcessName.Buffer,
174 proc->ProcessName.MaximumLength );
175
176 if (prev) prev->NextEntryOffset = (char *)proc32 - (char *)prev;
177 prev = proc32;
178 }
179 outpos += proc_len + proc->ProcessName.MaximumLength;
180 inpos += proc->NextEntryOffset;
181 if (!proc->NextEntryOffset) break;
182 }
183 if (retlen) *retlen = outpos;
184 if (outpos <= len) return STATUS_SUCCESS;
185 else return STATUS_INFO_LENGTH_MISMATCH;
186 }
187
188
189 /**********************************************************************
190 * wow64_NtDisplayString
191 */
192 NTSTATUS WINAPI wow64_NtDisplayString( UINT *args )
193 {
194 const UNICODE_STRING32 *str32 = get_ptr( &args );
195
196 UNICODE_STRING str;
197
198 return NtDisplayString( unicode_str_32to64( &str, str32 ));
199 }
200
201
202 /**********************************************************************
203 * wow64_NtInitiatePowerAction
204 */
205 NTSTATUS WINAPI wow64_NtInitiatePowerAction( UINT *args )
206 {
207 POWER_ACTION action = get_ulong( &args );
208 SYSTEM_POWER_STATE state = get_ulong( &args );
209 ULONG flags = get_ulong( &args );
210 BOOLEAN async = get_ulong( &args );
211
212 return NtInitiatePowerAction( action, state, flags, async );
213 }
214
215
216 /**********************************************************************
217 * wow64_NtLoadDriver
218 */
219 NTSTATUS WINAPI wow64_NtLoadDriver( UINT *args )
220 {
221 UNICODE_STRING32 *str32 = get_ptr( &args );
222
223 UNICODE_STRING str;
224
225 return NtLoadDriver( unicode_str_32to64( &str, str32 ));
226 }
227
228
229 /**********************************************************************
230 * wow64_NtPowerInformation
231 */
232 NTSTATUS WINAPI wow64_NtPowerInformation( UINT *args )
233 {
234 POWER_INFORMATION_LEVEL level = get_ulong( &args );
235 void *in_buf = get_ptr( &args );
236 ULONG in_len = get_ulong( &args );
237 void *out_buf = get_ptr( &args );
238 ULONG out_len = get_ulong( &args );
239
240 switch (level)
241 {
242 case SystemPowerCapabilities: /* SYSTEM_POWER_CAPABILITIES */
243 case SystemBatteryState: /* SYSTEM_BATTERY_STATE */
244 case SystemExecutionState: /* ULONG */
245 case ProcessorInformation: /* PROCESSOR_POWER_INFORMATION */
246 return NtPowerInformation( level, in_buf, in_len, out_buf, out_len );
247
248 default:
249 FIXME( "unsupported level %u\n", level );
250 return STATUS_NOT_IMPLEMENTED;
251 }
252 }
253
254
255 /**********************************************************************
256 * wow64_NtQueryLicenseValue
257 */
258 NTSTATUS WINAPI wow64_NtQueryLicenseValue( UINT *args )
259 {
260 UNICODE_STRING32 *str32 = get_ptr( &args );
261 ULONG *type = get_ptr( &args );
262 void *buffer = get_ptr( &args );
263 ULONG len = get_ulong( &args );
264 ULONG *retlen = get_ptr( &args );
265
266 UNICODE_STRING str;
267
268 return NtQueryLicenseValue( unicode_str_32to64( &str, str32 ), type, buffer, len, retlen );
269 }
270
271
272 /**********************************************************************
273 * wow64_NtQuerySystemEnvironmentValue
274 */
275 NTSTATUS WINAPI wow64_NtQuerySystemEnvironmentValue( UINT *args )
276 {
277 UNICODE_STRING32 *str32 = get_ptr( &args );
278 WCHAR *buffer = get_ptr( &args );
279 ULONG len = get_ulong( &args );
280 ULONG *retlen = get_ptr( &args );
281
282 UNICODE_STRING str;
283
284 return NtQuerySystemEnvironmentValue( unicode_str_32to64( &str, str32 ), buffer, len, retlen );
285 }
286
287
288 /**********************************************************************
289 * wow64_NtQuerySystemEnvironmentValueEx
290 */
291 NTSTATUS WINAPI wow64_NtQuerySystemEnvironmentValueEx( UINT *args )
292 {
293 UNICODE_STRING32 *str32 = get_ptr( &args );
294 GUID *vendor = get_ptr( &args );
295 void *buffer = get_ptr( &args );
296 ULONG *retlen = get_ptr( &args );
297 ULONG *attrib = get_ptr( &args );
298
299 UNICODE_STRING str;
300
301 return NtQuerySystemEnvironmentValueEx( unicode_str_32to64( &str, str32 ),
302 vendor, buffer, retlen, attrib );
303 }
304
305
306 /**********************************************************************
307 * wow64_NtQuerySystemInformation
308 */
309 NTSTATUS WINAPI wow64_NtQuerySystemInformation( UINT *args )
310 {
311 SYSTEM_INFORMATION_CLASS class = get_ulong( &args );
312 void *ptr = get_ptr( &args );
313 ULONG len = get_ulong( &args );
314 ULONG *retlen = get_ptr( &args );
315
316 NTSTATUS status;
317
318 switch (class)
319 {
320 case SystemPerformanceInformation: /* SYSTEM_PERFORMANCE_INFORMATION */
321 case SystemTimeOfDayInformation: /* SYSTEM_TIMEOFDAY_INFORMATION */
322 case SystemProcessorPerformanceInformation: /* SYSTEM_PROCESSOR_PERFORMANCE_INFORMATION */
323 case SystemInterruptInformation: /* SYSTEM_INTERRUPT_INFORMATION */
324 case SystemTimeAdjustmentInformation: /* SYSTEM_TIME_ADJUSTMENT_QUERY */
325 case SystemKernelDebuggerInformation: /* SYSTEM_KERNEL_DEBUGGER_INFORMATION */
326 case SystemCurrentTimeZoneInformation: /* RTL_TIME_ZONE_INFORMATION */
327 case SystemRecommendedSharedDataAlignment: /* ULONG */
328 case SystemFirmwareTableInformation: /* SYSTEM_FIRMWARE_TABLE_INFORMATION */
329 case SystemDynamicTimeZoneInformation: /* RTL_DYNAMIC_TIME_ZONE_INFORMATION */
330 case SystemCodeIntegrityInformation: /* SYSTEM_CODEINTEGRITY_INFORMATION */
331 case SystemKernelDebuggerInformationEx: /* SYSTEM_KERNEL_DEBUGGER_INFORMATION_EX */
332 case SystemCpuSetInformation: /* SYSTEM_CPU_SET_INFORMATION */
333 case SystemWineVersionInformation: /* char[] */
334 return NtQuerySystemInformation( class, ptr, len, retlen );
335
336 case SystemCpuInformation: /* SYSTEM_CPU_INFORMATION */
337 case SystemEmulationProcessorInformation: /* SYSTEM_CPU_INFORMATION */
338 return NtQuerySystemInformation( SystemEmulationProcessorInformation, ptr, len, retlen );
339
340 case SystemBasicInformation: /* SYSTEM_BASIC_INFORMATION */
341 case SystemEmulationBasicInformation: /* SYSTEM_BASIC_INFORMATION */
342 if (len == sizeof(SYSTEM_BASIC_INFORMATION32))
343 {
344 SYSTEM_BASIC_INFORMATION info;
345 SYSTEM_BASIC_INFORMATION32 *info32 = ptr;
346
347 if (!(status = NtQuerySystemInformation( SystemEmulationBasicInformation, &info, sizeof(info), NULL )))
348 put_system_basic_information( info32, &info );
349 }
350 else status = STATUS_INFO_LENGTH_MISMATCH;
351 if (retlen) *retlen = sizeof(SYSTEM_BASIC_INFORMATION32);
352 return status;
353
354 case SystemProcessInformation: /* SYSTEM_PROCESS_INFORMATION */
355 case SystemExtendedProcessInformation: /* SYSTEM_PROCESS_INFORMATION */
356 {
357 ULONG size = len * 2, retsize;
358 SYSTEM_PROCESS_INFORMATION *info = Wow64AllocateTemp( size );
359
360 status = NtQuerySystemInformation( class, info, size, &retsize );
361 if (status)
362 {
363 if (status == STATUS_INFO_LENGTH_MISMATCH && retlen) *retlen = retsize;
364 return status;
365 }
366 return put_system_proc_info( ptr, info, class == SystemExtendedProcessInformation, len, retlen );
367 }
368
369 case SystemModuleInformation: /* RTL_PROCESS_MODULES */
370 if (len >= sizeof(RTL_PROCESS_MODULES32))
371 {
372 RTL_PROCESS_MODULES *info;
373 RTL_PROCESS_MODULES32 *info32 = ptr;
374 ULONG count = (len - offsetof( RTL_PROCESS_MODULES32, Modules )) / sizeof(info32->Modules[0]);
375 ULONG i, size = offsetof( RTL_PROCESS_MODULES, Modules[count] );
376
377 info = Wow64AllocateTemp( size );
378 if (!(status = NtQuerySystemInformation( class, info, size, retlen )))
379 {
380 info32->ModulesCount = info->ModulesCount;
381 for (i = 0; i < info->ModulesCount; i++)
382 {
383 info32->Modules[i].Section = HandleToULong( info->Modules[i].Section );
384 info32->Modules[i].MappedBaseAddress = 0;
385 info32->Modules[i].ImageBaseAddress = 0;
386 info32->Modules[i].ImageSize = info->Modules[i].ImageSize;
387 info32->Modules[i].Flags = info->Modules[i].Flags;
388 info32->Modules[i].LoadOrderIndex = info->Modules[i].LoadOrderIndex;
389 info32->Modules[i].InitOrderIndex = info->Modules[i].InitOrderIndex;
390 info32->Modules[i].LoadCount = info->Modules[i].LoadCount;
391 info32->Modules[i].NameOffset = info->Modules[i].NameOffset;
392 strcpy( (char *)info->Modules[i].Name, (char *)info32->Modules[i].Name );
393 }
394 }
395 }
396 else status = NtQuerySystemInformation( class, NULL, 0, retlen );
397
398 if (retlen)
399 {
400 ULONG count = (*retlen - offsetof(RTL_PROCESS_MODULES, Modules)) / sizeof(RTL_PROCESS_MODULE_INFORMATION32);
401 *retlen = offsetof( RTL_PROCESS_MODULES32, Modules[count] );
402 }
403 return status;
404
405 case SystemHandleInformation: /* SYSTEM_HANDLE_INFORMATION */
406 if (len >= sizeof(SYSTEM_HANDLE_INFORMATION32))
407 {
408 SYSTEM_HANDLE_INFORMATION *info;
409 SYSTEM_HANDLE_INFORMATION32 *info32 = ptr;
410 ULONG count = (len - offsetof(SYSTEM_HANDLE_INFORMATION32, Handle)) / sizeof(SYSTEM_HANDLE_ENTRY32);
411 ULONG i, size = offsetof( SYSTEM_HANDLE_INFORMATION, Handle[count] );
412
413 info = Wow64AllocateTemp( size );
414 if (!(status = NtQuerySystemInformation( class, info, size, retlen )))
415 {
416 info32->Count = info->Count;
417 for (i = 0; i < info->Count; i++)
418 {
419 info32->Handle[i].OwnerPid = info->Handle[i].OwnerPid;
420 info32->Handle[i].ObjectType = info->Handle[i].ObjectType;
421 info32->Handle[i].HandleFlags = info->Handle[i].HandleFlags;
422 info32->Handle[i].HandleValue = info->Handle[i].HandleValue;
423 info32->Handle[i].ObjectPointer = PtrToUlong( info->Handle[i].ObjectPointer );
424 info32->Handle[i].AccessMask = info->Handle[i].AccessMask;
425 }
426 }
427 if (retlen)
428 {
429 ULONG count = (*retlen - offsetof(SYSTEM_HANDLE_INFORMATION, Handle)) / sizeof(SYSTEM_HANDLE_ENTRY);
430 *retlen = offsetof( SYSTEM_HANDLE_INFORMATION32, Handle[count] );
431 }
432 return status;
433 }
434 else return STATUS_INFO_LENGTH_MISMATCH;
435
436 case SystemFileCacheInformation: /* SYSTEM_CACHE_INFORMATION */
437 if (len >= sizeof(SYSTEM_CACHE_INFORMATION32))
438 {
439 SYSTEM_CACHE_INFORMATION info;
440 SYSTEM_CACHE_INFORMATION32 *info32 = ptr;
441
442 if (!(status = NtQuerySystemInformation( class, &info, sizeof(info), NULL )))
443 {
444 info32->CurrentSize = info.CurrentSize;
445 info32->PeakSize = info.PeakSize;
446 info32->PageFaultCount = info.PageFaultCount;
447 info32->MinimumWorkingSet = info.MinimumWorkingSet;
448 info32->MaximumWorkingSet = info.MaximumWorkingSet;
449 info32->CurrentSizeIncludingTransitionInPages = info.CurrentSizeIncludingTransitionInPages;
450 info32->PeakSizeIncludingTransitionInPages = info.PeakSizeIncludingTransitionInPages;
451 info32->TransitionRePurposeCount = info.TransitionRePurposeCount;
452 info32->Flags = info.Flags;
453 }
454 }
455 else status = STATUS_INFO_LENGTH_MISMATCH;
456 if (retlen) *retlen = sizeof(SYSTEM_CACHE_INFORMATION32);
457 return status;
458
459 case SystemRegistryQuotaInformation: /* SYSTEM_REGISTRY_QUOTA_INFORMATION */
460 if (len >= sizeof(SYSTEM_REGISTRY_QUOTA_INFORMATION32))
461 {
462 SYSTEM_REGISTRY_QUOTA_INFORMATION info;
463 SYSTEM_REGISTRY_QUOTA_INFORMATION32 *info32 = ptr;
464
465 if (!(status = NtQuerySystemInformation( class, &info, sizeof(info), NULL )))
466 {
467 info32->RegistryQuotaAllowed = info.RegistryQuotaAllowed;
468 info32->RegistryQuotaUsed = info.RegistryQuotaUsed;
469 info32->Reserved1 = PtrToUlong( info.Reserved1 );
470 }
471 }
472 else status = STATUS_INFO_LENGTH_MISMATCH;
473 if (retlen) *retlen = sizeof(SYSTEM_REGISTRY_QUOTA_INFORMATION32);
474 return status;
475
476 case SystemExtendedHandleInformation: /* SYSTEM_HANDLE_INFORMATION_EX */
477 if (len >= sizeof(SYSTEM_HANDLE_INFORMATION_EX32))
478 {
479 SYSTEM_HANDLE_INFORMATION_EX *info;
480 SYSTEM_HANDLE_INFORMATION_EX32 *info32 = ptr;
481 ULONG count = (len - offsetof(SYSTEM_HANDLE_INFORMATION_EX32, Handles)) / sizeof(info32->Handles[0]);
482 ULONG i, size = offsetof( SYSTEM_HANDLE_INFORMATION_EX, Handles[count] );
483
484 if (!ptr) return STATUS_ACCESS_VIOLATION;
485 info = Wow64AllocateTemp( size );
486 if (!(status = NtQuerySystemInformation( class, info, size, retlen )))
487 {
488 info32->NumberOfHandles = info->NumberOfHandles;
489 info32->Reserved = info->Reserved;
490 for (i = 0; i < info->NumberOfHandles; i++)
491 {
492 info32->Handles[i].Object = PtrToUlong( info->Handles[i].Object );
493 info32->Handles[i].UniqueProcessId = info->Handles[i].UniqueProcessId;
494 info32->Handles[i].HandleValue = info->Handles[i].HandleValue;
495 info32->Handles[i].GrantedAccess = info->Handles[i].GrantedAccess;
496 info32->Handles[i].CreatorBackTraceIndex = info->Handles[i].CreatorBackTraceIndex;
497 info32->Handles[i].ObjectTypeIndex = info->Handles[i].ObjectTypeIndex;
498 info32->Handles[i].HandleAttributes = info->Handles[i].HandleAttributes;
499 info32->Handles[i].Reserved = info->Handles[i].Reserved;
500 }
501 }
502 if (retlen)
503 {
504 ULONG count = (*retlen - offsetof(SYSTEM_HANDLE_INFORMATION_EX, Handles)) / sizeof(SYSTEM_HANDLE_TABLE_ENTRY_INFO_EX);
505 *retlen = offsetof( SYSTEM_HANDLE_INFORMATION_EX32, Handles[count] );
506 }
507 return status;
508 }
509 else return STATUS_INFO_LENGTH_MISMATCH;
510
511 case SystemLogicalProcessorInformation: /* SYSTEM_LOGICAL_PROCESSOR_INFORMATION */
512 {
513 SYSTEM_LOGICAL_PROCESSOR_INFORMATION *info;
514 SYSTEM_LOGICAL_PROCESSOR_INFORMATION32 *info32 = ptr;
515 ULONG i, size, count;
516
517 info = Wow64AllocateTemp( len * 2 );
518 status = NtQuerySystemInformation( class, info, len * 2, &size );
519 if (status && status != STATUS_INFO_LENGTH_MISMATCH) return status;
520 count = size / sizeof(*info);
521 if (!status && len >= count * sizeof(*info32))
522 {
523 for (i = 0; i < count; i++)
524 {
525 info32[i].ProcessorMask = info[i].ProcessorMask;
526 info32[i].Relationship = info[i].Relationship;
527 info32[i].Reserved[0] = info[i].Reserved[0];
528 info32[i].Reserved[1] = info[i].Reserved[1];
529 }
530 }
531 else status = STATUS_INFO_LENGTH_MISMATCH;
532 if (retlen) *retlen = count * sizeof(*info32);
533 return status;
534 }
535
536 case SystemModuleInformationEx: /* RTL_PROCESS_MODULE_INFORMATION_EX */
537 if (len >= sizeof(RTL_PROCESS_MODULE_INFORMATION_EX) + sizeof(USHORT))
538 {
539 RTL_PROCESS_MODULE_INFORMATION_EX *info;
540 RTL_PROCESS_MODULE_INFORMATION_EX32 *info32 = ptr;
541 ULONG count = (len - sizeof(info32->NextOffset)) / sizeof(*info32);
542 ULONG i, size = count * sizeof(*info) + sizeof(info->NextOffset);
543
544 info = Wow64AllocateTemp( size );
545 if (!(status = NtQuerySystemInformation( class, info, size, retlen )))
546 {
547 RTL_PROCESS_MODULE_INFORMATION_EX *mod = info;
548 for (i = 0; mod->NextOffset; i++)
549 {
550 info32[i].NextOffset = sizeof(*info32);
551 info32[i].BaseInfo.Section = HandleToULong( mod->BaseInfo.Section );
552 info32[i].BaseInfo.MappedBaseAddress = 0;
553 info32[i].BaseInfo.ImageBaseAddress = 0;
554 info32[i].BaseInfo.ImageSize = mod->BaseInfo.ImageSize;
555 info32[i].BaseInfo.Flags = mod->BaseInfo.Flags;
556 info32[i].BaseInfo.LoadOrderIndex = mod->BaseInfo.LoadOrderIndex;
557 info32[i].BaseInfo.InitOrderIndex = mod->BaseInfo.InitOrderIndex;
558 info32[i].BaseInfo.LoadCount = mod->BaseInfo.LoadCount;
559 info32[i].BaseInfo.NameOffset = mod->BaseInfo.NameOffset;
560 info32[i].ImageCheckSum = mod->ImageCheckSum;
561 info32[i].TimeDateStamp = mod->TimeDateStamp;
562 info32[i].DefaultBase = 0;
563 strcpy( (char *)info32[i].BaseInfo.Name, (char *)mod->BaseInfo.Name );
564 mod = (RTL_PROCESS_MODULE_INFORMATION_EX *)((char *)mod + mod->NextOffset);
565 }
566 info32[i].NextOffset = 0;
567 }
568 }
569 else status = NtQuerySystemInformation( class, NULL, 0, retlen );
570
571 if (retlen)
572 {
573 ULONG count = (*retlen - sizeof(USHORT)) / sizeof(RTL_PROCESS_MODULE_INFORMATION_EX);
574 *retlen = count * sizeof(RTL_PROCESS_MODULE_INFORMATION_EX32) + sizeof(USHORT);
575 }
576 return status;
577
578 case SystemNativeBasicInformation:
579 return STATUS_INVALID_INFO_CLASS;
580
581 default:
582 FIXME( "unsupported class %u\n", class );
583 return STATUS_INVALID_INFO_CLASS;
584 }
585 }
586
587
588 /**********************************************************************
589 * wow64_NtQuerySystemInformationEx
590 */
591 NTSTATUS WINAPI wow64_NtQuerySystemInformationEx( UINT *args )
592 {
593 SYSTEM_INFORMATION_CLASS class = get_ulong( &args );
594 void *query = get_ptr( &args );
595 ULONG query_len = get_ulong( &args );
596 void *ptr = get_ptr( &args );
597 ULONG len = get_ulong( &args );
598 ULONG *retlen = get_ptr( &args );
599
600 HANDLE handle;
601 NTSTATUS status;
602
603 if (!query || query_len < sizeof(LONG)) return STATUS_INVALID_PARAMETER;
604 handle = LongToHandle( *(LONG *)query );
605
606 switch (class)
607 {
608 case SystemLogicalProcessorInformationEx: /* SYSTEM_LOGICAL_PROCESSOR_INFORMATION_EX */
609 {
610 SYSTEM_LOGICAL_PROCESSOR_INFORMATION_EX32 *ex32, *info32 = ptr;
611 SYSTEM_LOGICAL_PROCESSOR_INFORMATION_EX *ex, *info;
612 ULONG size, size32, pos = 0, pos32 = 0;
613
614 status = NtQuerySystemInformationEx( class, &handle, sizeof(handle), NULL, 0, &size );
615 if (status != STATUS_INFO_LENGTH_MISMATCH) return status;
616 info = Wow64AllocateTemp( size );
617 status = NtQuerySystemInformationEx( class, &handle, sizeof(handle), info, size, &size );
618 if (!status)
619 {
620 for (pos = pos32 = 0; pos < size; pos += ex->Size, pos32 += size32)
621 {
622 ex = (SYSTEM_LOGICAL_PROCESSOR_INFORMATION_EX *)((char *)info + pos);
623 ex32 = (SYSTEM_LOGICAL_PROCESSOR_INFORMATION_EX32 *)((char *)info32 + pos32);
624
625 switch (ex->Relationship)
626 {
627 case RelationProcessorCore:
628 case RelationProcessorPackage:
629 size32 = offsetof( SYSTEM_LOGICAL_PROCESSOR_INFORMATION_EX32,
630 Processor.GroupMask[ex->Processor.GroupCount] );
631 break;
632 case RelationNumaNode:
633 size32 = offsetof( SYSTEM_LOGICAL_PROCESSOR_INFORMATION_EX32, NumaNode ) + sizeof( ex32->NumaNode );
634 break;
635 case RelationCache:
636 size32 = offsetof( SYSTEM_LOGICAL_PROCESSOR_INFORMATION_EX32, Cache ) + sizeof( ex32->Cache );
637 break;
638 case RelationGroup:
639 size32 = offsetof( SYSTEM_LOGICAL_PROCESSOR_INFORMATION_EX32,
640 Group.GroupInfo[ex->Group.MaximumGroupCount] );
641 break;
642 default:
643 size32 = 0;
644 continue;
645 }
646 if (pos32 + size32 <= len) put_logical_proc_info_ex( ex32, ex );
647 }
648 if (pos32 > len) status = STATUS_INFO_LENGTH_MISMATCH;
649 size = pos32;
650 }
651 if (retlen) *retlen = size;
652 return status;
653 }
654
655 case SystemCpuSetInformation: /* SYSTEM_CPU_SET_INFORMATION */
656 case SystemSupportedProcessorArchitectures: /* ULONG */
657 return NtQuerySystemInformationEx( class, &handle, sizeof(handle), ptr, len, retlen );
658
659 default:
660 FIXME( "unsupported class %u\n", class );
661 return STATUS_INVALID_INFO_CLASS;
662 }
663 }
664
665
666 /**********************************************************************
667 * wow64_NtQuerySystemTime
668 */
669 NTSTATUS WINAPI wow64_NtQuerySystemTime( UINT *args )
670 {
671 LARGE_INTEGER *time = get_ptr( &args );
672
673 return NtQuerySystemTime( time );
674 }
675
676
677 /**********************************************************************
678 * wow64_NtRaiseHardError
679 */
680 NTSTATUS WINAPI wow64_NtRaiseHardError( UINT *args )
681 {
682 NTSTATUS status = get_ulong( &args );
683 ULONG count = get_ulong( &args );
684 ULONG params_mask = get_ulong( &args );
685 ULONG *params = get_ptr( &args );
686 HARDERROR_RESPONSE_OPTION option = get_ulong( &args );
687 HARDERROR_RESPONSE *response = get_ptr( &args );
688
689 FIXME( "%08lx %lu %lx %p %u %p: stub\n", status, count, params_mask, params, option, response );
690 return STATUS_NOT_IMPLEMENTED;
691 }
692
693
694 /**********************************************************************
695 * wow64_NtSetIntervalProfile
696 */
697 NTSTATUS WINAPI wow64_NtSetIntervalProfile( UINT *args )
698 {
699 ULONG interval = get_ulong( &args );
700 KPROFILE_SOURCE source = get_ulong( &args );
701
702 return NtSetIntervalProfile( interval, source );
703 }
704
705
706 /**********************************************************************
707 * wow64_NtSetSystemInformation
708 */
709 NTSTATUS WINAPI wow64_NtSetSystemInformation( UINT *args )
710 {
711 SYSTEM_INFORMATION_CLASS class = get_ulong( &args );
712 void *info = get_ptr( &args );
713 ULONG len = get_ulong( &args );
714
715 return NtSetSystemInformation( class, info, len );
716 }
717
718
719 /**********************************************************************
720 * wow64_NtSetSystemTime
721 */
722 NTSTATUS WINAPI wow64_NtSetSystemTime( UINT *args )
723 {
724 const LARGE_INTEGER *new = get_ptr( &args );
725 LARGE_INTEGER *old = get_ptr( &args );
726
727 return NtSetSystemTime( new, old );
728 }
729
730
731 /**********************************************************************
732 * wow64_NtShutdownSystem
733 */
734 NTSTATUS WINAPI wow64_NtShutdownSystem( UINT *args )
735 {
736 SHUTDOWN_ACTION action = get_ulong( &args );
737
738 return NtShutdownSystem( action );
739 }
740
741
742 /**********************************************************************
743 * wow64_NtSystemDebugControl
744 */
745 NTSTATUS WINAPI wow64_NtSystemDebugControl( UINT *args )
746 {
747 SYSDBG_COMMAND command = get_ulong( &args );
748 void *in_buf = get_ptr( &args );
749 ULONG in_len = get_ulong( &args );
750 void *out_buf = get_ptr( &args );
751 ULONG out_len = get_ulong( &args );
752 ULONG *retlen = get_ptr( &args );
753
754 return NtSystemDebugControl( command, in_buf, in_len, out_buf, out_len, retlen );
755 }
756
757
758 /**********************************************************************
759 * wow64_NtUnloadDriver
760 */
761 NTSTATUS WINAPI wow64_NtUnloadDriver( UINT *args )
762 {
763 UNICODE_STRING32 *str32 = get_ptr( &args );
764
765 UNICODE_STRING str;
766
767 return NtUnloadDriver( unicode_str_32to64( &str, str32 ));
768 }
769
770
771 /**********************************************************************
772 * wow64_NtWow64GetNativeSystemInformation
773 */
774 NTSTATUS WINAPI wow64_NtWow64GetNativeSystemInformation( UINT *args )
775 {
776 ULONG class = get_ulong( &args );
777 void *ptr = get_ptr( &args );
778 ULONG len = get_ulong( &args );
779 ULONG *retlen = get_ptr( &args );
780
781 NTSTATUS status;
782
783 switch (class)
784 {
785 case SystemBasicInformation:
786 case SystemEmulationBasicInformation:
787 if (len == sizeof(SYSTEM_BASIC_INFORMATION32))
788 {
789 SYSTEM_BASIC_INFORMATION info;
790 SYSTEM_BASIC_INFORMATION32 *info32 = ptr;
791
792 if (!(status = NtQuerySystemInformation( class, &info, sizeof(info), NULL )))
793 put_system_basic_information( info32, &info );
794 }
795 else status = STATUS_INFO_LENGTH_MISMATCH;
796 if (retlen) *retlen = sizeof(SYSTEM_BASIC_INFORMATION32);
797 return status;
798
799 case SystemCpuInformation:
800 case SystemEmulationProcessorInformation:
801 case SystemNativeBasicInformation:
802 return NtQuerySystemInformation( class, ptr, len, retlen );
803
804 default:
805 return STATUS_INVALID_INFO_CLASS;
806 }
807 }
Windows API implementation