1 /* roundevenl() - S390 version. 2 Copyright (C) 2019-2022 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 __roundevenl(_Float128 x)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 41