1 /* Subroutines for the D front end on the MIPS architecture.
2 Copyright (C) 2017-2022 Free Software Foundation, Inc.
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)
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.
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/>. */
18 #define IN_TARGET_CODE 1
22 #include "coretypes.h"
24 #include "d/d-target.h"
25 #include "d/d-target-def.h"
27 /* Implement TARGET_D_CPU_VERSIONS for MIPS targets. */
30 mips_d_target_versions (void)
33 d_add_builtin_version ("MIPS64");
35 d_add_builtin_version ("MIPS32");
37 if (mips_abi
== ABI_32
)
38 d_add_builtin_version ("MIPS_O32");
39 else if (mips_abi
== ABI_EABI
)
40 d_add_builtin_version ("MIPS_EABI");
41 else if (mips_abi
== ABI_N32
)
42 d_add_builtin_version ("MIPS_N32");
43 else if (mips_abi
== ABI_64
)
44 d_add_builtin_version ("MIPS_N64");
45 else if (mips_abi
== ABI_O64
)
46 d_add_builtin_version ("MIPS_O64");
48 if (TARGET_HARD_FLOAT_ABI
)
50 d_add_builtin_version ("MIPS_HardFloat");
51 d_add_builtin_version ("D_HardFloat");
53 else if (TARGET_SOFT_FLOAT_ABI
)
55 d_add_builtin_version ("MIPS_SoftFloat");
56 d_add_builtin_version ("D_SoftFloat");
60 /* Handle a call to `__traits(getTargetInfo, "floatAbi")'. */
63 mips_d_handle_target_float_abi (void)
67 if (TARGET_HARD_FLOAT_ABI
)
69 else if (TARGET_SOFT_FLOAT_ABI
)
74 return build_string_literal (strlen (abi
) + 1, abi
);
77 /* Implement TARGET_D_REGISTER_CPU_TARGET_INFO. */
80 mips_d_register_target_info (void)
82 const struct d_target_info_spec handlers
[] = {
83 { "floatAbi", mips_d_handle_target_float_abi
},
87 d_add_target_info_handlers (handlers
);