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