xref: /onnv-gate/usr/src/lib/libc/sparc/fp/fpsetsticky.s (revision 7298:b69e27387f74)
10Sstevel@tonic-gate/*
20Sstevel@tonic-gate * CDDL HEADER START
30Sstevel@tonic-gate *
40Sstevel@tonic-gate * The contents of this file are subject to the terms of the
56812Sraf * Common Development and Distribution License (the "License").
66812Sraf * You may not use this file except in compliance with the License.
70Sstevel@tonic-gate *
80Sstevel@tonic-gate * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
90Sstevel@tonic-gate * or http://www.opensolaris.org/os/licensing.
100Sstevel@tonic-gate * See the License for the specific language governing permissions
110Sstevel@tonic-gate * and limitations under the License.
120Sstevel@tonic-gate *
130Sstevel@tonic-gate * When distributing Covered Code, include this CDDL HEADER in each
140Sstevel@tonic-gate * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
150Sstevel@tonic-gate * If applicable, add the following below this CDDL HEADER, with the
160Sstevel@tonic-gate * fields enclosed by brackets "[]" replaced with your own identifying
170Sstevel@tonic-gate * information: Portions Copyright [yyyy] [name of copyright owner]
180Sstevel@tonic-gate *
190Sstevel@tonic-gate * CDDL HEADER END
200Sstevel@tonic-gate */
210Sstevel@tonic-gate
226812Sraf/*
236812Sraf * Copyright 2008 Sun Microsystems, Inc.  All rights reserved.
246812Sraf * Use is subject to license terms.
256812Sraf */
260Sstevel@tonic-gate
276812Sraf/*	Copyright (c) 1988 AT&T	*/
286812Sraf/*	All Rights Reserved	*/
290Sstevel@tonic-gate
30*7298SMark.J.Nelson@Sun.COM	.file	"fpsetsticky.s"
316812Sraf
326812Sraf#include "SYS.h"
330Sstevel@tonic-gate
340Sstevel@tonic-gate	ANSI_PRAGMA_WEAK(fpsetsticky,function)
350Sstevel@tonic-gate
360Sstevel@tonic-gate	ENTRY(fpsetsticky)
370Sstevel@tonic-gate	add	%sp, -SA(MINFRAME), %sp	! get an additional word of storage
380Sstevel@tonic-gate	set	0x000003e0, %o4		! mask of accrued exception bits
390Sstevel@tonic-gate	sll	%o0, 5, %o1		! move input bits into position
400Sstevel@tonic-gate	st	%fsr, [%sp+ARGPUSH]	! get fsr value
410Sstevel@tonic-gate	ld	[%sp+ARGPUSH], %o0	! load into register
420Sstevel@tonic-gate	and	%o1, %o4, %o1		! generate new fsr value
430Sstevel@tonic-gate	andn	%o0, %o4, %o2
440Sstevel@tonic-gate	or	%o1, %o2, %o1
450Sstevel@tonic-gate	st	%o1, [%sp+ARGPUSH]	! move new fsr value to memory
460Sstevel@tonic-gate	ld	[%sp+ARGPUSH], %fsr	! load fsr with new value
470Sstevel@tonic-gate	and	%o0, %o4, %o0		! mask off bits of interest in old fsr
480Sstevel@tonic-gate	srl	%o0, 5, %o0		! return old accrued exception value
490Sstevel@tonic-gate	retl
500Sstevel@tonic-gate	add	%sp, SA(MINFRAME), %sp	! reclaim stack space
510Sstevel@tonic-gate
520Sstevel@tonic-gate	SET_SIZE(fpsetsticky)
53