1  /* roundevenl() - S390 version.
       2     Copyright (C) 2019-2023 Free Software Foundation, Inc.
       3  
       4     This file is part of the GNU C Library.
       5  
       6     The GNU C Library is free software; you can redistribute it and/or
       7     modify it under the terms of the GNU Lesser General Public License as
       8     published by the Free Software Foundation; either version 2.1 of the
       9     License, or (at your option) any later version.
      10  
      11     The GNU C Library is distributed in the hope that it will be useful,
      12     but WITHOUT ANY WARRANTY; without even the implied warranty of
      13     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
      14     Lesser General Public License for more details.
      15  
      16     You should have received a copy of the GNU Lesser General Public
      17     License along with the GNU C Library; if not, see
      18     <https://www.gnu.org/licenses/>.  */
      19  
      20  #ifdef HAVE_S390_MIN_Z196_ZARCH_ASM_SUPPORT
      21  # define NO_MATH_REDIRECT
      22  # include <math.h>
      23  # include <math_private.h>
      24  # include <libm-alias-ldouble.h>
      25  
      26  _Float128
      27  __roundevenl (_Float128 x)
      28  {
      29    _Float128 y;
      30    /* The z196 zarch "load fp integer" (fixbra) instruction is rounding
      31       x to the nearest integer with "ties to even" rounding mode
      32       (M3-field: 4) where inexact exceptions are suppressed (M4-field: 4).  */
      33    __asm__ ("fixbra %0,4,%1,4" : "=f" (y) : "f" (x));
      34    return y;
      35  }
      36  libm_alias_ldouble (__roundeven, roundeven)
      37  
      38  #else
      39  # include <sysdeps/ieee754/ldbl-128/s_roundevenl.c>
      40  #endif