usr/src/lib/libm/common/m9x/fenv.c

   1 /*
   2  * CDDL HEADER START
   3  *
   4  * The contents of this file are subject to the terms of the
   5  * Common Development and Distribution License (the "License").
   6  * You may not use this file except in compliance with the License.
   7  *
   8  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
   9  * or http://www.opensolaris.org/os/licensing.
  10  * See the License for the specific language governing permissions
  11  * and limitations under the License.
  12  *
  13  * When distributing Covered Code, include this CDDL HEADER in each
  14  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
  15  * If applicable, add the following below this CDDL HEADER, with the
  16  * fields enclosed by brackets "[]" replaced with your own identifying
  17  * information: Portions Copyright [yyyy] [name of copyright owner]
  18  *
  19  * CDDL HEADER END
  20  */
  21
  22 /*
  23  * Copyright 2011 Nexenta Systems, Inc.  All rights reserved.
  24  */
  25 /*
  26  * Copyright 2006 Sun Microsystems, Inc.  All rights reserved.
  27  * Use is subject to license terms.
  28  */
  29
  30 #pragma weak __fex_merge_flags = fex_merge_flags
  31
  32 #pragma weak __feholdexcept = feholdexcept
  33 #pragma weak __feupdateenv = feupdateenv
  34 #pragma weak __fegetenv = fegetenv
  35 #pragma weak __fesetenv = fesetenv
  36
  37 #pragma weak feupdateenv96 = feupdateenv
  38 #pragma weak fegetenv96 = fegetenv
  39 #pragma weak fesetenv96 = fesetenv
  40
  41 #include <fenv.h>
  42 #include <ucontext.h>
  43 #include <thread.h>
  44 #include "fex_handler.h"
  45 #include "fenv_inlines.h"
  46
  47 const fenv_t __fenv_dfl_env = {
  48         {
  49                 { FEX_NONSTOP, (void(*)())0 },
  50                 { FEX_NONSTOP, (void(*)())0 },
  51                 { FEX_NONSTOP, (void(*)())0 },
  52                 { FEX_NONSTOP, (void(*)())0 },
  53                 { FEX_NONSTOP, (void(*)())0 },
  54                 { FEX_NONSTOP, (void(*)())0 },
  55                 { FEX_NONSTOP, (void(*)())0 },
  56                 { FEX_NONSTOP, (void(*)())0 },
  57                 { FEX_NONSTOP, (void(*)())0 },
  58                 { FEX_NONSTOP, (void(*)())0 },
  59                 { FEX_NONSTOP, (void(*)())0 },
  60                 { FEX_NONSTOP, (void(*)())0 },
  61         },
  62 #ifdef __x86
  63         0x13000000
  64 #else
  65         0
  66 #endif
  67 };
  68
  69 int feholdexcept(fenv_t *p)
  70 {
  71         (void) fegetenv(p);
  72         (void) feclearexcept(FE_ALL_EXCEPT);
  73         return !fex_set_handling(FEX_ALL, FEX_NONSTOP, NULL);
  74 }
  75
  76 int feholdexcept96(fenv_t *p)
  77 {
  78         (void) fegetenv(p);
  79         (void) feclearexcept(FE_ALL_EXCEPT);
  80         return fex_set_handling(FEX_ALL, FEX_NONSTOP, NULL);
  81 }
  82
  83 int feupdateenv(const fenv_t *p)
  84 {
  85         unsigned long   fsr;
  86
  87         __fenv_getfsr(&fsr);
  88         (void) fesetenv(p);
  89         (void) feraiseexcept((int)__fenv_get_ex(fsr));
  90         return 0;
  91 }
  92
  93 int fegetenv(fenv_t *p)
  94 {
  95         fex_getexcepthandler(&p->__handlers, FEX_ALL);
  96         __fenv_getfsr(&p->__fsr);
  97         return 0;
  98 }
  99
 100 int fesetenv(const fenv_t *p)
 101 {
 102         __fenv_setfsr(&p->__fsr);
 103         fex_setexcepthandler(&p->__handlers, FEX_ALL);
 104         return 0;
 105 }
 106
 107 void fex_merge_flags(const fenv_t *p)
 108 {
 109         unsigned long   fsr;
 110
 111         __fenv_getfsr(&fsr);
 112         __fenv_set_ex(fsr, __fenv_get_ex(fsr) | __fenv_get_ex(p->__fsr));
 113         __fenv_setfsr(&fsr);
 114         if (fex_get_log())
 115                 __fex_update_te();
 116 }