atomicops.il
上传用户:zhongxx05
上传日期:2007-06-06
资源大小:33641k
文件大小:5k
- /* ***** BEGIN LICENSE BLOCK *****
- * Source last modified: $Id: atomicops.il,v 1.1 2003/10/30 18:37:01 nhart Exp $
- *
- * Portions Copyright (c) 1995-2003 RealNetworks, Inc. All Rights Reserved.
- *
- * The contents of this file, and the files included with this file,
- * are subject to the current version of the RealNetworks Public
- * Source License (the "RPSL") available at
- * http://www.helixcommunity.org/content/rpsl unless you have licensed
- * the file under the current version of the RealNetworks Community
- * Source License (the "RCSL") available at
- * http://www.helixcommunity.org/content/rcsl, in which case the RCSL
- * will apply. You may also obtain the license terms directly from
- * RealNetworks. You may not use this file except in compliance with
- * the RPSL or, if you have a valid RCSL with RealNetworks applicable
- * to this file, the RCSL. Please see the applicable RPSL or RCSL for
- * the rights, obligations and limitations governing use of the
- * contents of the file.
- *
- * This file is part of the Helix DNA Technology. RealNetworks is the
- * developer of the Original Code and owns the copyrights in the
- * portions it created.
- *
- * This file, and the files included with this file, is distributed
- * and made available on an 'AS IS' basis, WITHOUT WARRANTY OF ANY
- * KIND, EITHER EXPRESS OR IMPLIED, AND REALNETWORKS HEREBY DISCLAIMS
- * ALL SUCH WARRANTIES, INCLUDING WITHOUT LIMITATION, ANY WARRANTIES
- * OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, QUIET
- * ENJOYMENT OR NON-INFRINGEMENT.
- *
- * Technology Compatibility Kit Test Suite(s) Location:
- * http://www.helixcommunity.org/content/tck
- *
- * Contributor(s):
- *
- * ***** END LICENSE BLOCK ***** */
- /*
- * atomicops.il
- *
- * defines several atomic operations for Sun/SPARC
- *
- ***********************************************************************
- *
- * This is the Solaris inline-assembly version for use with Sun's
- * native compiler on SPARC processors. See atomicbase.h for more
- * info and for the gcc implementaiton.
- *
- */
- /***********************************************************************
- *
- * _HXAtomicAddRetUINT32 -- Atomically increment by n and return new value
- *
- * Interface:
- * extern "C" UINT32 _HXAtomicAddRetUINT32(UINT32* pNum, %o0
- * UINT32 ulNum); %o1
- *
- * Inputs:
- * Paramaters:
- * %o0 : UINT32* pNum - pointer to integer to modify
- * %o1 : UINT32 ulNum - amount to increment *pNum by
- *
- * Outputs:
- * Modifies memory at *pNum:
- * *pNum = *pNum + ulNum
- *
- * Return value:
- * %o0 : UINT32 - new value of *pNum
- *
- * This is implemented using the SPARC leaf procedure optimization.
- * This is implemented using CAS which is not available on older processors.
- */
- .inline _HXAtomicAddRetUINT32,8
- ld [%o0], %o2 /* Set %o2 to *pNum */
- 1: add %o2, %o1, %o3 /* Set %o3 to *pNum + ulNum */
- mov %o3, %o4 /* Save new value for later */
- cas [%o0], %o2, %o3 /* Set *pNum if *pNum is unchanged */
- cmp %o2, %o3 /* Did we succeed in saving the value?*/
- bne,a 1b /* Retry if we didn't. */
- ld [%o0], %o2 /* <<only executes if we branch>> */
- mov %o4, %o0 /* Save return value */
- .end
- /***********************************************************************
- *
- * _HXAtomicSubRetUINT32 -- Atomically decrement by n and return new value
- *
- * Interface:
- * extern "C" UINT32 _HXAtomicSubRetUINT32(UINT32* pNum, %o0
- * UINT32 ulNum); %o1
- *
- * Inputs:
- * Paramaters:
- * %o0 : UINT32* pNum - pointer to integer to modify
- * %o1 : UINT32 ulNum - amount to decrement *pNum by
- *
- * Outputs:
- * Modifies memory at *pNum:
- * *pNum = *pNum - ulNum
- *
- * Return value:
- * %o0 : UINT32 - new value of *pNum
- *
- * This is implemented using the SPARC leaf procedure optimization.
- * This is implemented using CAS which is not available on older processors.
- */
- .inline _HXAtomicSubRetUINT32,8
- ld [%o0], %o2 /* Set %o2 to *pNum */
- 1: sub %o2, %o1, %o3 /* Set %o3 to *pNum - ulNum */
- mov %o3, %o4 /* Save new value for later */
- cas [%o0], %o2, %o3 /* Set *pNum if *pNum is unchanged */
- cmp %o2, %o3 /* Did we succeed in saving the value?*/
- bne,a 1b /* Retry if we didn't. */
- ld [%o0], %o2 /* <<only executes if we branch>> */
- mov %o4, %o0 /* Save return value */
- .end