]>
Commit | Line | Data |
---|---|---|
56e6b4a2 | 1 | /* Subroutines for the gcc driver. |
7adcbafe | 2 | Copyright (C) 2011-2022 Free Software Foundation, Inc. |
56e6b4a2 RO |
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 | ||
8fcc61f8 RS |
20 | #define IN_TARGET_CODE 1 |
21 | ||
56e6b4a2 RO |
22 | #include "config.h" |
23 | #include "system.h" | |
24 | #include "coretypes.h" | |
25 | #include "tm.h" | |
26 | ||
27 | static const struct cpu_names { | |
28 | const char *const name; | |
29 | const char *const cpu; | |
30 | } cpu_names[] = { | |
31 | #if defined __sun__ && defined __svr4__ | |
32 | { "TMS390S10", "supersparc" }, /* Texas Instruments microSPARC I */ | |
33 | { "TMS390Z50", "supersparc" }, /* Texas Instruments SuperSPARC I */ | |
34 | { "TMS390Z55", "supersparc" }, /* Texas Instruments | |
35 | SuperSPARC I with SuperCache */ | |
36 | { "MB86904", "supersparc" }, /* Fujitsu microSPARC II */ | |
37 | { "MB86907", "supersparc" }, /* Fujitsu TurboSPARC */ | |
38 | { "RT623", "hypersparc" }, /* Ross hyperSPARC */ | |
39 | { "RT625", "hypersparc" }, | |
40 | { "RT626", "hypersparc" }, | |
41 | { "UltraSPARC-I", "ultrasparc" }, | |
42 | { "UltraSPARC-II", "ultrasparc" }, | |
43 | { "UltraSPARC-IIe", "ultrasparc" }, | |
44 | { "UltraSPARC-IIi", "ultrasparc" }, | |
45 | { "SPARC64-III", "ultrasparc" }, | |
46 | { "SPARC64-IV", "ultrasparc" }, | |
47 | { "UltraSPARC-III", "ultrasparc3" }, | |
48 | { "UltraSPARC-III+", "ultrasparc3" }, | |
49 | { "UltraSPARC-IIIi", "ultrasparc3" }, | |
50 | { "UltraSPARC-IIIi+", "ultrasparc3" }, | |
51 | { "UltraSPARC-IV", "ultrasparc3" }, | |
52 | { "UltraSPARC-IV+", "ultrasparc3" }, | |
53 | { "SPARC64-V", "ultrasparc3" }, | |
54 | { "SPARC64-VI", "ultrasparc3" }, | |
55 | { "SPARC64-VII", "ultrasparc3" }, | |
56 | { "UltraSPARC-T1", "niagara" }, | |
57 | { "UltraSPARC-T2", "niagara2" }, | |
58 | { "UltraSPARC-T2", "niagara2" }, | |
59 | { "UltraSPARC-T2+", "niagara2" }, | |
3e64c239 DM |
60 | { "SPARC-T3", "niagara3" }, |
61 | { "SPARC-T4", "niagara4" }, | |
280cace4 | 62 | { "SPARC-T5", "niagara4" }, |
56e6b4a2 | 63 | #else |
1de6359c | 64 | { "SuperSparc", "supersparc" }, |
0913b2d6 DM |
65 | { "HyperSparc", "hypersparc" }, |
66 | { "SpitFire", "ultrasparc" }, | |
67 | { "BlackBird", "ultrasparc" }, | |
68 | { "Sabre", "ultrasparc" }, | |
69 | { "Hummingbird", "ultrasparc" }, | |
70 | { "Cheetah", "ultrasparc3" }, | |
71 | { "Jalapeno", "ultrasparc3" }, | |
72 | { "Jaguar", "ultrasparc3" }, | |
73 | { "Panther", "ultrasparc3" }, | |
74 | { "Serrano", "ultrasparc3" }, | |
75 | { "UltraSparc T1", "niagara" }, | |
76 | { "UltraSparc T2", "niagara2" }, | |
3e64c239 DM |
77 | { "UltraSparc T3", "niagara3" }, |
78 | { "UltraSparc T4", "niagara4" }, | |
280cace4 | 79 | { "UltraSparc T5", "niagara4" }, |
8b1785f0 | 80 | { "LEON", "leon3" }, |
56e6b4a2 | 81 | #endif |
379aea72 JM |
82 | { "SPARC-M7", "niagara7" }, |
83 | { "SPARC-S7", "niagara7" }, | |
bcc3c3f1 | 84 | { "SPARC-M8", "m8" }, |
56e6b4a2 RO |
85 | { NULL, NULL } |
86 | }; | |
87 | ||
88 | #if defined __sun__ && defined __svr4__ | |
89 | #include <kstat.h> | |
90 | #endif | |
91 | ||
92 | /* This will be called by the spec parser in gcc.c when it sees | |
93 | a %:local_cpu_detect(args) construct. Currently it will be called | |
94 | with either "cpu" or "tune" as argument depending on if -mcpu=native | |
95 | or -mtune=native is to be substituted. | |
96 | ||
97 | It returns a string containing new command line parameters to be | |
98 | put at the place of the above two options, depending on what CPU | |
99 | this is executed. E.g. "-mcpu=ultrasparc3" on an UltraSPARC III for | |
100 | -mcpu=native. If the routine can't detect a known processor, | |
101 | the -mcpu or -mtune option is discarded. | |
102 | ||
103 | ARGC and ARGV are set depending on the actual arguments given | |
104 | in the spec. */ | |
105 | const char * | |
106 | host_detect_local_cpu (int argc, const char **argv) | |
107 | { | |
108 | const char *cpu = NULL; | |
109 | #if defined __sun__ && defined __svr4__ | |
110 | char *buf = NULL; | |
111 | kstat_ctl_t *kc; | |
112 | kstat_t *ksp; | |
113 | kstat_named_t *brand = NULL; | |
114 | #else | |
115 | char buf[128]; | |
116 | FILE *f; | |
117 | #endif | |
118 | int i; | |
119 | ||
120 | if (argc < 1) | |
121 | return NULL; | |
122 | ||
123 | if (strcmp (argv[0], "cpu") && strcmp (argv[0], "tune")) | |
124 | return NULL; | |
125 | ||
126 | #if defined __sun__ && defined __svr4__ | |
127 | kc = kstat_open (); | |
128 | if (kc != NULL) | |
129 | { | |
130 | ksp = kstat_lookup (kc, CONST_CAST2 (char *, const char *, "cpu_info"), | |
131 | -1, NULL); | |
132 | if (ksp != NULL | |
133 | && kstat_read (kc, ksp, NULL) != -1 | |
134 | && ksp->ks_type == KSTAT_TYPE_NAMED) | |
135 | brand = (kstat_named_t *) | |
136 | kstat_data_lookup (ksp, CONST_CAST2 (char *, const char *, "brand")); | |
56e6b4a2 RO |
137 | if (brand != NULL && brand->data_type == KSTAT_DATA_STRING) |
138 | buf = KSTAT_NAMED_STR_PTR (brand); | |
56e6b4a2 RO |
139 | } |
140 | kstat_close (kc); | |
141 | ||
142 | for (i = 0; cpu_names[i].name != NULL; i++) | |
143 | if (strcmp (buf, cpu_names[i].name) == 0) | |
144 | cpu = cpu_names[i].cpu; | |
145 | #else | |
146 | f = fopen ("/proc/cpuinfo", "r"); | |
147 | if (f == NULL) | |
148 | return NULL; | |
149 | ||
150 | while (fgets (buf, sizeof (buf), f) != NULL) | |
c0129e2d | 151 | if (startswith (buf, "cpu\t\t:")) |
56e6b4a2 RO |
152 | { |
153 | for (i = 0; cpu_names [i].name; i++) | |
154 | if (strstr (buf, cpu_names [i].name) != NULL) | |
155 | { | |
156 | cpu = cpu_names [i].cpu; | |
157 | break; | |
158 | } | |
159 | break; | |
160 | } | |
161 | ||
162 | fclose (f); | |
163 | #endif | |
164 | ||
165 | if (cpu == NULL) | |
166 | return NULL; | |
167 | ||
168 | return concat ("-m", argv[0], "=", cpu, NULL); | |
169 | } |