1 /* Subroutines for the D front end on the SPARC architecture.
2    Copyright (C) 2017-2021 Free Software Foundation, Inc.
3 
4 GCC is free software; you can redistribute it and/or modify
5 it under the terms of the GNU General Public License as published by
6 the Free Software Foundation; either version 3, or (at your option)
7 any later version.
8 
9 GCC is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
12 GNU General Public License for more details.
13 
14 You should have received a copy of the GNU General Public License
15 along with GCC; see the file COPYING3.  If not see
16 <http://www.gnu.org/licenses/>.  */
17 
18 #define IN_TARGET_CODE 1
19 
20 #include "config.h"
21 #include "system.h"
22 #include "coretypes.h"
23 #include "tm.h"
24 #include "d/d-target.h"
25 #include "d/d-target-def.h"
26 
27 /* Implement TARGET_D_CPU_VERSIONS for SPARC targets.  */
28 
29 void
sparc_d_target_versions(void)30 sparc_d_target_versions (void)
31 {
32   if (TARGET_64BIT)
33     d_add_builtin_version ("SPARC64");
34   else
35     d_add_builtin_version ("SPARC");
36 
37   if (TARGET_V8PLUS)
38     d_add_builtin_version ("SPARC_V8Plus");
39 
40   if (TARGET_FPU)
41     {
42       d_add_builtin_version ("D_HardFloat");
43       d_add_builtin_version ("SPARC_HardFloat");
44     }
45   else
46     {
47       d_add_builtin_version ("D_SoftFloat");
48       d_add_builtin_version ("SPARC_SoftFloat");
49     }
50 }
51 
52 /* Handle a call to `__traits(getTargetInfo, "floatAbi")'.  */
53 
54 static tree
sparc_d_handle_target_float_abi(void)55 sparc_d_handle_target_float_abi (void)
56 {
57   const char *abi;
58 
59   if (TARGET_FPU)
60     abi = "hard";
61   else
62     abi = "soft";
63 
64   return build_string_literal (strlen (abi) + 1, abi);
65 }
66 
67 /* Implement TARGET_D_REGISTER_CPU_TARGET_INFO.  */
68 
69 void
sparc_d_register_target_info(void)70 sparc_d_register_target_info (void)
71 {
72   const struct d_target_info_spec handlers[] = {
73     { "floatAbi", sparc_d_handle_target_float_abi },
74     { NULL, NULL },
75   };
76 
77   d_add_target_info_handlers (handlers);
78 }
79