41 lines
1.7 KiB
Plaintext
41 lines
1.7 KiB
Plaintext
/*
|
|
* @(#)parisc.gcc 8.5 (Sleepycat) 1/18/97
|
|
*
|
|
* Copyright (c) 1996-1997, The University of Utah and the Computer Systems
|
|
* Laboratory at the University of Utah (CSL). All rights reserved.
|
|
*
|
|
* Permission to use, copy, modify and distribute this software is hereby
|
|
* granted provided that (1) source code retains these copyright, permission,
|
|
* and disclaimer notices, and (2) redistributions including binaries
|
|
* reproduce the notices in supporting documentation, and (3) all advertising
|
|
* materials mentioning features or use of this software display the following
|
|
* acknowledgement: ``This product includes software developed by the Computer
|
|
* Systems Laboratory at the University of Utah.''
|
|
*
|
|
* THE UNIVERSITY OF UTAH AND CSL ALLOW FREE USE OF THIS SOFTWARE IN ITS "AS
|
|
* IS" CONDITION. THE UNIVERSITY OF UTAH AND CSL DISCLAIM ANY LIABILITY OF
|
|
* ANY KIND FOR ANY DAMAGES WHATSOEVER RESULTING FROM THE USE OF THIS SOFTWARE.
|
|
*
|
|
* CSL requests users of this software to return to csl-dist@cs.utah.edu any
|
|
* improvements that they make and grant CSL redistribution rights.
|
|
*/
|
|
|
|
/*
|
|
* The PA-RISC has a "load and clear" instead of a "test and set" instruction.
|
|
* The 32-bit word used by that instruction must be 16-byte aligned hence we
|
|
* allocate 16 bytes for a tsl_t and use the word that is properly aligned.
|
|
* We could use the "aligned" attribute in GCC but that doesn't work for stack
|
|
* variables.
|
|
*/
|
|
#define TSL_SET(tsl) ({ \
|
|
int *__l = (int *)(((int)(tsl)+15)&~15); \
|
|
int __r; \
|
|
asm volatile("ldcws 0(%1),%0" : "=r" (__r) : "r" (__l)); \
|
|
__r & 1; \
|
|
})
|
|
|
|
#define TSL_UNSET(tsl) ({ \
|
|
int *__l = (int *)(((int)(tsl)+15)&~15); \
|
|
*__l = -1; \
|
|
})
|