gcc/config/pa/pa-d.c

   1 /* Subroutines for the D front end on the HPPA architecture.
   2    Copyright (C) 2018-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 "target.h"
  24 #include "d/d-target.h"
  25 #include "d/d-target-def.h"
  26
  27 /* Implement TARGET_D_CPU_VERSIONS for HPPA targets.  */
  28
  29 void
  30 pa_d_target_versions (void)
  31 {
  32   if (TARGET_64BIT)
  33     d_add_builtin_version ("HPPA64");
  34   else
  35     d_add_builtin_version ("HPPA");
  36
  37   if (TARGET_SOFT_FLOAT)
  38     d_add_builtin_version ("D_SoftFloat");
  39   else
  40     d_add_builtin_version ("D_HardFloat");
  41 }
  42
  43 /* Handle a call to `__traits(getTargetInfo, "floatAbi")'.  */
  44
  45 static tree
  46 pa_d_handle_target_float_abi (void)
  47 {
  48   const char *abi;
  49
  50   if (TARGET_SOFT_FLOAT)
  51     abi = "soft";
  52   else
  53     abi = "hard";
  54
  55   return build_string_literal (strlen (abi) + 1, abi);
  56 }
  57
  58 /* Handle a call to `__traits(getTargetInfo, "objectFormat")'.  */
  59
  60 static tree
  61 pa_d_handle_target_object_format (void)
  62 {
  63   const char *objfmt = NULL;
  64
  65   if (TARGET_SOM)
  66     objfmt = "som";
  67
  68   if (objfmt == NULL)
  69     return NULL_TREE;
  70
  71   return build_string_literal (strlen (objfmt) + 1, objfmt);
  72 }
  73
  74 /* Implement TARGET_D_REGISTER_CPU_TARGET_INFO.  */
  75
  76 void
  77 pa_d_register_target_info (void)
  78 {
  79   const struct d_target_info_spec handlers[] = {
  80     { "floatAbi", pa_d_handle_target_float_abi },
  81     { "objectFormat", pa_d_handle_target_object_format },
  82     { NULL, NULL },
  83   };
  84
  85   d_add_target_info_handlers (handlers);
  86 }