1 /* Temporary support for a libc-like fp environment for decimal float.
2 Copyright (C) 2005 Free Software Foundation, Inc.
4 This file is part of GCC.
6 GCC is free software; you can redistribute it and/or modify it under
7 the terms of the GNU General Public License as published by the Free
8 Software Foundation; either version 2, or (at your option) any later
11 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
12 WARRANTY; without even the implied warranty of MERCHANTABILITY or
13 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
16 You should have received a copy of the GNU General Public License
17 along with GCC; see the file COPYING. If not, write to the Free
18 Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
21 #include "decContext.h"
23 #define FE_DEC_DOWNWARD 0
24 #define FE_DEC_TONEAREST 1
25 #define FE_DEC_TONEARESTFROMZERO 2
26 #define FE_DEC_TOWARDZERO 3
27 #define FE_DEC_UPWARD 4
30 extern void __dfp_set_round (int);
31 extern int __dfp_get_round (void);
32 extern enum rounding
__decGetRound (void);
34 /* FIXME: these should be in thread-local storage for runtime support. */
35 static enum rounding __dfp_rounding_mode
= DEC_ROUND_HALF_EVEN
;
37 /* Set the decNumber rounding mode from the FE_DEC_* value in MODE. */
40 __dfp_set_round (int mode
)
45 __dfp_rounding_mode
= DEC_ROUND_FLOOR
; break;
46 case FE_DEC_TONEAREST
:
47 __dfp_rounding_mode
= DEC_ROUND_HALF_EVEN
; break;
48 case FE_DEC_TONEARESTFROMZERO
:
49 __dfp_rounding_mode
= DEC_ROUND_HALF_UP
; break;
50 case FE_DEC_TOWARDZERO
:
51 __dfp_rounding_mode
= DEC_ROUND_DOWN
; break;
53 __dfp_rounding_mode
= DEC_ROUND_CEILING
; break;
55 /* We can't use assert in libgcc, so just return the default mode. */
56 __dfp_rounding_mode
= DEC_ROUND_HALF_EVEN
; break;
60 /* Return the decNumber rounding mode as an FE_DEC_* value. */
63 __dfp_get_round (void)
67 switch (__dfp_rounding_mode
)
70 mode
= FE_DEC_DOWNWARD
; break;
71 case DEC_ROUND_HALF_EVEN
:
72 mode
= FE_DEC_TONEAREST
; break;
73 case DEC_ROUND_HALF_UP
:
74 mode
= FE_DEC_TONEARESTFROMZERO
; break;
76 mode
= FE_DEC_TOWARDZERO
; break;
77 case DEC_ROUND_CEILING
:
78 mode
= FE_DEC_UPWARD
; break;
80 /* We shouldn't get here, but can't use assert in libgcc. */
86 /* Return the decNumber version of the current rounding mode. */
91 return __dfp_rounding_mode
;