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             case 0x9672:
  88               cpu = "g5";
  89               break;
  90             case 0x2064:
  91             case 0x2066:
  92               cpu = "z900";
  93               break;
  94             case 0x2084:
  95             case 0x2086:
  96               cpu = "z990";
  97               break;
  98             case 0x2094:
  99             case 0x2096:
 100               cpu = "z9-109";
 101               is_cpu_z9_109 = 1;
 102               break;
 103             case 0x2097:
 104             case 0x2098:
 105               cpu = "z10";
 106               break;
 107             case 0x2817:
 108             case 0x2818:
 109               cpu = "z196";
 110               break;
 111             case 0x2827:
 112             case 0x2828:
 113               cpu = "zEC12";
 114               break;
 115             case 0x2964:
 116               cpu = "z13";
 117               break;
 118             }
 119         }
 120       if (has_features == 0 && strncmp (buf, "features", 8) == 0)
 121         {
 122           const char *p;
 123
 124           p = strchr (buf, ':');
 125           if (p == NULL)
 126             continue;
 127           p++;
 128           while (*p != 0)
 129             {
 130               int i;
 131
 132               while (ISSPACE (*p))
 133                 p++;
 134               for (i = 0; !ISSPACE (p[i]) && p[i] != 0; i++)
 135                 ;
 136               if (i == 3 && strncmp (p, "dfp", 3) == 0)
 137                 has_dfp = 1;
 138               else if (i == 2 && strncmp (p, "te", 2) == 0)
 139                 has_te = 1;
 140               else if (i == 2 && strncmp (p, "vx", 2) == 0)
 141                 has_vx = 1;
 142               else if (i == 8 && strncmp (p, "highgprs", 8) == 0)
 143                 has_highgprs = 1;
 144               p += i;
 145             }
 146           has_features = 1;
 147         }
 148     }
 149
 150   fclose (f);
 151
 152   if (cpu == NULL)
 153     return NULL;
 154
 155   if (arch)
 156     {
 157       const char *opt_htm = "";
 158       const char *opt_vx = "";
 159       const char *opt_esa_zarch = "";
 160
 161       /* We may switch off these cpu features but never switch the on
 162          explicitly.  This overrides options specified on the command line.  */
 163       if (!has_te)
 164         opt_htm = " -mno-htm";
 165       if (!has_vx)
 166         opt_vx = " -mno-vx";
 167       /* However, we set -mzarch only if neither -mzarch nor -mesa are used on
 168          the command line.  This allows the user to switch to -mesa manually.
 169       */
 170       if (!has_opt_esa_zarch && has_highgprs)
 171         opt_esa_zarch = " -mzarch";
 172       options = concat (options, opt_htm, opt_vx, opt_esa_zarch, NULL);
 173     }
 174   if (has_dfp && is_cpu_z9_109)
 175     cpu = "z9-ec";
 176
 177   return concat ("-m", argv[0], "=", cpu, options, NULL);
 178 }