gcc/config/s390/driver-native.cc

   1 /* Subroutines for the gcc driver.
   2    Copyright (C) 2015-2024 Free Software Foundation, Inc.
   3
   4 This file is part of GCC.
   5
   6 GCC is free software; you can redistribute it and/or modify
   7 it under the terms of the GNU General Public License as published by
   8 the Free Software Foundation; either version 3, or (at your option)
   9 any later version.
  10
  11 GCC is distributed in the hope that it will be useful,
  12 but WITHOUT ANY WARRANTY; without even the implied warranty of
  13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 GNU General Public License for more details.
  15
  16 You should have received a copy of the GNU General Public License
  17 along with GCC; see the file COPYING3.  If not see
  18 <http://www.gnu.org/licenses/>.  */
  19
  20 #define IN_TARGET_CODE 1
  21
  22 #include "config.h"
  23 #include "system.h"
  24 #include "coretypes.h"
  25 #include "tm.h"
  26
  27 /* This will be called by the spec parser in gcc.cc when it sees
  28    a %:local_cpu_detect(args) construct.  Currently it will be called
  29    with either "arch" or "tune" as argument depending on if -march=native
  30    or -mtune=native is to be substituted.
  31
  32    It returns a string containing new command line parameters to be
  33    put at the place of the above two options, depending on what CPU
  34    this is executed.  E.g. "-march=zEC12" on a zEC12 for -march=native.
  35    If the routine can't detect a known processor, the -march or -mtune
  36    option is discarded.
  37
  38    ARGC and ARGV are set depending on the actual arguments given
  39    in the spec.  */
  40 const char *
  41 s390_host_detect_local_cpu (int argc, const char **argv)
  42 {
  43   const char *cpu = NULL;
  44   char buf[256];
  45   FILE *f;
  46   bool arch;
  47   const char *options = "";
  48   unsigned int has_features;
  49   unsigned int has_processor;
  50   unsigned int is_cpu_z9_109 = 0;
  51   unsigned int has_highgprs = 0;
  52   unsigned int has_dfp = 0;
  53   unsigned int has_te = 0;
  54   unsigned int has_vx = 0;
  55   unsigned int has_opt_esa_zarch = 0;
  56   int i;
  57
  58   if (argc < 1)
  59     return NULL;
  60
  61   arch = strcmp (argv[0], "arch") == 0;
  62   if (!arch && strcmp (argv[0], "tune"))
  63     return NULL;
  64   for (i = 1; i < argc; i++)
  65     if (strcmp (argv[i], "mesa_mzarch") == 0)
  66       has_opt_esa_zarch = 1;
  67
  68   f = fopen ("/proc/cpuinfo", "r");
  69   if (f == NULL)
  70     return NULL;
  71
  72   for (has_features = 0, has_processor = 0;
  73        (has_features == 0 || has_processor == 0)
  74          && fgets (buf, sizeof (buf), f) != NULL; )
  75     {
  76       if (has_processor == 0 && startswith (buf, "processor"))
  77         {
  78           const char *p;
  79           long machine_id;
  80
  81           p = strstr (buf, "machine = ");
  82           if (p == NULL)
  83             continue;
  84           p += 10;
  85           has_processor = 1;
  86           machine_id = strtol (p, NULL, 16);
  87           switch (machine_id)
  88             {
  89             case 0x2064:
  90             case 0x2066:
  91               cpu = "z900";
  92               break;
  93             case 0x2084:
  94             case 0x2086:
  95               cpu = "z990";
  96               break;
  97             case 0x2094:
  98             case 0x2096:
  99               cpu = "z9-109";
 100               is_cpu_z9_109 = 1;
 101               break;
 102             case 0x2097:
 103             case 0x2098:
 104               cpu = "z10";
 105               break;
 106             case 0x2817:
 107             case 0x2818:
 108               cpu = "z196";
 109               break;
 110             case 0x2827:
 111             case 0x2828:
 112               cpu = "zEC12";
 113               break;
 114             case 0x2964:
 115             case 0x2965:
 116               cpu = "z13";
 117               break;
 118             case 0x3906:
 119             case 0x3907:
 120               cpu = "z14";
 121               break;
 122             case 0x8561:
 123             case 0x8562:
 124               cpu = "z15";
 125               break;
 126             case 0x3931:
 127             case 0x3932:
 128               cpu = "arch14";
 129               break;
 130             default:
 131               cpu = "arch14";
 132               break;
 133             }
 134         }
 135       if (has_features == 0 && startswith (buf, "features"))
 136         {
 137           const char *p;
 138
 139           p = strchr (buf, ':');
 140           if (p == NULL)
 141             continue;
 142           p++;
 143           while (*p != 0)
 144             {
 145               int i;
 146
 147               while (ISSPACE (*p))
 148                 p++;
 149               for (i = 0; !ISSPACE (p[i]) && p[i] != 0; i++)
 150                 ;
 151               if (i == 3 && startswith (p, "dfp"))
 152                 has_dfp = 1;
 153               else if (i == 2 && startswith (p, "te"))
 154                 has_te = 1;
 155               else if (i == 2 && startswith (p, "vx"))
 156                 has_vx = 1;
 157               else if (i == 8 && startswith (p, "highgprs"))
 158                 has_highgprs = 1;
 159               p += i;
 160             }
 161           has_features = 1;
 162         }
 163     }
 164
 165   fclose (f);
 166
 167   if (cpu == NULL)
 168     return NULL;
 169
 170   if (arch)
 171     {
 172       const char *opt_htm = "";
 173       const char *opt_vx = "";
 174       const char *opt_esa_zarch = "";
 175
 176       /* We may switch off these cpu features but never switch the on
 177          explicitly.  This overrides options specified on the command line.  */
 178       if (!has_te)
 179         opt_htm = " -mno-htm";
 180       if (!has_vx)
 181         opt_vx = " -mno-vx";
 182       /* However, we set -mzarch only if neither -mzarch nor -mesa are used on
 183          the command line.  This allows the user to switch to -mesa manually.
 184       */
 185       if (!has_opt_esa_zarch && has_highgprs)
 186         opt_esa_zarch = " -mzarch";
 187       options = concat (options, opt_htm, opt_vx, opt_esa_zarch, NULL);
 188     }
 189   if (has_dfp && is_cpu_z9_109)
 190     cpu = "z9-ec";
 191
 192   return concat ("-m", argv[0], "=", cpu, options, NULL);
 193 }