1/* Internal testing support for rounding for decimal float. 2 3 Copyright (C) 2005-2020 Free Software Foundation, Inc. 4 5 This file is part of GCC. 6 7 GCC is free software; you can redistribute it and/or modify it 8 under the terms of the GNU General Public License as published by 9 the Free Software Foundation; either version 3, or (at your option) 10 any later version. 11 12 GCC is distributed in the hope that it will be useful, but WITHOUT 13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY 14 or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public 15 License for more details. 16 17Under Section 7 of GPL version 3, you are granted additional 18permissions described in the GCC Runtime Library Exception, version 193.1, as published by the Free Software Foundation. 20 21You should have received a copy of the GNU General Public License and 22a copy of the GCC Runtime Library Exception along with this program; 23see the files COPYING3 and COPYING.RUNTIME respectively. If not, see 24<http://www.gnu.org/licenses/>. */ 25 26#include "dconfig.h" 27#include "decContext.h" 28#include "decRound.h" 29 30/* Internal, non-documented functions for testing libgcc functions. 31 This support is not sufficient for application use. */ 32 33#define FE_DEC_DOWNWARD 0 34#define FE_DEC_TONEAREST 1 35#define FE_DEC_TONEARESTFROMZERO 2 36#define FE_DEC_TOWARDZERO 3 37#define FE_DEC_UPWARD 4 38#define FE_DEC_MAX 5 39 40static enum rounding __dfp_rounding_mode = DEC_ROUND_HALF_EVEN; 41 42/* Set the decNumber rounding mode from the FE_DEC_* value in MODE. */ 43 44void 45__dfp_set_round (int mode) 46{ 47 switch (mode) 48 { 49 case FE_DEC_DOWNWARD: 50 __dfp_rounding_mode = DEC_ROUND_FLOOR; break; 51 case FE_DEC_TONEAREST: 52 __dfp_rounding_mode = DEC_ROUND_HALF_EVEN; break; 53 case FE_DEC_TONEARESTFROMZERO: 54 __dfp_rounding_mode = DEC_ROUND_HALF_UP; break; 55 case FE_DEC_TOWARDZERO: 56 __dfp_rounding_mode = DEC_ROUND_DOWN; break; 57 case FE_DEC_UPWARD: 58 __dfp_rounding_mode = DEC_ROUND_CEILING; break; 59 default: 60 /* We can't use assert in libgcc, so just return the default mode. */ 61 __dfp_rounding_mode = DEC_ROUND_HALF_EVEN; break; 62 } 63} 64 65/* Return the decNumber rounding mode as an FE_DEC_* value. */ 66 67int 68__dfp_get_round (void) 69{ 70 int mode; 71 72 switch (__dfp_rounding_mode) 73 { 74 case DEC_ROUND_FLOOR: 75 mode = FE_DEC_DOWNWARD; break; 76 case DEC_ROUND_HALF_EVEN: 77 mode = FE_DEC_TONEAREST; break; 78 case DEC_ROUND_HALF_UP: 79 mode = FE_DEC_TONEARESTFROMZERO; break; 80 case DEC_ROUND_DOWN: 81 mode = FE_DEC_TOWARDZERO; break; 82 case DEC_ROUND_CEILING: 83 mode = FE_DEC_UPWARD; break; 84 default: 85 /* We shouldn't get here, but can't use assert in libgcc. */ 86 mode = -1; 87 } 88 return mode; 89} 90 91/* Return the decNumber version of the current rounding mode. */ 92 93enum rounding 94__decGetRound (void) 95{ 96 return __dfp_rounding_mode; 97} 98