gcc/config/rs6000/rs6000-d.cc

   1 /* Subroutines for the D front end on the PowerPC architecture.
   2    Copyright (C) 2017-2024 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 "tm_d.h"
  25 #include "d/d-target.h"
  26 #include "d/d-target-def.h"
  27
  28 /* Implement TARGET_D_CPU_VERSIONS for PowerPC targets.  */
  29
  30 void
  31 rs6000_d_target_versions (void)
  32 {
  33   if (TARGET_64BIT)
  34     d_add_builtin_version ("PPC64");
  35   else
  36     d_add_builtin_version ("PPC");
  37
  38   if (TARGET_HARD_FLOAT)
  39     {
  40       d_add_builtin_version ("PPC_HardFloat");
  41       d_add_builtin_version ("D_HardFloat");
  42     }
  43   else if (TARGET_SOFT_FLOAT)
  44     {
  45       d_add_builtin_version ("PPC_SoftFloat");
  46       d_add_builtin_version ("D_SoftFloat");
  47     }
  48 }
  49
  50 /* Handle a call to `__traits(getTargetInfo, "floatAbi")'.  */
  51
  52 static tree
  53 rs6000_d_handle_target_float_abi (void)
  54 {
  55   const char *abi;
  56
  57   if (TARGET_HARD_FLOAT)
  58     abi = "hard";
  59   else if (TARGET_SOFT_FLOAT)
  60     abi = "soft";
  61   else
  62     abi = "";
  63
  64   return build_string_literal (strlen (abi) + 1, abi);
  65 }
  66
  67 /* Handle a call to `__traits(getTargetInfo, "objectFormat")'.  */
  68
  69 static tree
  70 rs6000_d_handle_target_object_format (void)
  71 {
  72   const char *objfmt = NULL;
  73
  74   if (TARGET_ELF)
  75     objfmt = "elf";
  76   else if (TARGET_MACHO)
  77     objfmt = "macho";
  78   else if (TARGET_XCOFF)
  79     objfmt = "coff";
  80
  81   if (objfmt == NULL)
  82     return NULL_TREE;
  83
  84   return build_string_literal (strlen (objfmt) + 1, objfmt);
  85 }
  86
  87 /* Implement TARGET_D_REGISTER_CPU_TARGET_INFO.  */
  88
  89 void
  90 rs6000_d_register_target_info (void)
  91 {
  92   const struct d_target_info_spec handlers[] = {
  93     { "floatAbi", rs6000_d_handle_target_float_abi },
  94     { "objectFormat", rs6000_d_handle_target_object_format },
  95     { NULL, NULL },
  96   };
  97
  98   d_add_target_info_handlers (handlers);
  99 }