1*f5094284SDan McDonald /* 2*f5094284SDan McDonald * CDDL HEADER START 3*f5094284SDan McDonald * 4*f5094284SDan McDonald * The contents of this file are subject to the terms of the 5*f5094284SDan McDonald * Common Development and Distribution License (the "License"). 6*f5094284SDan McDonald * You may not use this file except in compliance with the License. 7*f5094284SDan McDonald * 8*f5094284SDan McDonald * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE 9*f5094284SDan McDonald * or http://www.opensolaris.org/os/licensing. 10*f5094284SDan McDonald * See the License for the specific language governing permissions 11*f5094284SDan McDonald * and limitations under the License. 12*f5094284SDan McDonald * 13*f5094284SDan McDonald * When distributing Covered Code, include this CDDL HEADER in each 14*f5094284SDan McDonald * file and include the License file at usr/src/OPENSOLARIS.LICENSE. 15*f5094284SDan McDonald * If applicable, add the following below this CDDL HEADER, with the 16*f5094284SDan McDonald * fields enclosed by brackets "[]" replaced with your own identifying 17*f5094284SDan McDonald * information: Portions Copyright [yyyy] [name of copyright owner] 18*f5094284SDan McDonald * 19*f5094284SDan McDonald * CDDL HEADER END 20*f5094284SDan McDonald */ 21*f5094284SDan McDonald 22*f5094284SDan McDonald /* 23*f5094284SDan McDonald * Copyright 2008 Sun Microsystems, Inc. All rights reserved. 24*f5094284SDan McDonald * Use is subject to license terms. 25*f5094284SDan McDonald */ 26*f5094284SDan McDonald 27*f5094284SDan McDonald #include "lint.h" 28*f5094284SDan McDonald #include "base_conversion.h" 29*f5094284SDan McDonald 30*f5094284SDan McDonald /* 31*f5094284SDan McDonald * Returns IEEE mode/status and 32*f5094284SDan McDonald * sets up standard environment for base conversion. 33*f5094284SDan McDonald */ 34*f5094284SDan McDonald void __get_ieee_flags(__ieee_flags_type * b)35*f5094284SDan McDonald__get_ieee_flags(__ieee_flags_type *b) { 36*f5094284SDan McDonald extern void _getcw(), _getsw(), _putcw(); 37*f5094284SDan McDonald int cw; 38*f5094284SDan McDonald 39*f5094284SDan McDonald _getcw(&cw); 40*f5094284SDan McDonald b->mode = cw; 41*f5094284SDan McDonald _getsw(&b->status); 42*f5094284SDan McDonald /* 43*f5094284SDan McDonald * set CW to... 44*f5094284SDan McDonald * RC (bits 10:11) 0 == round to nearest even 45*f5094284SDan McDonald * PC (bits 8:9) 2 == round to double 46*f5094284SDan McDonald * EM (bits 0:5) 0x3f == all exception trapping masked off 47*f5094284SDan McDonald */ 48*f5094284SDan McDonald cw = (cw & ~0xf3f) | 0x23f; 49*f5094284SDan McDonald _putcw(cw); 50*f5094284SDan McDonald } 51*f5094284SDan McDonald 52*f5094284SDan McDonald /* 53*f5094284SDan McDonald * Restores previous IEEE mode/status 54*f5094284SDan McDonald */ 55*f5094284SDan McDonald void __set_ieee_flags(__ieee_flags_type * b)56*f5094284SDan McDonald__set_ieee_flags(__ieee_flags_type *b) { 57*f5094284SDan McDonald extern void _putcw(), _putsw(); 58*f5094284SDan McDonald 59*f5094284SDan McDonald _putcw(b->mode); 60*f5094284SDan McDonald _putsw(b->status); 61*f5094284SDan McDonald } 62