1/* 2 * Copyright (c) 2000 Apple Computer, Inc. All rights reserved. 3 * 4 * @APPLE_OSREFERENCE_LICENSE_HEADER_START@ 5 * 6 * This file contains Original Code and/or Modifications of Original Code 7 * as defined in and that are subject to the Apple Public Source License 8 * Version 2.0 (the 'License'). You may not use this file except in 9 * compliance with the License. The rights granted to you under the License 10 * may not be used to create, or enable the creation or redistribution of, 11 * unlawful or unlicensed copies of an Apple operating system, or to 12 * circumvent, violate, or enable the circumvention or violation of, any 13 * terms of an Apple operating system software license agreement. 14 * 15 * Please obtain a copy of the License at 16 * http://www.opensource.apple.com/apsl/ and read it before using this file. 17 * 18 * The Original Code and all software distributed under the License are 19 * distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER 20 * EXPRESS OR IMPLIED, AND APPLE HEREBY DISCLAIMS ALL SUCH WARRANTIES, 21 * INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF MERCHANTABILITY, 22 * FITNESS FOR A PARTICULAR PURPOSE, QUIET ENJOYMENT OR NON-INFRINGEMENT. 23 * Please see the License for the specific language governing rights and 24 * limitations under the License. 25 * 26 * @APPLE_OSREFERENCE_LICENSE_HEADER_END@ 27 */ 28 29#;*************************************************************************** 30#;* Boolean OSCompareAndSwap(SInt32 oldValue, SInt32 newValue, SInt32 *ptr) * 31#;*************************************************************************** 32 33 .globl _OSCompareAndSwap 34 35_OSCompareAndSwap: 36 movl 4(%esp), %eax #; oldValue 37 movl 8(%esp), %edx #; newValue 38 movl 12(%esp), %ecx #; ptr 39 lock 40 cmpxchgl %edx, 0(%ecx) #; CAS (eax is an implicit operand) 41 sete %al #; did CAS succeed? (TZ=1) 42 movzbl %al, %eax #; clear out the high bytes 43 ret 44 45#;***************************************************************************** 46#;* Boolean OSCompareAndSwap64(SInt64 oldValue, SInt64 newValue, SInt64 *ptr) * 47#;***************************************************************************** 48 49 .globl _OSCompareAndSwap64 50 51_OSCompareAndSwap64: 52 pushl %edi 53 pushl %ebx 54 55 movl 4+8(%esp), %eax #; low 32-bits of oldValue 56 movl 8+8(%esp), %edx #; high 32-bits of oldValue 57 movl 12+8(%esp), %ebx #; low 32-bits of newValue 58 movl 16+8(%esp), %ecx #; high 32-bits of newValue 59 movl 20+8(%esp), %edi #; ptr 60 lock 61 cmpxchg8b 0(%edi) #; CAS (eax:edx, ebx:ecx implicit) 62 sete %al #; did CAS succeed? (TZ=1) 63 movzbl %al, %eax #; clear out the high bytes 64 65 popl %ebx 66 popl %edi 67 ret 68 69#;******************************************************* 70#;* SInt64 OSAddAtomic64(SInt64 theAmount, SInt64 *ptr) * 71#;******************************************************* 72 73 .globl _OSAddAtomic64 74_OSAddAtomic64: 75 pushl %edi 76 pushl %ebx 77 78 movl 12+8(%esp), %edi #; ptr 79 movl 0(%edi), %eax #; load low 32-bits of *ptr 80 movl 4(%edi), %edx #; load high 32-bits of *ptr 811: 82 movl %eax, %ebx 83 movl %edx, %ecx #; ebx:ecx := *ptr 84 addl 4+8(%esp), %ebx 85 adcl 8+8(%esp), %ecx #; ebx:ecx := *ptr + theAmount 86 lock 87 cmpxchg8b 0(%edi) #; CAS (eax:edx, ebx:ecx implicit) 88 jnz 1b #; - failure: eax:edx re-loaded, retry 89 #; - success: old value in eax:edx 90 popl %ebx 91 popl %edi 92 ret 93 94#;******************************************************* 95#; SInt32 OSAddAtomic(SInt32 delta, SInt32 *address) 96#;******************************************************* 97 98 .globl _OSAddAtomic 99_OSAddAtomic: 100 movl 4(%esp), %eax #; Load addend 101 movl 8(%esp), %ecx #; Load address of operand 102 lock 103 xaddl %eax, 0(%ecx) #; Atomic exchange and add 104 ret 105