PureBasic Forums - English

Code: Select all

EnableExplicit

OpenConsole()

Global globalPointer.i
Global sharedInteger.i = 0
Global startTime.i     = ElapsedMilliseconds()

Global Dim checkCounter.i(20000000)
Define loopIndex.i

globalPointer = CreateMutex()

Procedure incrementInteger(sessionNumber.i)
    Protected threadIndex.i
    Protected finishTime.i

    For threadIndex=1 To 1000000
        LockMutex(globalPointer)
        sharedInteger + 1
        If  checkCounter(sharedInteger) = 0
            checkCounter(sharedInteger) = 1
        Else
            PrintN("Crash occurred setting counter # " + Str(sharedInteger))
            Input()
        EndIf
        UnlockMutex(globalPointer)
    Next
    finishTime = ElapsedMilliseconds() - startTime
    PrintN("Mutex Tester, thread " + Str(sessionNumber) + " complete, time elapsed  in ms = " + Str(finishTime))
EndProcedure

For loopIndex=0 To 9
    CreateThread(@incrementInteger(), loopIndex)
Next

Input()

CloseConsole()
; IDE Options = PureBasic 5.24 LTS (Windows - x64)
; ExecutableFormat = Console
; CursorPosition = 30
; EnableThread
; Executable = mutex_tester.exe
; DisableDebugger
; CompileSourceDirectory

Code: Select all

EnableExplicit

OpenConsole()

Global *globalPointer  = AllocateMemory(SizeOf(Integer))
Global sharedInteger.i = 0
Global startTime.i     = ElapsedMilliseconds()

Global Dim checkCounter.i(20000000)
Define loopIndex.i

Import "D:\Program Files (x86)\Windows Kits\8.1\Lib\winv6.3\um\x64\kernel32.lib"
    InitializeSRWLock(*globalPointer)
    TryAcquireSRWLockShared(*globalPointer)
    AcquireSRWLockShared(*globalPointer)
    ReleaseSRWLockShared(*globalPointer)
    TryAcquireSRWLockExclusive(*globalPointer)
    AcquireSRWLockExclusive(*globalPointer)
    ReleaseSRWLockExclusive(*globalPointer)
EndImport

InitializeSRWLock(*globalPointer)

OpenConsole()

Procedure incrementInteger(sessionNumber.i)
    Protected threadIndex.i
    Protected finishTime.i

    For threadIndex=1 To 1000000
        AcquireSRWLockExclusive(*globalPointer)
        sharedInteger + 1
        If  checkCounter(sharedInteger) = 0
            checkCounter(sharedInteger) = 1
        Else
            PrintN("Crash occurred setting counter # " + Str(sharedInteger))
            Input()
        EndIf
        ReleaseSRWLockExclusive(*globalPointer)
    Next
    finishTime = ElapsedMilliseconds() - startTime
    PrintN("Slim Read Writer Lock Tester, thread " + Str(sessionNumber) + " complete, time elapsed  in ms = " + Str(finishTime))
EndProcedure

For loopIndex=0 To 9
    CreateThread(@incrementInteger(), loopIndex)
Next

Input()

CloseConsole()
; IDE Options = PureBasic 5.24 LTS (Windows - x64)
; ExecutableFormat = Console
; CursorPosition = 42
; EnableThread
; Executable = slim_read_write_lock.exe
; DisableDebugger
; CompileSourceDirectory

Code: Select all

EnableExplicit

OpenConsole()

Global *globalPointer  = AllocateMemory(SizeOf(Integer))
Global sharedInteger.i = 0
Global startTime.i     = ElapsedMilliseconds()

Global Dim checkCounter.i(20000000)
Define loopIndex.i

InitializeCriticalSection_(*globalPointer)

Procedure incrementInteger(sessionNumber.i)
    Protected threadIndex.i
    Protected finishTime.i

    For threadIndex=1 To 1000000
        EnterCriticalSection_(*globalPointer)
        sharedInteger + 1
        If  checkCounter(sharedInteger) = 0
            checkCounter(sharedInteger) = 1
        Else
            PrintN("Crash occurred setting counter # " + Str(sharedInteger))
            Input()
        EndIf
        LeaveCriticalSection_(*globalPointer)
    Next
    finishTime = ElapsedMilliseconds() - startTime
    PrintN("Critical Section Tester, thread " + Str(sessionNumber) + " complete, time elapsed  in ms = " + Str(finishTime))
EndProcedure

For loopIndex=0 To 9
    CreateThread(@incrementInteger(), loopIndex)
Next

Input()

CloseConsole()
; IDE Options = PureBasic 5.24 LTS (Windows - x64)
; ExecutableFormat = Console
; CursorPosition = 12
; EnableThread
; Executable = critical_section.exe
; DisableDebugger
; CompileSourceDirectory