396 lines
8.1 KiB
C
396 lines
8.1 KiB
C
/**
|
|
* WinPR: Windows Portable Runtime
|
|
* Interlocked Singly-Linked Lists
|
|
*
|
|
* Copyright 2012 Marc-Andre Moreau <marcandre.moreau@gmail.com>
|
|
*
|
|
* Licensed under the Apache License, Version 2.0 (the "License");
|
|
* you may not use this file except in compliance with the License.
|
|
* You may obtain a copy of the License at
|
|
*
|
|
* http://www.apache.org/licenses/LICENSE-2.0
|
|
*
|
|
* Unless required by applicable law or agreed to in writing, software
|
|
* distributed under the License is distributed on an "AS IS" BASIS,
|
|
* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
|
* See the License for the specific language governing permissions and
|
|
* limitations under the License.
|
|
*/
|
|
|
|
#ifdef HAVE_CONFIG_H
|
|
#include "config.h"
|
|
#endif
|
|
|
|
#include <winpr/synch.h>
|
|
#include <winpr/handle.h>
|
|
|
|
#include <winpr/interlocked.h>
|
|
|
|
/* Singly-Linked List */
|
|
|
|
#ifndef _WIN32
|
|
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
|
|
VOID InitializeSListHead(PSLIST_HEADER ListHead)
|
|
{
|
|
#ifdef _WIN64
|
|
ListHead->s.Alignment = 0;
|
|
ListHead->s.Region = 0;
|
|
ListHead->Header8.Init = 1;
|
|
#else
|
|
ListHead->Alignment = 0;
|
|
#endif
|
|
}
|
|
|
|
PSLIST_ENTRY InterlockedPushEntrySList(PSLIST_HEADER ListHead, PSLIST_ENTRY ListEntry)
|
|
{
|
|
SLIST_HEADER old;
|
|
SLIST_HEADER new;
|
|
|
|
#ifdef _WIN64
|
|
new.HeaderX64.NextEntry = (((ULONG_PTR) ListEntry) >> 4);
|
|
|
|
while (1)
|
|
{
|
|
old = *ListHead;
|
|
|
|
ListEntry->Next = (PSLIST_ENTRY) (((ULONG_PTR) old.HeaderX64.NextEntry) << 4);
|
|
|
|
new.HeaderX64.Depth = old.HeaderX64.Depth + 1;
|
|
new.HeaderX64.Sequence = old.HeaderX64.Sequence + 1;
|
|
|
|
if (InterlockedCompareExchange64((LONGLONG*) ListHead, new.s.Alignment, old.s.Alignment))
|
|
{
|
|
InterlockedCompareExchange64(&((LONGLONG*) ListHead)[1], new.s.Region, old.s.Region);
|
|
break;
|
|
}
|
|
}
|
|
|
|
return (PSLIST_ENTRY) ((ULONG_PTR) old.HeaderX64.NextEntry << 4);
|
|
#else
|
|
new.s.Next.Next = ListEntry;
|
|
|
|
do
|
|
{
|
|
old = *ListHead;
|
|
ListEntry->Next = old.s.Next.Next;
|
|
new.s.Depth = old.s.Depth + 1;
|
|
new.s.Sequence = old.s.Sequence + 1;
|
|
}
|
|
while(InterlockedCompareExchange64((LONGLONG*) &ListHead->Alignment, new.Alignment, old.Alignment) != old.Alignment);
|
|
|
|
return old.s.Next.Next;
|
|
#endif
|
|
}
|
|
|
|
PSLIST_ENTRY InterlockedPushListSListEx(PSLIST_HEADER ListHead, PSLIST_ENTRY List, PSLIST_ENTRY ListEnd, ULONG Count)
|
|
{
|
|
#ifdef _WIN64
|
|
|
|
#else
|
|
|
|
#endif
|
|
return NULL;
|
|
}
|
|
|
|
PSLIST_ENTRY InterlockedPopEntrySList(PSLIST_HEADER ListHead)
|
|
{
|
|
SLIST_HEADER old;
|
|
SLIST_HEADER new;
|
|
PSLIST_ENTRY entry;
|
|
|
|
#ifdef _WIN64
|
|
while (1)
|
|
{
|
|
old = *ListHead;
|
|
|
|
entry = (PSLIST_ENTRY) (((ULONG_PTR) old.HeaderX64.NextEntry) << 4);
|
|
|
|
if (!entry)
|
|
return NULL;
|
|
|
|
new.HeaderX64.NextEntry = ((ULONG_PTR) entry->Next) >> 4;
|
|
new.HeaderX64.Depth = old.HeaderX64.Depth - 1;
|
|
new.HeaderX64.Sequence = old.HeaderX64.Sequence - 1;
|
|
|
|
if (InterlockedCompareExchange64((LONGLONG*) ListHead, new.s.Alignment, old.s.Alignment))
|
|
{
|
|
InterlockedCompareExchange64(&((LONGLONG*) ListHead)[1], new.s.Region, old.s.Region);
|
|
break;
|
|
}
|
|
}
|
|
#else
|
|
do
|
|
{
|
|
old = *ListHead;
|
|
|
|
entry = old.s.Next.Next;
|
|
|
|
if (!entry)
|
|
return NULL;
|
|
|
|
new.s.Next.Next = entry->Next;
|
|
new.s.Depth = old.s.Depth - 1;
|
|
new.s.Sequence = old.s.Sequence + 1;
|
|
}
|
|
while(InterlockedCompareExchange64((LONGLONG*) &ListHead->Alignment, new.Alignment, old.Alignment) != old.Alignment);
|
|
#endif
|
|
return entry;
|
|
}
|
|
|
|
PSLIST_ENTRY InterlockedFlushSList(PSLIST_HEADER ListHead)
|
|
{
|
|
SLIST_HEADER old;
|
|
SLIST_HEADER new;
|
|
|
|
if (!QueryDepthSList(ListHead))
|
|
return NULL;
|
|
|
|
#ifdef _WIN64
|
|
new.s.Alignment = 0;
|
|
new.s.Region = 0;
|
|
new.HeaderX64.HeaderType = 1;
|
|
|
|
while (1)
|
|
{
|
|
old = *ListHead;
|
|
new.HeaderX64.Sequence = old.HeaderX64.Sequence + 1;
|
|
|
|
if (InterlockedCompareExchange64((LONGLONG*) ListHead, new.s.Alignment, old.s.Alignment))
|
|
{
|
|
InterlockedCompareExchange64(&((LONGLONG*) ListHead)[1], new.s.Region, old.s.Region);
|
|
break;
|
|
}
|
|
}
|
|
|
|
return (PSLIST_ENTRY) (((ULONG_PTR) old.HeaderX64.NextEntry) << 4);
|
|
#else
|
|
new.Alignment = 0;
|
|
|
|
do
|
|
{
|
|
old = *ListHead;
|
|
new.s.Sequence = old.s.Sequence + 1;
|
|
}
|
|
while(InterlockedCompareExchange64((LONGLONG*) &ListHead->Alignment, new.Alignment, old.Alignment) != old.Alignment);
|
|
|
|
return old.s.Next.Next;
|
|
#endif
|
|
}
|
|
|
|
USHORT QueryDepthSList(PSLIST_HEADER ListHead)
|
|
{
|
|
#ifdef _WIN64
|
|
return ListHead->HeaderX64.Depth;
|
|
#else
|
|
return ListHead->s.Depth;
|
|
#endif
|
|
}
|
|
|
|
LONG InterlockedIncrement(LONG volatile *Addend)
|
|
{
|
|
#ifdef __GNUC__
|
|
return __sync_add_and_fetch(Addend, 1);
|
|
#else
|
|
return 0;
|
|
#endif
|
|
}
|
|
|
|
LONG InterlockedDecrement(LONG volatile *Addend)
|
|
{
|
|
#ifdef __GNUC__
|
|
return __sync_sub_and_fetch(Addend, 1);
|
|
#else
|
|
return 0;
|
|
#endif
|
|
}
|
|
|
|
LONG InterlockedExchange(LONG volatile *Target, LONG Value)
|
|
{
|
|
#ifdef __GNUC__
|
|
return __sync_val_compare_and_swap(Target, *Target, Value);
|
|
#else
|
|
return 0;
|
|
#endif
|
|
}
|
|
|
|
LONG InterlockedExchangeAdd(LONG volatile *Addend, LONG Value)
|
|
{
|
|
#ifdef __GNUC__
|
|
return __sync_fetch_and_add(Addend, Value);
|
|
#else
|
|
return 0;
|
|
#endif
|
|
}
|
|
|
|
LONG InterlockedCompareExchange(LONG volatile *Destination, LONG Exchange, LONG Comperand)
|
|
{
|
|
#ifdef __GNUC__
|
|
return __sync_val_compare_and_swap(Destination, Comperand, Exchange);
|
|
#else
|
|
return 0;
|
|
#endif
|
|
}
|
|
|
|
#endif /* _WIN32 */
|
|
|
|
#if (_WIN32 && (_WIN32_WINNT < 0x0502))
|
|
|
|
static volatile HANDLE mutex = NULL;
|
|
|
|
int static_mutex_lock(volatile HANDLE* static_mutex)
|
|
{
|
|
if (*static_mutex == NULL)
|
|
{
|
|
HANDLE handle = CreateMutex(NULL, FALSE, NULL);
|
|
|
|
if (InterlockedCompareExchangePointer((PVOID*) static_mutex, (PVOID) handle, NULL) != NULL)
|
|
CloseHandle(handle);
|
|
}
|
|
|
|
return (WaitForSingleObject(*static_mutex, INFINITE) == WAIT_FAILED);
|
|
}
|
|
|
|
/* Not available in XP */
|
|
|
|
LONGLONG InterlockedCompareExchange64(LONGLONG volatile *Destination, LONGLONG Exchange, LONGLONG Comperand)
|
|
{
|
|
LONGLONG previousValue = 0;
|
|
|
|
static_mutex_lock(&mutex);
|
|
|
|
previousValue = *Destination;
|
|
|
|
if (*Destination == Comperand)
|
|
*Destination = Exchange;
|
|
|
|
ReleaseMutex(mutex);
|
|
|
|
return previousValue;
|
|
}
|
|
|
|
#else /* (_WIN32 && (_WIN32_WINNT < 0x0502)) */
|
|
|
|
LONGLONG InterlockedCompareExchange64(LONGLONG volatile *Destination, LONGLONG Exchange, LONGLONG Comperand)
|
|
{
|
|
#ifdef __GNUC__
|
|
return __sync_val_compare_and_swap(Destination, Comperand, Exchange);
|
|
#else
|
|
return 0;
|
|
#endif
|
|
}
|
|
|
|
#endif /* (_WIN32 && (_WIN32_WINNT < 0x0502)) */
|
|
|
|
/* Doubly-Linked List */
|
|
|
|
/**
|
|
* Kernel-Mode Basics: Windows Linked Lists:
|
|
* http://www.osronline.com/article.cfm?article=499
|
|
*
|
|
* Singly and Doubly Linked Lists:
|
|
* http://msdn.microsoft.com/en-us/library/windows/hardware/ff563802/
|
|
*/
|
|
|
|
VOID InitializeListHead(PLIST_ENTRY ListHead)
|
|
{
|
|
ListHead->Flink = ListHead->Blink = ListHead;
|
|
}
|
|
|
|
BOOL IsListEmpty(const LIST_ENTRY* ListHead)
|
|
{
|
|
return (BOOL) (ListHead->Flink == ListHead);
|
|
}
|
|
|
|
BOOL RemoveEntryList(PLIST_ENTRY Entry)
|
|
{
|
|
PLIST_ENTRY OldFlink;
|
|
PLIST_ENTRY OldBlink;
|
|
|
|
OldFlink = Entry->Flink;
|
|
OldBlink = Entry->Blink;
|
|
OldFlink->Blink = OldBlink;
|
|
OldBlink->Flink = OldFlink;
|
|
|
|
return (BOOL) (OldFlink == OldBlink);
|
|
}
|
|
|
|
VOID InsertHeadList(PLIST_ENTRY ListHead, PLIST_ENTRY Entry)
|
|
{
|
|
PLIST_ENTRY OldFlink;
|
|
|
|
OldFlink = ListHead->Flink;
|
|
Entry->Flink = OldFlink;
|
|
Entry->Blink = ListHead;
|
|
OldFlink->Blink = Entry;
|
|
ListHead->Flink = Entry;
|
|
}
|
|
|
|
PLIST_ENTRY RemoveHeadList(PLIST_ENTRY ListHead)
|
|
{
|
|
PLIST_ENTRY Flink;
|
|
PLIST_ENTRY Entry;
|
|
|
|
Entry = ListHead->Flink;
|
|
Flink = Entry->Flink;
|
|
ListHead->Flink = Flink;
|
|
Flink->Blink = ListHead;
|
|
|
|
return Entry;
|
|
}
|
|
|
|
VOID InsertTailList(PLIST_ENTRY ListHead, PLIST_ENTRY Entry)
|
|
{
|
|
PLIST_ENTRY OldBlink;
|
|
|
|
OldBlink = ListHead->Blink;
|
|
Entry->Flink = ListHead;
|
|
Entry->Blink = OldBlink;
|
|
OldBlink->Flink = Entry;
|
|
ListHead->Blink = Entry;
|
|
}
|
|
|
|
PLIST_ENTRY RemoveTailList(PLIST_ENTRY ListHead)
|
|
{
|
|
PLIST_ENTRY Blink;
|
|
PLIST_ENTRY Entry;
|
|
|
|
Entry = ListHead->Blink;
|
|
Blink = Entry->Blink;
|
|
ListHead->Blink = Blink;
|
|
Blink->Flink = ListHead;
|
|
|
|
return Entry;
|
|
}
|
|
|
|
VOID AppendTailList(PLIST_ENTRY ListHead, PLIST_ENTRY ListToAppend)
|
|
{
|
|
PLIST_ENTRY ListEnd = ListHead->Blink;
|
|
|
|
ListHead->Blink->Flink = ListToAppend;
|
|
ListHead->Blink = ListToAppend->Blink;
|
|
ListToAppend->Blink->Flink = ListHead;
|
|
ListToAppend->Blink = ListEnd;
|
|
}
|
|
|
|
VOID PushEntryList(PSINGLE_LIST_ENTRY ListHead, PSINGLE_LIST_ENTRY Entry)
|
|
{
|
|
Entry->Next = ListHead->Next;
|
|
ListHead->Next = Entry;
|
|
}
|
|
|
|
PSINGLE_LIST_ENTRY PopEntryList(PSINGLE_LIST_ENTRY ListHead)
|
|
{
|
|
PSINGLE_LIST_ENTRY FirstEntry;
|
|
|
|
FirstEntry = ListHead->Next;
|
|
|
|
if (FirstEntry != NULL)
|
|
ListHead->Next = FirstEntry->Next;
|
|
|
|
return FirstEntry;
|
|
}
|
|
|