xref: /onnv-gate/usr/src/lib/libc/i386/fp/fpcw.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
5*7298SMark.J.Nelson@Sun.COM * Common Development and Distribution License (the "License").
6*7298SMark.J.Nelson@Sun.COM * 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/*
220Sstevel@tonic-gate * Copyright 2004 Sun Microsystems, Inc.  All rights reserved.
230Sstevel@tonic-gate * Use is subject to license terms.
240Sstevel@tonic-gate */
250Sstevel@tonic-gate
26*7298SMark.J.Nelson@Sun.COM	.file	"fpcw.s"
270Sstevel@tonic-gate
280Sstevel@tonic-gate#include <SYS.h>
290Sstevel@tonic-gate
300Sstevel@tonic-gate	ENTRY(_getcw)
310Sstevel@tonic-gate	movl	4(%esp),%eax
320Sstevel@tonic-gate	fstcw	(%eax)
330Sstevel@tonic-gate	ret
340Sstevel@tonic-gate	SET_SIZE(_getcw)
350Sstevel@tonic-gate
360Sstevel@tonic-gate	ENTRY(_putcw)
370Sstevel@tonic-gate	fldcw	4(%esp)
380Sstevel@tonic-gate	ret
390Sstevel@tonic-gate	SET_SIZE(_putcw)
400Sstevel@tonic-gate
410Sstevel@tonic-gate	ENTRY(_getsw)
420Sstevel@tonic-gate	movl	4(%esp),%eax
430Sstevel@tonic-gate	fstsw	(%eax)
440Sstevel@tonic-gate	ret
450Sstevel@tonic-gate	SET_SIZE(_getsw)
460Sstevel@tonic-gate
470Sstevel@tonic-gate	ENTRY(_putsw)
480Sstevel@tonic-gate	movl	4(%esp),%ecx
490Sstevel@tonic-gate	andl	$0x3f,%ecx
500Sstevel@tonic-gate	jnz	1f
510Sstevel@tonic-gate	fnclex
520Sstevel@tonic-gate	ret
530Sstevel@tonic-gate1:
540Sstevel@tonic-gate	fnstsw	%ax
550Sstevel@tonic-gate	subl	$28,%esp
560Sstevel@tonic-gate	fnstenv	(%esp)
570Sstevel@tonic-gate	andw	$0xffc0,%ax
580Sstevel@tonic-gate	orw	%ax,%cx
590Sstevel@tonic-gate	movw	%cx,4(%esp)
600Sstevel@tonic-gate	fldenv	(%esp)
610Sstevel@tonic-gate	addl	$28,%esp
620Sstevel@tonic-gate	ret
630Sstevel@tonic-gate	SET_SIZE(_putsw)
640Sstevel@tonic-gate
650Sstevel@tonic-gate	ENTRY(_getmxcsr)
660Sstevel@tonic-gate	movl	4(%esp),%eax
670Sstevel@tonic-gate	stmxcsr	(%eax)
680Sstevel@tonic-gate	ret
690Sstevel@tonic-gate	SET_SIZE(_getmxcsr)
700Sstevel@tonic-gate
710Sstevel@tonic-gate	ENTRY(_putmxcsr)
720Sstevel@tonic-gate	ldmxcsr	4(%esp)
730Sstevel@tonic-gate	ret
740Sstevel@tonic-gate	SET_SIZE(_putmxcsr)
75