1/* Subroutines for the D front end on the HPPA architecture. 2 Copyright (C) 2018-2022 Free Software Foundation, Inc. 3 4GCC is free software; you can redistribute it and/or modify 5it under the terms of the GNU General Public License as published by 6the Free Software Foundation; either version 3, or (at your option) 7any later version. 8 9GCC is distributed in the hope that it will be useful, 10but WITHOUT ANY WARRANTY; without even the implied warranty of 11MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 12GNU General Public License for more details. 13 14You should have received a copy of the GNU General Public License 15along 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 "target.h" 24#include "tm_d.h" 25#include "d/d-target.h" 26#include "d/d-target-def.h" 27 28/* Implement TARGET_D_CPU_VERSIONS for HPPA targets. */ 29 30void 31pa_d_target_versions (void) 32{ 33 if (TARGET_64BIT) 34 d_add_builtin_version ("HPPA64"); 35 else 36 d_add_builtin_version ("HPPA"); 37 38 if (TARGET_SOFT_FLOAT) 39 d_add_builtin_version ("D_SoftFloat"); 40 else 41 d_add_builtin_version ("D_HardFloat"); 42} 43 44/* Handle a call to `__traits(getTargetInfo, "floatAbi")'. */ 45 46static tree 47pa_d_handle_target_float_abi (void) 48{ 49 const char *abi; 50 51 if (TARGET_SOFT_FLOAT) 52 abi = "soft"; 53 else 54 abi = "hard"; 55 56 return build_string_literal (strlen (abi) + 1, abi); 57} 58 59/* Handle a call to `__traits(getTargetInfo, "objectFormat")'. */ 60 61static tree 62pa_d_handle_target_object_format (void) 63{ 64 const char *objfmt = NULL; 65 66 if (TARGET_SOM) 67 objfmt = "som"; 68 69 if (objfmt == NULL) 70 return NULL_TREE; 71 72 return build_string_literal (strlen (objfmt) + 1, objfmt); 73} 74 75/* Implement TARGET_D_REGISTER_CPU_TARGET_INFO. */ 76 77void 78pa_d_register_target_info (void) 79{ 80 const struct d_target_info_spec handlers[] = { 81 { "floatAbi", pa_d_handle_target_float_abi }, 82 { "objectFormat", pa_d_handle_target_object_format }, 83 { NULL, NULL }, 84 }; 85 86 d_add_target_info_handlers (handlers); 87} 88