gcc/config/i386/i386-d.cc

   1 /* Subroutines for the D front end on the x86 architecture.
   2    Copyright (C) 2017-2023 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 x86 targets.  */
  29
  30 void
  31 ix86_d_target_versions (void)
  32 {
  33   if (TARGET_64BIT)
  34     {
  35       d_add_builtin_version ("X86_64");
  36
  37       if (TARGET_X32)
  38         d_add_builtin_version ("D_X32");
  39     }
  40   else
  41     d_add_builtin_version ("X86");
  42
  43   if (TARGET_80387)
  44     d_add_builtin_version ("D_HardFloat");
  45   else
  46     d_add_builtin_version ("D_SoftFloat");
  47 }
  48
  49 /* Handle a call to `__traits(getTargetInfo, "floatAbi")'.  */
  50
  51 static tree
  52 ix86_d_handle_target_float_abi (void)
  53 {
  54   const char *abi;
  55
  56   if (! (TARGET_80387 || TARGET_FLOAT_RETURNS_IN_80387))
  57     abi = "soft";
  58   else
  59     abi = "hard";
  60
  61   return build_string_literal (strlen (abi) + 1, abi);
  62 }
  63
  64 /* Handle a call to `__traits(getTargetInfo, "objectFormat")'.  */
  65
  66 static tree
  67 ix86_d_handle_target_object_format (void)
  68 {
  69   const char *objfmt = NULL;
  70
  71   if (TARGET_MACHO)
  72     objfmt = "macho";
  73   else if (TARGET_COFF || TARGET_PECOFF)
  74     objfmt = "coff";
  75
  76   if (objfmt == NULL)
  77     return NULL_TREE;
  78
  79   return build_string_literal (strlen (objfmt) + 1, objfmt);
  80 }
  81
  82 /* Implement TARGET_D_REGISTER_CPU_TARGET_INFO.  */
  83
  84 void
  85 ix86_d_register_target_info (void)
  86 {
  87   const struct d_target_info_spec handlers[] = {
  88     { "floatAbi", ix86_d_handle_target_float_abi },
  89     { "objectFormat", ix86_d_handle_target_object_format },
  90     { NULL, NULL },
  91   };
  92
  93   d_add_target_info_handlers (handlers);
  94 }
  95
  96 /* Implement TARGET_D_HAS_STDCALL_CONVENTION for x86 targets.  */
  97
  98 bool
  99 ix86_d_has_stdcall_convention (unsigned int *link_system,
 100                                unsigned int *link_windows)
 101 {
 102   if (ix86_abi == MS_ABI)
 103     {
 104       *link_system = 1;
 105       *link_windows = (!TARGET_64BIT) ? 1 : 0;
 106     }
 107   else
 108     {
 109       *link_system = 0;
 110       *link_windows = 0;
 111     }
 112
 113   return true;
 114 }