17c478bd9Sstevel@tonic-gate /*
27c478bd9Sstevel@tonic-gate  * CDDL HEADER START
37c478bd9Sstevel@tonic-gate  *
47c478bd9Sstevel@tonic-gate  * The contents of this file are subject to the terms of the
5*7257d1b4Sraf  * Common Development and Distribution License (the "License").
6*7257d1b4Sraf  * You may not use this file except in compliance with the License.
77c478bd9Sstevel@tonic-gate  *
87c478bd9Sstevel@tonic-gate  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
97c478bd9Sstevel@tonic-gate  * or http://www.opensolaris.org/os/licensing.
107c478bd9Sstevel@tonic-gate  * See the License for the specific language governing permissions
117c478bd9Sstevel@tonic-gate  * and limitations under the License.
127c478bd9Sstevel@tonic-gate  *
137c478bd9Sstevel@tonic-gate  * When distributing Covered Code, include this CDDL HEADER in each
147c478bd9Sstevel@tonic-gate  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
157c478bd9Sstevel@tonic-gate  * If applicable, add the following below this CDDL HEADER, with the
167c478bd9Sstevel@tonic-gate  * fields enclosed by brackets "[]" replaced with your own identifying
177c478bd9Sstevel@tonic-gate  * information: Portions Copyright [yyyy] [name of copyright owner]
187c478bd9Sstevel@tonic-gate  *
197c478bd9Sstevel@tonic-gate  * CDDL HEADER END
20*7257d1b4Sraf  */
21*7257d1b4Sraf 
22*7257d1b4Sraf /*
23*7257d1b4Sraf  * Copyright 2008 Sun Microsystems, Inc.  All rights reserved.
247c478bd9Sstevel@tonic-gate  * Use is subject to license terms.
25*7257d1b4Sraf  */
26*7257d1b4Sraf 
27*7257d1b4Sraf /*
287c478bd9Sstevel@tonic-gate  * Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989 AT&T
297c478bd9Sstevel@tonic-gate  * All Rights Reserved
307c478bd9Sstevel@tonic-gate  *
317c478bd9Sstevel@tonic-gate  * Portions of this source code were derived from Berkeley
327c478bd9Sstevel@tonic-gate  * 4.3 BSD under license from the regents of the University of
337c478bd9Sstevel@tonic-gate  * California.
347c478bd9Sstevel@tonic-gate  */
357c478bd9Sstevel@tonic-gate 
367c478bd9Sstevel@tonic-gate /*
377c478bd9Sstevel@tonic-gate  * contains definitions for variables for IEEE floating-point arithmetic
387c478bd9Sstevel@tonic-gate  * modes; IEEE floating-point arithmetic exception handling;
397c478bd9Sstevel@tonic-gate  */
407c478bd9Sstevel@tonic-gate 
41*7257d1b4Sraf #include "lint.h"
427c478bd9Sstevel@tonic-gate #include <thread.h>
437c478bd9Sstevel@tonic-gate #include <synch.h>
447c478bd9Sstevel@tonic-gate #include <mtlib.h>
457c478bd9Sstevel@tonic-gate #include "tsd.h"
467c478bd9Sstevel@tonic-gate 
477c478bd9Sstevel@tonic-gate int __inf_read, __inf_written, __nan_read, __nan_written;
487c478bd9Sstevel@tonic-gate 
497c478bd9Sstevel@tonic-gate /*
507c478bd9Sstevel@tonic-gate  * Per-thread instances (thread-specific data) of the above globals.
517c478bd9Sstevel@tonic-gate  */
527c478bd9Sstevel@tonic-gate typedef struct {
537c478bd9Sstevel@tonic-gate 	int	__inf_read;
547c478bd9Sstevel@tonic-gate 	int	__inf_written;
557c478bd9Sstevel@tonic-gate 	int	__nan_read;
567c478bd9Sstevel@tonic-gate 	int	__nan_written;
577c478bd9Sstevel@tonic-gate } fpvars_t;
587c478bd9Sstevel@tonic-gate 
597c478bd9Sstevel@tonic-gate #define	fpvars	((fpvars_t *)tsdalloc(_T_FP_GET, sizeof (fpvars_t), NULL))
607c478bd9Sstevel@tonic-gate 
617c478bd9Sstevel@tonic-gate int *
_thrp_get_nan_written()62*7257d1b4Sraf _thrp_get_nan_written()
637c478bd9Sstevel@tonic-gate {
64*7257d1b4Sraf 	return (thr_main() ? &__nan_written : &fpvars->__nan_written);
657c478bd9Sstevel@tonic-gate }
667c478bd9Sstevel@tonic-gate 
677c478bd9Sstevel@tonic-gate int *
_thrp_get_nan_read()68*7257d1b4Sraf _thrp_get_nan_read()
697c478bd9Sstevel@tonic-gate {
70*7257d1b4Sraf 	return (thr_main() ? &__nan_read : &fpvars->__nan_read);
717c478bd9Sstevel@tonic-gate }
727c478bd9Sstevel@tonic-gate 
737c478bd9Sstevel@tonic-gate int *
_thrp_get_inf_written()74*7257d1b4Sraf _thrp_get_inf_written()
757c478bd9Sstevel@tonic-gate {
76*7257d1b4Sraf 	return (thr_main() ? &__inf_written : &fpvars->__inf_written);
777c478bd9Sstevel@tonic-gate }
787c478bd9Sstevel@tonic-gate 
797c478bd9Sstevel@tonic-gate int *
_thrp_get_inf_read()80*7257d1b4Sraf _thrp_get_inf_read()
817c478bd9Sstevel@tonic-gate {
82*7257d1b4Sraf 	return (thr_main() ? &__inf_read : &fpvars->__inf_read);
837c478bd9Sstevel@tonic-gate }
84