gcc/config/s390/driver-native.c

   1 /* Subroutines for the gcc driver.
   2    Copyright (C) 2015 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 #include "config.h"
  21 #include "system.h"
  22 #include "coretypes.h"
  23 #include "tm.h"
  24
  25 /* This will be called by the spec parser in gcc.c when it sees
  26    a %:local_cpu_detect(args) construct.  Currently it will be called
  27    with either "arch" or "tune" as argument depending on if -march=native
  28    or -mtune=native is to be substituted.
  29
  30    It returns a string containing new command line parameters to be
  31    put at the place of the above two options, depending on what CPU
  32    this is executed.  E.g. "-march=zEC12" on a zEC12 for -march=native.
  33    If the routine can't detect a known processor, the -march or -mtune
  34    option is discarded.
  35
  36    ARGC and ARGV are set depending on the actual arguments given
  37    in the spec.  */
  38 const char *
  39 s390_host_detect_local_cpu (int argc, const char **argv)
  40 {
  41   const char *cpu = NULL;
  42   char buf[256];
  43   FILE *f;
  44   bool arch;
  45   const char *options = "";
  46   unsigned int has_features;
  47   unsigned int has_processor;
  48   unsigned int is_cpu_z9_109 = 0;
  49   unsigned int has_highgprs = 0;
  50   unsigned int has_dfp = 0;
  51   unsigned int has_te = 0;
  52   unsigned int has_vx = 0;
  53   unsigned int has_opt_esa_zarch = 0;
  54   int i;
  55
  56   if (argc < 1)
  57     return NULL;
  58
  59   arch = strcmp (argv[0], "arch") == 0;
  60   if (!arch && strcmp (argv[0], "tune"))
  61     return NULL;
  62   for (i = 1; i < argc; i++)
  63     if (strcmp (argv[i], "mesa_mzarch") == 0)
  64       has_opt_esa_zarch = 1;
  65
  66   f = fopen ("/proc/cpuinfo", "r");
  67   if (f == NULL)
  68     return NULL;
  69
  70   for (has_features = 0, has_processor = 0;
  71        (has_features == 0 || has_processor == 0)
  72          && fgets (buf, sizeof (buf), f) != NULL; )
  73     {
  74       if (has_processor == 0 && strncmp (buf, "processor", 9) == 0)
  75         {
  76           const char *p;
  77           long machine_id;
  78
  79           p = strstr (buf, "machine = ");
  80           if (p == NULL)
  81             continue;
  82           p += 10;
  83           has_processor = 1;
  84           machine_id = strtol (p, NULL, 16);
  85           switch (machine_id)
  86             {
  87               /* g5 and g6 default to z900 */
  88             case 0x9672:
  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               cpu = "z13";
 116               break;
 117             }
 118         }
 119       if (has_features == 0 && strncmp (buf, "features", 8) == 0)
 120         {
 121           const char *p;
 122
 123           p = strchr (buf, ':');
 124           if (p == NULL)
 125             continue;
 126           p++;
 127           while (*p != 0)
 128             {
 129               int i;
 130
 131               while (ISSPACE (*p))
 132                 p++;
 133               for (i = 0; !ISSPACE (p[i]) && p[i] != 0; i++)
 134                 ;
 135               if (i == 3 && strncmp (p, "dfp", 3) == 0)
 136                 has_dfp = 1;
 137               else if (i == 2 && strncmp (p, "te", 2) == 0)
 138                 has_te = 1;
 139               else if (i == 2 && strncmp (p, "vx", 2) == 0)
 140                 has_vx = 1;
 141               else if (i == 8 && strncmp (p, "highgprs", 8) == 0)
 142                 has_highgprs = 1;
 143               p += i;
 144             }
 145           has_features = 1;
 146         }
 147     }
 148
 149   fclose (f);
 150
 151   if (cpu == NULL)
 152     return NULL;
 153
 154   if (arch)
 155     {
 156       const char *opt_htm = "";
 157       const char *opt_vx = "";
 158       const char *opt_esa_zarch = "";
 159
 160       /* We may switch off these cpu features but never switch the on
 161          explicitly.  This overrides options specified on the command line.  */
 162       if (!has_te)
 163         opt_htm = " -mno-htm";
 164       if (!has_vx)
 165         opt_vx = " -mno-vx";
 166       /* However, we set -mzarch only if neither -mzarch nor -mesa are used on
 167          the command line.  This allows the user to switch to -mesa manually.
 168       */
 169       if (!has_opt_esa_zarch && has_highgprs)
 170         opt_esa_zarch = " -mzarch";
 171       options = concat (options, opt_htm, opt_vx, opt_esa_zarch, NULL);
 172     }
 173   if (has_dfp && is_cpu_z9_109)
 174     cpu = "z9-ec";
 175
 176   return concat ("-m", argv[0], "=", cpu, options, NULL);
 177 }