source: trunk/src/kernel32/old/interlock.asm@ 3274

; $Id: interlock.asm,v 1.1 1999-09-15 23:32:56 sandervl Exp $

;/*
; * Interlocked apis
; *
; * Copyright 1999 Sander van Leeuwen
; * Copyright 1999 Patrick Haller
; *
; * Based on WINE code: win32\thread.c (990815)
; *
; * Copyright 1995 Martin von Loewis
; * Copyright 1997 Onno Hovers
; *
; * Project Odin Software License can be found in LICENSE.TXT
; *
; */
.586P
               NAME    interlocked

CODE32         SEGMENT DWORD PUBLIC USE32 'CODE'

       public  _InterlockedIncrement@4

;*           InterlockedIncrement                       [KERNEL32]      *
;*                                                                      *
;* InterlockedIncrement adds 1 to a long variable and returns           *
;*  -  a negative number if the result < 0                              *
;*  -  zero if the result == 0                                          *
;*  -  a positive number if the result > 0                              *
;*                                                                      *
;* The returned number need not be equal to the result!!!!              *

_InterlockedIncrement@4 proc near
        mov     eax, dword ptr [esp+4] ; LPLONG lpAddend
        lock    inc dword ptr [eax] 
        mov     eax, 0
        je      @end                  ; not incremented?
        jl      @decr
        inc     eax                    ; ?
        jmp     @end
@decr:  dec     eax                    ; ?
@end:   ret     4
_InterlockedIncrement@4 endp

       public  _InterlockedDecrement@4

;*           InterlockedDecrement                       [KERNEL32]      *
;*                                                                      *
;* InterlockedIncrement adds 1 to a long variable and returns           *
;*  -  a negative number if the result < 0                              *
;*  -  zero if the result == 0                                          *
;*  -  a positive number if the result > 0                              *
;*                                                                      *
;* The returned number need not be equal to the result!!!!              *

_InterlockedDecrement@4 proc near
        mov     eax, dword ptr [esp+4] ; LPLONG lpAddend
        lock    dec dword ptr [eax] 
        mov     eax, 0
        je      @end                   ; not decremented?
        jl      @decr
        inc     eax                    ; ?
        jmp     @end
@decr:  dec     eax                    ; ?
@end:   ret     4
_InterlockedDecrement@4 endp


       public  _InterlockedExchange@8
; *           InterlockedExchange                               [KERNEL32.???]
; *
; * Atomically exchanges a pair of values.
; *
; * RETURNS
; *     Prior value of value pointed to by Target

_InterlockedExchange@8 proc near
        push    edx                     
        mov     eax, [esp+12]           ; LONG value
        mov     edx,[esp+8]             ; LPLONG target
        lock    xchg eax, dword ptr [edx]
        pop     edx
        ret     4
_InterlockedExchange@8 endp



                public _InterlockedCompareExchange@12
;/************************************************************************
; *           InterlockedCompareExchange                [KERNEL32.879]
; *
; * Atomically compares Destination and Comperand, and if found equal exchanges
; * the value of Destination with Exchange
; *
; * RETURNS
; *     Prior value of value pointed to by Destination
; */
_InterlockedCompareExchange@12 proc near
        push    ebp
        mov     ebp, esp
        push    edx
        push    ebx

        mov     ebx, dword ptr [ebp+8]  ;PVOID *Destination, /* Address of 32-bit value to exchange */
        push    dword ptr [ebx]         ;save old *Destination
        mov     eax, [ebp+16]           ;PVOID Comperand      /* value to compare, 32 bits */
        mov     edx, [ebp+12]           ;PVOID Exchange,      /* change value, 32 bits */
        lock    cmpxchg dword ptr [ebx],edx
        pop     eax

        pop     ebx
        pop     edx
        pop     ebp
        ret     12
_InterlockedCompareExchange@12 endp

                public _InterlockedExchangeAdd@8
; *           InterlockedExchangeAdd                    [KERNEL32.880]
; *
; * Atomically adds Increment to Addend and returns the previous value of
; * Addend
; *
; * RETURNS
; *     Prior value of value pointed to by cwAddendTarget
; */
_InterlockedExchangeAdd@8 proc near
        push    edx
        mov     eax, dword ptr [esp+12] ;LONG Increment /* Value to add */
        mov     edx, dword ptr [esp+8]  ;PLONG Addend, /* Address of 32-bit value to exchange */
        lock    xadd dword ptr [edx], eax
        pop     edx
        ret     8
_InterlockedExchangeAdd@8 endp

CODE32          ENDS

                END