4 * This file contains the Rtl* API functions. These should be implementable.
6 * Copyright 1996-1998 Marcus Meissner
13 #include "debugtools.h"
16 #include "stackframe.h"
21 DEFAULT_DEBUG_CHANNEL(ntdll
);
24 static RTL_CRITICAL_SECTION peb_lock
= CRITICAL_SECTION_INIT("peb_lock");
30 /***********************************************************************
31 * RtlInitializeResource (NTDLL.@)
33 * xxxResource() functions implement multiple-reader-single-writer lock.
34 * The code is based on information published in WDJ January 1999 issue.
36 void WINAPI
RtlInitializeResource(LPRTL_RWLOCK rwl
)
40 rwl
->iNumberActive
= 0;
41 rwl
->uExclusiveWaiters
= 0;
42 rwl
->uSharedWaiters
= 0;
43 rwl
->hOwningThreadId
= 0;
44 rwl
->dwTimeoutBoost
= 0; /* no info on this one, default value is 0 */
45 RtlInitializeCriticalSection( &rwl
->rtlCS
);
46 NtCreateSemaphore( &rwl
->hExclusiveReleaseSemaphore
, 0, NULL
, 0, 65535 );
47 NtCreateSemaphore( &rwl
->hSharedReleaseSemaphore
, 0, NULL
, 0, 65535 );
52 /***********************************************************************
53 * RtlDeleteResource (NTDLL.@)
55 void WINAPI
RtlDeleteResource(LPRTL_RWLOCK rwl
)
59 RtlEnterCriticalSection( &rwl
->rtlCS
);
60 if( rwl
->iNumberActive
|| rwl
->uExclusiveWaiters
|| rwl
->uSharedWaiters
)
61 MESSAGE("Deleting active MRSW lock (%p), expect failure\n", rwl
);
62 rwl
->hOwningThreadId
= 0;
63 rwl
->uExclusiveWaiters
= rwl
->uSharedWaiters
= 0;
64 rwl
->iNumberActive
= 0;
65 NtClose( rwl
->hExclusiveReleaseSemaphore
);
66 NtClose( rwl
->hSharedReleaseSemaphore
);
67 RtlLeaveCriticalSection( &rwl
->rtlCS
);
68 RtlDeleteCriticalSection( &rwl
->rtlCS
);
73 /***********************************************************************
74 * RtlAcquireResourceExclusive (NTDLL.@)
76 BYTE WINAPI
RtlAcquireResourceExclusive(LPRTL_RWLOCK rwl
, BYTE fWait
)
82 RtlEnterCriticalSection( &rwl
->rtlCS
);
83 if( rwl
->iNumberActive
== 0 ) /* lock is free */
85 rwl
->iNumberActive
= -1;
88 else if( rwl
->iNumberActive
< 0 ) /* exclusive lock in progress */
90 if( rwl
->hOwningThreadId
== GetCurrentThreadId() )
99 rwl
->uExclusiveWaiters
++;
101 RtlLeaveCriticalSection( &rwl
->rtlCS
);
102 if( WaitForSingleObject( rwl
->hExclusiveReleaseSemaphore
, INFINITE
) == WAIT_FAILED
)
104 goto start
; /* restart the acquisition to avoid deadlocks */
107 else /* one or more shared locks are in progress */
112 rwl
->hOwningThreadId
= GetCurrentThreadId();
114 RtlLeaveCriticalSection( &rwl
->rtlCS
);
118 /***********************************************************************
119 * RtlAcquireResourceShared (NTDLL.@)
121 BYTE WINAPI
RtlAcquireResourceShared(LPRTL_RWLOCK rwl
, BYTE fWait
)
123 DWORD dwWait
= WAIT_FAILED
;
128 RtlEnterCriticalSection( &rwl
->rtlCS
);
129 if( rwl
->iNumberActive
< 0 )
131 if( rwl
->hOwningThreadId
== GetCurrentThreadId() )
133 rwl
->iNumberActive
--;
140 rwl
->uSharedWaiters
++;
141 RtlLeaveCriticalSection( &rwl
->rtlCS
);
142 if( (dwWait
= WaitForSingleObject( rwl
->hSharedReleaseSemaphore
, INFINITE
)) == WAIT_FAILED
)
149 if( dwWait
!= WAIT_OBJECT_0
) /* otherwise RtlReleaseResource() has already done it */
150 rwl
->iNumberActive
++;
154 RtlLeaveCriticalSection( &rwl
->rtlCS
);
159 /***********************************************************************
160 * RtlReleaseResource (NTDLL.@)
162 void WINAPI
RtlReleaseResource(LPRTL_RWLOCK rwl
)
164 RtlEnterCriticalSection( &rwl
->rtlCS
);
166 if( rwl
->iNumberActive
> 0 ) /* have one or more readers */
168 if( --rwl
->iNumberActive
== 0 )
170 if( rwl
->uExclusiveWaiters
)
173 rwl
->uExclusiveWaiters
--;
174 NtReleaseSemaphore( rwl
->hExclusiveReleaseSemaphore
, 1, NULL
);
179 if( rwl
->iNumberActive
< 0 ) /* have a writer, possibly recursive */
181 if( ++rwl
->iNumberActive
== 0 )
183 rwl
->hOwningThreadId
= 0;
184 if( rwl
->uExclusiveWaiters
)
187 if( rwl
->uSharedWaiters
)
189 UINT n
= rwl
->uSharedWaiters
;
190 rwl
->iNumberActive
= rwl
->uSharedWaiters
; /* prevent new writers from joining until
191 * all queued readers have done their thing */
192 rwl
->uSharedWaiters
= 0;
193 NtReleaseSemaphore( rwl
->hSharedReleaseSemaphore
, n
, NULL
);
197 RtlLeaveCriticalSection( &rwl
->rtlCS
);
201 /***********************************************************************
202 * RtlDumpResource (NTDLL.@)
204 void WINAPI
RtlDumpResource(LPRTL_RWLOCK rwl
)
208 MESSAGE("RtlDumpResource(%p):\n\tactive count = %i\n\twaiting readers = %i\n\twaiting writers = %i\n",
209 rwl
, rwl
->iNumberActive
, rwl
->uSharedWaiters
, rwl
->uExclusiveWaiters
);
210 if( rwl
->iNumberActive
)
211 MESSAGE("\towner thread = %08x\n", rwl
->hOwningThreadId
);
219 /******************************************************************************
220 * RtlCreateHeap [NTDLL.@]
222 HANDLE WINAPI
RtlCreateHeap(
228 PRTL_HEAP_DEFINITION Definition
)
230 FIXME("(0x%08lx, %p, 0x%08lx, 0x%08lx, %p, %p) semi-stub\n",
231 Flags
, BaseAddress
, SizeToReserve
, SizeToCommit
, Unknown
, Definition
);
233 return HeapCreate ( Flags
, SizeToCommit
, SizeToReserve
);
236 /******************************************************************************
237 * RtlAllocateHeap [NTDLL.@]
239 PVOID WINAPI
RtlAllocateHeap(
244 TRACE("(0x%08x, 0x%08lx, 0x%08lx) semi stub\n",
246 return HeapAlloc(Heap
, Flags
, Size
);
249 /******************************************************************************
250 * RtlFreeHeap [NTDLL.@]
252 BOOLEAN WINAPI
RtlFreeHeap(
257 TRACE("(0x%08x, 0x%08lx, %p) semi stub\n",
258 Heap
, Flags
, Address
);
259 return HeapFree(Heap
, Flags
, Address
);
262 /******************************************************************************
263 * RtlDestroyHeap [NTDLL.@]
265 * FIXME: prototype guessed
267 BOOLEAN WINAPI
RtlDestroyHeap(
270 TRACE("(0x%08x) semi stub\n", Heap
);
271 return HeapDestroy(Heap
);
278 /******************************************************************************
281 void WINAPIV
DbgPrint(LPCSTR fmt
, ...)
287 vsprintf(buf
,fmt
, args
);
290 MESSAGE("DbgPrint says: %s",buf
);
291 /* hmm, raise exception? */
294 /******************************************************************************
295 * RtlAcquirePebLock [NTDLL.@]
297 VOID WINAPI
RtlAcquirePebLock(void)
299 RtlEnterCriticalSection( &peb_lock
);
302 /******************************************************************************
303 * RtlReleasePebLock [NTDLL.@]
305 VOID WINAPI
RtlReleasePebLock(void)
307 RtlLeaveCriticalSection( &peb_lock
);
310 /******************************************************************************
311 * RtlIntegerToChar [NTDLL.@]
313 DWORD WINAPI
RtlIntegerToChar(DWORD x1
,DWORD x2
,DWORD x3
,DWORD x4
) {
314 FIXME("(0x%08lx,0x%08lx,0x%08lx,0x%08lx),stub!\n",x1
,x2
,x3
,x4
);
317 /******************************************************************************
318 * RtlSetEnvironmentVariable [NTDLL.@]
320 DWORD WINAPI
RtlSetEnvironmentVariable(DWORD x1
,PUNICODE_STRING key
,PUNICODE_STRING val
) {
321 FIXME("(0x%08lx,%s,%s),stub!\n",x1
,debugstr_w(key
->Buffer
),debugstr_w(val
->Buffer
));
325 /******************************************************************************
326 * RtlNewSecurityObject [NTDLL.@]
328 DWORD WINAPI
RtlNewSecurityObject(DWORD x1
,DWORD x2
,DWORD x3
,DWORD x4
,DWORD x5
,DWORD x6
) {
329 FIXME("(0x%08lx,0x%08lx,0x%08lx,0x%08lx,0x%08lx,0x%08lx),stub!\n",x1
,x2
,x3
,x4
,x5
,x6
);
333 /******************************************************************************
334 * RtlDeleteSecurityObject [NTDLL.@]
336 DWORD WINAPI
RtlDeleteSecurityObject(DWORD x1
) {
337 FIXME("(0x%08lx),stub!\n",x1
);
341 /**************************************************************************
342 * RtlNormalizeProcessParams [NTDLL.@]
344 LPVOID WINAPI
RtlNormalizeProcessParams(LPVOID x
)
346 FIXME("(%p), stub\n",x
);
350 /**************************************************************************
351 * RtlGetNtProductType [NTDLL.@]
353 BOOLEAN WINAPI
RtlGetNtProductType(LPDWORD type
)
355 FIXME("(%p): stub\n", type
);
356 *type
=3; /* dunno. 1 for client, 3 for server? */
360 /**************************************************************************
363 * Glorified "enter xxxx".
365 void WINAPI
NTDLL_chkstk( CONTEXT86
*context
)
367 context
->Esp
-= context
->Eax
;
370 /**************************************************************************
371 * _alloca_probe [NTDLL.@]
373 * Glorified "enter xxxx".
375 void WINAPI
NTDLL_alloca_probe( CONTEXT86
*context
)
377 context
->Esp
-= context
->Eax
;
380 /**************************************************************************
381 * RtlDosPathNameToNtPathName_U [NTDLL.@]
383 * FIXME: convert to UNC or whatever is expected here
385 BOOLEAN WINAPI
RtlDosPathNameToNtPathName_U(
386 LPWSTR from
,PUNICODE_STRING us
,DWORD x2
,DWORD x3
)
388 FIXME("(%s,%p,%08lx,%08lx)\n",debugstr_w(from
),us
,x2
,x3
);
389 if (us
) RtlCreateUnicodeString( us
, from
);
394 /***********************************************************************
395 * RtlImageNtHeader (NTDLL.@)
397 PIMAGE_NT_HEADERS WINAPI
RtlImageNtHeader(HMODULE hModule
)
399 IMAGE_NT_HEADERS
*ret
= NULL
;
400 IMAGE_DOS_HEADER
*dos
= (IMAGE_DOS_HEADER
*)hModule
;
402 if (dos
->e_magic
== IMAGE_DOS_SIGNATURE
)
404 ret
= (IMAGE_NT_HEADERS
*)((char *)dos
+ dos
->e_lfanew
);
405 if (ret
->Signature
!= IMAGE_NT_SIGNATURE
) ret
= NULL
;
411 /******************************************************************************
412 * RtlCreateEnvironment [NTDLL.@]
414 DWORD WINAPI
RtlCreateEnvironment(DWORD x1
,DWORD x2
) {
415 FIXME("(0x%08lx,0x%08lx),stub!\n",x1
,x2
);
420 /******************************************************************************
421 * RtlDestroyEnvironment [NTDLL.@]
423 DWORD WINAPI
RtlDestroyEnvironment(DWORD x
) {
424 FIXME("(0x%08lx),stub!\n",x
);
428 /******************************************************************************
429 * RtlQueryEnvironmentVariable_U [NTDLL.@]
431 DWORD WINAPI
RtlQueryEnvironmentVariable_U(DWORD x1
,PUNICODE_STRING key
,PUNICODE_STRING val
) {
432 FIXME("(0x%08lx,%s,%p),stub!\n",x1
,debugstr_w(key
->Buffer
),val
);
435 /******************************************************************************
436 * RtlInitializeGenericTable [NTDLL.@]
438 DWORD WINAPI
RtlInitializeGenericTable(void)
444 /******************************************************************************
445 * RtlInitializeBitMap [NTDLL.@]
448 NTSTATUS WINAPI
RtlInitializeBitMap(DWORD x1
,DWORD x2
,DWORD x3
)
450 FIXME("(0x%08lx,0x%08lx,0x%08lx),stub\n",x1
,x2
,x3
);
454 /******************************************************************************
455 * RtlSetBits [NTDLL.@]
458 NTSTATUS WINAPI
RtlSetBits(DWORD x1
,DWORD x2
,DWORD x3
)
460 FIXME("(0x%08lx,0x%08lx,0x%08lx),stub\n",x1
,x2
,x3
);
464 /******************************************************************************
465 * RtlFindClearBits [NTDLL.@]
468 NTSTATUS WINAPI
RtlFindClearBits(DWORD x1
,DWORD x2
,DWORD x3
)
470 FIXME("(0x%08lx,0x%08lx,0x%08lx),stub\n",x1
,x2
,x3
);
474 /******************************************************************************
475 * RtlClearBits [NTDLL.@]
478 NTSTATUS WINAPI
RtlClearBits(DWORD x1
,DWORD x2
,DWORD x3
)
480 FIXME("(0x%08lx,0x%08lx,0x%08lx),stub\n",x1
,x2
,x3
);
484 /******************************************************************************
485 * RtlCopyMemory [NTDLL]
489 VOID WINAPI
RtlCopyMemory( VOID
*Destination
, CONST VOID
*Source
, SIZE_T Length
)
491 memcpy(Destination
, Source
, Length
);
494 /******************************************************************************
495 * RtlMoveMemory [NTDLL.@]
498 VOID WINAPI
RtlMoveMemory( VOID
*Destination
, CONST VOID
*Source
, SIZE_T Length
)
500 memmove(Destination
, Source
, Length
);
503 /******************************************************************************
504 * RtlFillMemory [NTDLL.@]
507 VOID WINAPI
RtlFillMemory( VOID
*Destination
, SIZE_T Length
, BYTE Fill
)
509 memset(Destination
, Fill
, Length
);
512 /******************************************************************************
513 * RtlZeroMemory [NTDLL.@]
516 VOID WINAPI
RtlZeroMemory( VOID
*Destination
, SIZE_T Length
)
518 memset(Destination
, 0, Length
);
521 /******************************************************************************
522 * RtlCompareMemory [NTDLL.@]
524 SIZE_T WINAPI
RtlCompareMemory( const VOID
*Source1
, const VOID
*Source2
, SIZE_T Length
)
527 for(i
=0; (i
<Length
) && (((LPBYTE
)Source1
)[i
]==((LPBYTE
)Source2
)[i
]); i
++);
531 /******************************************************************************
532 * RtlAssert [NTDLL.@]
534 * Not implemented in non-debug versions.
536 void WINAPI
RtlAssert(LPVOID x1
,LPVOID x2
,DWORD x3
, DWORD x4
)
538 FIXME("(%p,%p,0x%08lx,0x%08lx),stub\n",x1
,x2
,x3
,x4
);