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