xref: /titanic_44/usr/src/lib/libc/amd64/fp/ieee.c (revision 5a172a1e0f9068ec8db35fa123baecf7bd540eb5)
1*5a172a1eSDan McDonald /*
2*5a172a1eSDan McDonald  * CDDL HEADER START
3*5a172a1eSDan McDonald  *
4*5a172a1eSDan McDonald  * The contents of this file are subject to the terms of the
5*5a172a1eSDan McDonald  * Common Development and Distribution License (the "License").
6*5a172a1eSDan McDonald  * You may not use this file except in compliance with the License.
7*5a172a1eSDan McDonald  *
8*5a172a1eSDan McDonald  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
9*5a172a1eSDan McDonald  * or http://www.opensolaris.org/os/licensing.
10*5a172a1eSDan McDonald  * See the License for the specific language governing permissions
11*5a172a1eSDan McDonald  * and limitations under the License.
12*5a172a1eSDan McDonald  *
13*5a172a1eSDan McDonald  * When distributing Covered Code, include this CDDL HEADER in each
14*5a172a1eSDan McDonald  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
15*5a172a1eSDan McDonald  * If applicable, add the following below this CDDL HEADER, with the
16*5a172a1eSDan McDonald  * fields enclosed by brackets "[]" replaced with your own identifying
17*5a172a1eSDan McDonald  * information: Portions Copyright [yyyy] [name of copyright owner]
18*5a172a1eSDan McDonald  *
19*5a172a1eSDan McDonald  * CDDL HEADER END
20*5a172a1eSDan McDonald  */
21*5a172a1eSDan McDonald 
22*5a172a1eSDan McDonald /*
23*5a172a1eSDan McDonald  * Copyright 2008 Sun Microsystems, Inc.  All rights reserved.
24*5a172a1eSDan McDonald  * Use is subject to license terms.
25*5a172a1eSDan McDonald  */
26*5a172a1eSDan McDonald 
27*5a172a1eSDan McDonald #include "lint.h"
28*5a172a1eSDan McDonald #include "base_conversion.h"
29*5a172a1eSDan McDonald #include <sys/isa_defs.h>
30*5a172a1eSDan McDonald 
31*5a172a1eSDan McDonald #define	CSR_DEFAULT 0x1f80
32*5a172a1eSDan McDonald 
33*5a172a1eSDan McDonald /*
34*5a172a1eSDan McDonald  * Returns IEEE mode/status and
35*5a172a1eSDan McDonald  * sets up standard environment for base conversion.
36*5a172a1eSDan McDonald  */
37*5a172a1eSDan McDonald void
__get_ieee_flags(__ieee_flags_type * b)38*5a172a1eSDan McDonald __get_ieee_flags(__ieee_flags_type *b) {
39*5a172a1eSDan McDonald 	extern void _getmxcsr(), _putmxcsr();
40*5a172a1eSDan McDonald 
41*5a172a1eSDan McDonald 	_getmxcsr(&b->status);
42*5a172a1eSDan McDonald 
43*5a172a1eSDan McDonald 	/* round-to-nearest, all exceptions masked, gradual underflow */
44*5a172a1eSDan McDonald 	_putmxcsr(CSR_DEFAULT);
45*5a172a1eSDan McDonald }
46*5a172a1eSDan McDonald 
47*5a172a1eSDan McDonald /*
48*5a172a1eSDan McDonald  * Restores previous IEEE mode/status
49*5a172a1eSDan McDonald  */
50*5a172a1eSDan McDonald void
__set_ieee_flags(__ieee_flags_type * b)51*5a172a1eSDan McDonald __set_ieee_flags(__ieee_flags_type *b) {
52*5a172a1eSDan McDonald 	extern void _putmxcsr();
53*5a172a1eSDan McDonald 
54*5a172a1eSDan McDonald 	_putmxcsr(b->status);
55*5a172a1eSDan McDonald }
56