annotate libcc1/libcp1.cc @ 158:494b0b89df80 default tip

...
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Mon, 25 May 2020 18:13:55 +0900
parents 1830386684a0
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
111
kono
parents:
diff changeset
1 /* The library used by gdb.
145
1830386684a0 gcc-9.2.0
anatofuz
parents: 131
diff changeset
2 Copyright (C) 2014-2020 Free Software Foundation, Inc.
111
kono
parents:
diff changeset
3
kono
parents:
diff changeset
4 This file is part of GCC.
kono
parents:
diff changeset
5
kono
parents:
diff changeset
6 GCC is free software; you can redistribute it and/or modify it under
kono
parents:
diff changeset
7 the terms of the GNU General Public License as published by the Free
kono
parents:
diff changeset
8 Software Foundation; either version 3, or (at your option) any later
kono
parents:
diff changeset
9 version.
kono
parents:
diff changeset
10
kono
parents:
diff changeset
11 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
kono
parents:
diff changeset
12 WARRANTY; without even the implied warranty of MERCHANTABILITY or
kono
parents:
diff changeset
13 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
kono
parents:
diff changeset
14 for more details.
kono
parents:
diff changeset
15
kono
parents:
diff changeset
16 You should have received a copy of the GNU General Public License
kono
parents:
diff changeset
17 along with GCC; see the file COPYING3. If not see
kono
parents:
diff changeset
18 <http://www.gnu.org/licenses/>. */
kono
parents:
diff changeset
19
kono
parents:
diff changeset
20 #include <cc1plugin-config.h>
kono
parents:
diff changeset
21 #include <vector>
kono
parents:
diff changeset
22 #include <string>
kono
parents:
diff changeset
23 #include <sys/socket.h>
kono
parents:
diff changeset
24 #include <sys/types.h>
kono
parents:
diff changeset
25 #include <unistd.h>
kono
parents:
diff changeset
26 #include <sys/wait.h>
kono
parents:
diff changeset
27 #include <stdio.h>
kono
parents:
diff changeset
28 #include <errno.h>
kono
parents:
diff changeset
29 #include <sys/stat.h>
kono
parents:
diff changeset
30 #include <stdlib.h>
kono
parents:
diff changeset
31 #include <sstream>
kono
parents:
diff changeset
32 #include "marshall-cp.hh"
kono
parents:
diff changeset
33 #include "rpc.hh"
kono
parents:
diff changeset
34 #include "connection.hh"
kono
parents:
diff changeset
35 #include "names.hh"
kono
parents:
diff changeset
36 #include "callbacks.hh"
kono
parents:
diff changeset
37 #include "libiberty.h"
kono
parents:
diff changeset
38 #include "xregex.h"
kono
parents:
diff changeset
39 #include "findcomp.hh"
131
84e7813d76e9 gcc-8.2
mir3636
parents: 111
diff changeset
40 #include "compiler-name.hh"
111
kono
parents:
diff changeset
41 #include "intl.h"
kono
parents:
diff changeset
42
kono
parents:
diff changeset
43 struct libcp1;
kono
parents:
diff changeset
44
kono
parents:
diff changeset
45 class libcp1_connection;
kono
parents:
diff changeset
46
kono
parents:
diff changeset
47 // The C compiler context that we hand back to our caller.
kono
parents:
diff changeset
48 struct libcp1 : public gcc_cp_context
kono
parents:
diff changeset
49 {
kono
parents:
diff changeset
50 libcp1 (const gcc_base_vtable *, const gcc_cp_fe_vtable *);
kono
parents:
diff changeset
51 ~libcp1 ();
kono
parents:
diff changeset
52
kono
parents:
diff changeset
53 // A convenience function to print something.
kono
parents:
diff changeset
54 void print (const char *str)
kono
parents:
diff changeset
55 {
kono
parents:
diff changeset
56 this->print_function (this->print_datum, str);
kono
parents:
diff changeset
57 }
kono
parents:
diff changeset
58
kono
parents:
diff changeset
59 libcp1_connection *connection;
kono
parents:
diff changeset
60
kono
parents:
diff changeset
61 gcc_cp_oracle_function *binding_oracle;
kono
parents:
diff changeset
62 gcc_cp_symbol_address_function *address_oracle;
kono
parents:
diff changeset
63 gcc_cp_enter_leave_user_expr_scope_function *enter_scope;
kono
parents:
diff changeset
64 gcc_cp_enter_leave_user_expr_scope_function *leave_scope;
kono
parents:
diff changeset
65 void *oracle_datum;
kono
parents:
diff changeset
66
kono
parents:
diff changeset
67 void (*print_function) (void *datum, const char *message);
kono
parents:
diff changeset
68 void *print_datum;
kono
parents:
diff changeset
69
kono
parents:
diff changeset
70 std::vector<std::string> args;
kono
parents:
diff changeset
71 std::string source_file;
kono
parents:
diff changeset
72
kono
parents:
diff changeset
73 /* Non-zero as an equivalent to gcc driver option "-v". */
kono
parents:
diff changeset
74 bool verbose;
kono
parents:
diff changeset
75
kono
parents:
diff changeset
76 /* Compiler to set by set_triplet_regexp or set_driver_filename. */
kono
parents:
diff changeset
77 class compiler
kono
parents:
diff changeset
78 {
kono
parents:
diff changeset
79 protected:
kono
parents:
diff changeset
80 libcp1 *self_;
kono
parents:
diff changeset
81 public:
kono
parents:
diff changeset
82 compiler (libcp1 *self) : self_ (self)
kono
parents:
diff changeset
83 {
kono
parents:
diff changeset
84 }
kono
parents:
diff changeset
85 virtual char *find (std::string &compiler) const;
kono
parents:
diff changeset
86 virtual ~compiler ()
kono
parents:
diff changeset
87 {
kono
parents:
diff changeset
88 }
kono
parents:
diff changeset
89 } *compilerp;
kono
parents:
diff changeset
90
kono
parents:
diff changeset
91 /* Compiler to set by set_triplet_regexp. */
kono
parents:
diff changeset
92 class compiler_triplet_regexp : public compiler
kono
parents:
diff changeset
93 {
kono
parents:
diff changeset
94 private:
kono
parents:
diff changeset
95 std::string triplet_regexp_;
kono
parents:
diff changeset
96 public:
kono
parents:
diff changeset
97 virtual char *find (std::string &compiler) const;
kono
parents:
diff changeset
98 compiler_triplet_regexp (libcp1 *self, std::string triplet_regexp)
kono
parents:
diff changeset
99 : compiler (self), triplet_regexp_ (triplet_regexp)
kono
parents:
diff changeset
100 {
kono
parents:
diff changeset
101 }
kono
parents:
diff changeset
102 virtual ~compiler_triplet_regexp ()
kono
parents:
diff changeset
103 {
kono
parents:
diff changeset
104 }
kono
parents:
diff changeset
105 };
kono
parents:
diff changeset
106
kono
parents:
diff changeset
107 /* Compiler to set by set_driver_filename. */
kono
parents:
diff changeset
108 class compiler_driver_filename : public compiler
kono
parents:
diff changeset
109 {
kono
parents:
diff changeset
110 private:
kono
parents:
diff changeset
111 std::string driver_filename_;
kono
parents:
diff changeset
112 public:
kono
parents:
diff changeset
113 virtual char *find (std::string &compiler) const;
kono
parents:
diff changeset
114 compiler_driver_filename (libcp1 *self, std::string driver_filename)
kono
parents:
diff changeset
115 : compiler (self), driver_filename_ (driver_filename)
kono
parents:
diff changeset
116 {
kono
parents:
diff changeset
117 }
kono
parents:
diff changeset
118 virtual ~compiler_driver_filename ()
kono
parents:
diff changeset
119 {
kono
parents:
diff changeset
120 }
kono
parents:
diff changeset
121 };
kono
parents:
diff changeset
122 };
kono
parents:
diff changeset
123
kono
parents:
diff changeset
124 // A local subclass of connection that holds a back-pointer to the
kono
parents:
diff changeset
125 // gcc_c_context object that we provide to our caller.
kono
parents:
diff changeset
126 class libcp1_connection : public cc1_plugin::connection
kono
parents:
diff changeset
127 {
kono
parents:
diff changeset
128 public:
kono
parents:
diff changeset
129
kono
parents:
diff changeset
130 libcp1_connection (int fd, int aux_fd, libcp1 *b)
kono
parents:
diff changeset
131 : connection (fd, aux_fd),
kono
parents:
diff changeset
132 back_ptr (b)
kono
parents:
diff changeset
133 {
kono
parents:
diff changeset
134 }
kono
parents:
diff changeset
135
kono
parents:
diff changeset
136 virtual void print (const char *buf)
kono
parents:
diff changeset
137 {
kono
parents:
diff changeset
138 back_ptr->print (buf);
kono
parents:
diff changeset
139 }
kono
parents:
diff changeset
140
kono
parents:
diff changeset
141 libcp1 *back_ptr;
kono
parents:
diff changeset
142 };
kono
parents:
diff changeset
143
kono
parents:
diff changeset
144 libcp1::libcp1 (const gcc_base_vtable *v,
kono
parents:
diff changeset
145 const gcc_cp_fe_vtable *cv)
kono
parents:
diff changeset
146 : connection (NULL),
kono
parents:
diff changeset
147 binding_oracle (NULL),
kono
parents:
diff changeset
148 address_oracle (NULL),
kono
parents:
diff changeset
149 oracle_datum (NULL),
kono
parents:
diff changeset
150 print_function (NULL),
kono
parents:
diff changeset
151 print_datum (NULL),
kono
parents:
diff changeset
152 args (),
kono
parents:
diff changeset
153 source_file (),
kono
parents:
diff changeset
154 verbose (false),
kono
parents:
diff changeset
155 compilerp (new libcp1::compiler (this))
kono
parents:
diff changeset
156 {
kono
parents:
diff changeset
157 base.ops = v;
kono
parents:
diff changeset
158 cp_ops = cv;
kono
parents:
diff changeset
159 }
kono
parents:
diff changeset
160
kono
parents:
diff changeset
161 libcp1::~libcp1 ()
kono
parents:
diff changeset
162 {
kono
parents:
diff changeset
163 delete connection;
kono
parents:
diff changeset
164 delete compilerp;
kono
parents:
diff changeset
165 }
kono
parents:
diff changeset
166
kono
parents:
diff changeset
167
kono
parents:
diff changeset
168
kono
parents:
diff changeset
169 // Enclose these functions in an anonymous namespace because they
kono
parents:
diff changeset
170 // shouldn't be exported, but they can't be static because they're
kono
parents:
diff changeset
171 // used as template arguments.
kono
parents:
diff changeset
172 namespace {
kono
parents:
diff changeset
173 // This is a wrapper function that is called by the RPC system and
kono
parents:
diff changeset
174 // that then forwards the call to the library user. Note that the
kono
parents:
diff changeset
175 // return value is not used; the type cannot be 'void' due to
kono
parents:
diff changeset
176 // limitations in our simple RPC.
kono
parents:
diff changeset
177 int
kono
parents:
diff changeset
178 cp_call_binding_oracle (cc1_plugin::connection *conn,
kono
parents:
diff changeset
179 enum gcc_cp_oracle_request request,
kono
parents:
diff changeset
180 const char *identifier)
kono
parents:
diff changeset
181 {
kono
parents:
diff changeset
182 libcp1 *self = ((libcp1_connection *) conn)->back_ptr;
kono
parents:
diff changeset
183
kono
parents:
diff changeset
184 self->binding_oracle (self->oracle_datum, self, request, identifier);
kono
parents:
diff changeset
185 return 1;
kono
parents:
diff changeset
186 }
kono
parents:
diff changeset
187
kono
parents:
diff changeset
188 // This is a wrapper function that is called by the RPC system and
kono
parents:
diff changeset
189 // that then forwards the call to the library user.
kono
parents:
diff changeset
190 gcc_address
kono
parents:
diff changeset
191 cp_call_symbol_address (cc1_plugin::connection *conn, const char *identifier)
kono
parents:
diff changeset
192 {
kono
parents:
diff changeset
193 libcp1 *self = ((libcp1_connection *) conn)->back_ptr;
kono
parents:
diff changeset
194
kono
parents:
diff changeset
195 return self->address_oracle (self->oracle_datum, self, identifier);
kono
parents:
diff changeset
196 }
kono
parents:
diff changeset
197
kono
parents:
diff changeset
198 int
kono
parents:
diff changeset
199 cp_call_enter_scope (cc1_plugin::connection *conn)
kono
parents:
diff changeset
200 {
kono
parents:
diff changeset
201 libcp1 *self = ((libcp1_connection *) conn)->back_ptr;
kono
parents:
diff changeset
202
kono
parents:
diff changeset
203 self->enter_scope (self->oracle_datum, self);
kono
parents:
diff changeset
204 return 1;
kono
parents:
diff changeset
205 }
kono
parents:
diff changeset
206
kono
parents:
diff changeset
207 int
kono
parents:
diff changeset
208 cp_call_leave_scope (cc1_plugin::connection *conn)
kono
parents:
diff changeset
209 {
kono
parents:
diff changeset
210 libcp1 *self = ((libcp1_connection *) conn)->back_ptr;
kono
parents:
diff changeset
211
kono
parents:
diff changeset
212 self->leave_scope (self->oracle_datum, self);
kono
parents:
diff changeset
213 return 1;
kono
parents:
diff changeset
214 }
kono
parents:
diff changeset
215 } /* anonymous namespace */
kono
parents:
diff changeset
216
kono
parents:
diff changeset
217
kono
parents:
diff changeset
218
kono
parents:
diff changeset
219 static void
kono
parents:
diff changeset
220 set_callbacks (struct gcc_cp_context *s,
kono
parents:
diff changeset
221 gcc_cp_oracle_function *binding_oracle,
kono
parents:
diff changeset
222 gcc_cp_symbol_address_function *address_oracle,
kono
parents:
diff changeset
223 gcc_cp_enter_leave_user_expr_scope_function *enter_scope,
kono
parents:
diff changeset
224 gcc_cp_enter_leave_user_expr_scope_function *leave_scope,
kono
parents:
diff changeset
225 void *datum)
kono
parents:
diff changeset
226 {
kono
parents:
diff changeset
227 libcp1 *self = (libcp1 *) s;
kono
parents:
diff changeset
228
kono
parents:
diff changeset
229 self->binding_oracle = binding_oracle;
kono
parents:
diff changeset
230 self->address_oracle = address_oracle;
kono
parents:
diff changeset
231 self->enter_scope = enter_scope;
kono
parents:
diff changeset
232 self->leave_scope = leave_scope;
kono
parents:
diff changeset
233 self->oracle_datum = datum;
kono
parents:
diff changeset
234 }
kono
parents:
diff changeset
235
kono
parents:
diff changeset
236 // Instances of these rpc<> template functions are installed into the
kono
parents:
diff changeset
237 // "cp_vtable". These functions are parameterized by type and method
kono
parents:
diff changeset
238 // name and forward the call via the connection.
kono
parents:
diff changeset
239
kono
parents:
diff changeset
240 template<typename R, const char *&NAME>
kono
parents:
diff changeset
241 R rpc (struct gcc_cp_context *s)
kono
parents:
diff changeset
242 {
kono
parents:
diff changeset
243 libcp1 *self = (libcp1 *) s;
kono
parents:
diff changeset
244 R result;
kono
parents:
diff changeset
245
kono
parents:
diff changeset
246 if (!cc1_plugin::call (self->connection, NAME, &result))
kono
parents:
diff changeset
247 return 0;
kono
parents:
diff changeset
248 return result;
kono
parents:
diff changeset
249 }
kono
parents:
diff changeset
250
kono
parents:
diff changeset
251 template<typename R, const char *&NAME, typename A>
kono
parents:
diff changeset
252 R rpc (struct gcc_cp_context *s, A arg)
kono
parents:
diff changeset
253 {
kono
parents:
diff changeset
254 libcp1 *self = (libcp1 *) s;
kono
parents:
diff changeset
255 R result;
kono
parents:
diff changeset
256
kono
parents:
diff changeset
257 if (!cc1_plugin::call (self->connection, NAME, &result, arg))
kono
parents:
diff changeset
258 return 0;
kono
parents:
diff changeset
259 return result;
kono
parents:
diff changeset
260 }
kono
parents:
diff changeset
261
kono
parents:
diff changeset
262 template<typename R, const char *&NAME, typename A1, typename A2>
kono
parents:
diff changeset
263 R rpc (struct gcc_cp_context *s, A1 arg1, A2 arg2)
kono
parents:
diff changeset
264 {
kono
parents:
diff changeset
265 libcp1 *self = (libcp1 *) s;
kono
parents:
diff changeset
266 R result;
kono
parents:
diff changeset
267
kono
parents:
diff changeset
268 if (!cc1_plugin::call (self->connection, NAME, &result, arg1, arg2))
kono
parents:
diff changeset
269 return 0;
kono
parents:
diff changeset
270 return result;
kono
parents:
diff changeset
271 }
kono
parents:
diff changeset
272
kono
parents:
diff changeset
273 template<typename R, const char *&NAME, typename A1, typename A2, typename A3>
kono
parents:
diff changeset
274 R rpc (struct gcc_cp_context *s, A1 arg1, A2 arg2, A3 arg3)
kono
parents:
diff changeset
275 {
kono
parents:
diff changeset
276 libcp1 *self = (libcp1 *) s;
kono
parents:
diff changeset
277 R result;
kono
parents:
diff changeset
278
kono
parents:
diff changeset
279 if (!cc1_plugin::call (self->connection, NAME, &result, arg1, arg2, arg3))
kono
parents:
diff changeset
280 return 0;
kono
parents:
diff changeset
281 return result;
kono
parents:
diff changeset
282 }
kono
parents:
diff changeset
283
kono
parents:
diff changeset
284 template<typename R, const char *&NAME, typename A1, typename A2, typename A3,
kono
parents:
diff changeset
285 typename A4>
kono
parents:
diff changeset
286 R rpc (struct gcc_cp_context *s, A1 arg1, A2 arg2, A3 arg3, A4 arg4)
kono
parents:
diff changeset
287 {
kono
parents:
diff changeset
288 libcp1 *self = (libcp1 *) s;
kono
parents:
diff changeset
289 R result;
kono
parents:
diff changeset
290
kono
parents:
diff changeset
291 if (!cc1_plugin::call (self->connection, NAME, &result, arg1, arg2, arg3,
kono
parents:
diff changeset
292 arg4))
kono
parents:
diff changeset
293 return 0;
kono
parents:
diff changeset
294 return result;
kono
parents:
diff changeset
295 }
kono
parents:
diff changeset
296
kono
parents:
diff changeset
297 template<typename R, const char *&NAME, typename A1, typename A2, typename A3,
kono
parents:
diff changeset
298 typename A4, typename A5>
kono
parents:
diff changeset
299 R rpc (struct gcc_cp_context *s, A1 arg1, A2 arg2, A3 arg3, A4 arg4, A5 arg5)
kono
parents:
diff changeset
300 {
kono
parents:
diff changeset
301 libcp1 *self = (libcp1 *) s;
kono
parents:
diff changeset
302 R result;
kono
parents:
diff changeset
303
kono
parents:
diff changeset
304 if (!cc1_plugin::call (self->connection, NAME, &result, arg1, arg2, arg3,
kono
parents:
diff changeset
305 arg4, arg5))
kono
parents:
diff changeset
306 return 0;
kono
parents:
diff changeset
307 return result;
kono
parents:
diff changeset
308 }
kono
parents:
diff changeset
309
kono
parents:
diff changeset
310 template<typename R, const char *&NAME, typename A1, typename A2, typename A3,
kono
parents:
diff changeset
311 typename A4, typename A5, typename A6, typename A7>
kono
parents:
diff changeset
312 R rpc (struct gcc_cp_context *s, A1 arg1, A2 arg2, A3 arg3, A4 arg4, A5 arg5,
kono
parents:
diff changeset
313 A6 arg6, A7 arg7)
kono
parents:
diff changeset
314 {
kono
parents:
diff changeset
315 libcp1 *self = (libcp1 *) s;
kono
parents:
diff changeset
316 R result;
kono
parents:
diff changeset
317
kono
parents:
diff changeset
318 if (!cc1_plugin::call (self->connection, NAME, &result, arg1, arg2, arg3,
kono
parents:
diff changeset
319 arg4, arg5, arg6, arg7))
kono
parents:
diff changeset
320 return 0;
kono
parents:
diff changeset
321 return result;
kono
parents:
diff changeset
322 }
kono
parents:
diff changeset
323
kono
parents:
diff changeset
324 static const struct gcc_cp_fe_vtable cp_vtable =
kono
parents:
diff changeset
325 {
kono
parents:
diff changeset
326 GCC_CP_FE_VERSION_0,
kono
parents:
diff changeset
327 set_callbacks,
kono
parents:
diff changeset
328
kono
parents:
diff changeset
329 #define GCC_METHOD0(R, N) \
kono
parents:
diff changeset
330 rpc<R, cc1_plugin::cp::N>,
kono
parents:
diff changeset
331 #define GCC_METHOD1(R, N, A) \
kono
parents:
diff changeset
332 rpc<R, cc1_plugin::cp::N, A>,
kono
parents:
diff changeset
333 #define GCC_METHOD2(R, N, A, B) \
kono
parents:
diff changeset
334 rpc<R, cc1_plugin::cp::N, A, B>,
kono
parents:
diff changeset
335 #define GCC_METHOD3(R, N, A, B, C) \
kono
parents:
diff changeset
336 rpc<R, cc1_plugin::cp::N, A, B, C>,
kono
parents:
diff changeset
337 #define GCC_METHOD4(R, N, A, B, C, D) \
kono
parents:
diff changeset
338 rpc<R, cc1_plugin::cp::N, A, B, C, D>,
kono
parents:
diff changeset
339 #define GCC_METHOD5(R, N, A, B, C, D, E) \
kono
parents:
diff changeset
340 rpc<R, cc1_plugin::cp::N, A, B, C, D, E>,
kono
parents:
diff changeset
341 #define GCC_METHOD7(R, N, A, B, C, D, E, F, G) \
kono
parents:
diff changeset
342 rpc<R, cc1_plugin::cp::N, A, B, C, D, E, F, G>,
kono
parents:
diff changeset
343
kono
parents:
diff changeset
344 #include "gcc-cp-fe.def"
kono
parents:
diff changeset
345
kono
parents:
diff changeset
346 #undef GCC_METHOD0
kono
parents:
diff changeset
347 #undef GCC_METHOD1
kono
parents:
diff changeset
348 #undef GCC_METHOD2
kono
parents:
diff changeset
349 #undef GCC_METHOD3
kono
parents:
diff changeset
350 #undef GCC_METHOD4
kono
parents:
diff changeset
351 #undef GCC_METHOD5
kono
parents:
diff changeset
352 #undef GCC_METHOD7
kono
parents:
diff changeset
353 };
kono
parents:
diff changeset
354
kono
parents:
diff changeset
355
kono
parents:
diff changeset
356
kono
parents:
diff changeset
357 // Construct an appropriate regexp to match the compiler name.
kono
parents:
diff changeset
358 static std::string
kono
parents:
diff changeset
359 make_regexp (const char *triplet_regexp, const char *compiler)
kono
parents:
diff changeset
360 {
kono
parents:
diff changeset
361 std::stringstream buf;
kono
parents:
diff changeset
362
kono
parents:
diff changeset
363 buf << "^" << triplet_regexp << "-";
kono
parents:
diff changeset
364
kono
parents:
diff changeset
365 // Quote the compiler name in case it has something funny in it.
kono
parents:
diff changeset
366 for (const char *p = compiler; *p; ++p)
kono
parents:
diff changeset
367 {
kono
parents:
diff changeset
368 switch (*p)
kono
parents:
diff changeset
369 {
kono
parents:
diff changeset
370 case '.':
kono
parents:
diff changeset
371 case '^':
kono
parents:
diff changeset
372 case '$':
kono
parents:
diff changeset
373 case '*':
kono
parents:
diff changeset
374 case '+':
kono
parents:
diff changeset
375 case '?':
kono
parents:
diff changeset
376 case '(':
kono
parents:
diff changeset
377 case ')':
kono
parents:
diff changeset
378 case '[':
kono
parents:
diff changeset
379 case '{':
kono
parents:
diff changeset
380 case '\\':
kono
parents:
diff changeset
381 case '|':
kono
parents:
diff changeset
382 buf << '\\';
kono
parents:
diff changeset
383 break;
kono
parents:
diff changeset
384 }
kono
parents:
diff changeset
385 buf << *p;
kono
parents:
diff changeset
386 }
kono
parents:
diff changeset
387 buf << "$";
kono
parents:
diff changeset
388
kono
parents:
diff changeset
389 return buf.str ();
kono
parents:
diff changeset
390 }
kono
parents:
diff changeset
391
kono
parents:
diff changeset
392 static void
kono
parents:
diff changeset
393 libcp1_set_verbose (struct gcc_base_context *s, int /* bool */ verbose)
kono
parents:
diff changeset
394 {
kono
parents:
diff changeset
395 libcp1 *self = (libcp1 *) s;
kono
parents:
diff changeset
396
kono
parents:
diff changeset
397 self->verbose = verbose != 0;
kono
parents:
diff changeset
398 }
kono
parents:
diff changeset
399
kono
parents:
diff changeset
400 char *
kono
parents:
diff changeset
401 libcp1::compiler::find (std::string &compiler ATTRIBUTE_UNUSED) const
kono
parents:
diff changeset
402 {
kono
parents:
diff changeset
403 return xstrdup (_("Compiler has not been specified"));
kono
parents:
diff changeset
404 }
kono
parents:
diff changeset
405
kono
parents:
diff changeset
406 char *
kono
parents:
diff changeset
407 libcp1::compiler_triplet_regexp::find (std::string &compiler) const
kono
parents:
diff changeset
408 {
kono
parents:
diff changeset
409 std::string rx = make_regexp (triplet_regexp_.c_str (), CP_COMPILER_NAME);
kono
parents:
diff changeset
410 if (self_->verbose)
kono
parents:
diff changeset
411 fprintf (stderr, _("searching for compiler matching regex %s\n"),
kono
parents:
diff changeset
412 rx.c_str());
kono
parents:
diff changeset
413 regex_t triplet;
kono
parents:
diff changeset
414 int code = regcomp (&triplet, rx.c_str (), REG_EXTENDED | REG_NOSUB);
kono
parents:
diff changeset
415 if (code != 0)
kono
parents:
diff changeset
416 {
kono
parents:
diff changeset
417 size_t len = regerror (code, &triplet, NULL, 0);
kono
parents:
diff changeset
418 char err[len];
kono
parents:
diff changeset
419
kono
parents:
diff changeset
420 regerror (code, &triplet, err, len);
kono
parents:
diff changeset
421
kono
parents:
diff changeset
422 return concat ("Could not compile regexp \"",
kono
parents:
diff changeset
423 rx.c_str (),
kono
parents:
diff changeset
424 "\": ",
kono
parents:
diff changeset
425 err,
kono
parents:
diff changeset
426 (char *) NULL);
kono
parents:
diff changeset
427 }
kono
parents:
diff changeset
428
kono
parents:
diff changeset
429 if (!find_compiler (triplet, &compiler))
kono
parents:
diff changeset
430 {
kono
parents:
diff changeset
431 regfree (&triplet);
kono
parents:
diff changeset
432 return concat ("Could not find a compiler matching \"",
kono
parents:
diff changeset
433 rx.c_str (),
kono
parents:
diff changeset
434 "\"",
kono
parents:
diff changeset
435 (char *) NULL);
kono
parents:
diff changeset
436 }
kono
parents:
diff changeset
437 regfree (&triplet);
kono
parents:
diff changeset
438 if (self_->verbose)
kono
parents:
diff changeset
439 fprintf (stderr, _("found compiler %s\n"), compiler.c_str());
kono
parents:
diff changeset
440 return NULL;
kono
parents:
diff changeset
441 }
kono
parents:
diff changeset
442
kono
parents:
diff changeset
443 char *
kono
parents:
diff changeset
444 libcp1::compiler_driver_filename::find (std::string &compiler) const
kono
parents:
diff changeset
445 {
kono
parents:
diff changeset
446 // Simulate fnotice by fprintf.
kono
parents:
diff changeset
447 if (self_->verbose)
kono
parents:
diff changeset
448 fprintf (stderr, _("using explicit compiler filename %s\n"),
kono
parents:
diff changeset
449 driver_filename_.c_str());
kono
parents:
diff changeset
450 compiler = driver_filename_;
kono
parents:
diff changeset
451 return NULL;
kono
parents:
diff changeset
452 }
kono
parents:
diff changeset
453
kono
parents:
diff changeset
454 static char *
kono
parents:
diff changeset
455 libcp1_set_arguments (struct gcc_base_context *s,
kono
parents:
diff changeset
456 int argc, char **argv)
kono
parents:
diff changeset
457 {
kono
parents:
diff changeset
458 libcp1 *self = (libcp1 *) s;
kono
parents:
diff changeset
459
kono
parents:
diff changeset
460 std::string compiler;
kono
parents:
diff changeset
461 char *errmsg = self->compilerp->find (compiler);
kono
parents:
diff changeset
462 if (errmsg != NULL)
kono
parents:
diff changeset
463 return errmsg;
kono
parents:
diff changeset
464
kono
parents:
diff changeset
465 self->args.push_back (compiler);
kono
parents:
diff changeset
466
kono
parents:
diff changeset
467 for (int i = 0; i < argc; ++i)
kono
parents:
diff changeset
468 self->args.push_back (argv[i]);
kono
parents:
diff changeset
469
kono
parents:
diff changeset
470 return NULL;
kono
parents:
diff changeset
471 }
kono
parents:
diff changeset
472
kono
parents:
diff changeset
473 static char *
kono
parents:
diff changeset
474 libcp1_set_triplet_regexp (struct gcc_base_context *s,
kono
parents:
diff changeset
475 const char *triplet_regexp)
kono
parents:
diff changeset
476 {
kono
parents:
diff changeset
477 libcp1 *self = (libcp1 *) s;
kono
parents:
diff changeset
478
kono
parents:
diff changeset
479 delete self->compilerp;
kono
parents:
diff changeset
480 self->compilerp = new libcp1::compiler_triplet_regexp (self, triplet_regexp);
kono
parents:
diff changeset
481 return NULL;
kono
parents:
diff changeset
482 }
kono
parents:
diff changeset
483
kono
parents:
diff changeset
484 static char *
kono
parents:
diff changeset
485 libcp1_set_driver_filename (struct gcc_base_context *s,
kono
parents:
diff changeset
486 const char *driver_filename)
kono
parents:
diff changeset
487 {
kono
parents:
diff changeset
488 libcp1 *self = (libcp1 *) s;
kono
parents:
diff changeset
489
kono
parents:
diff changeset
490 delete self->compilerp;
kono
parents:
diff changeset
491 self->compilerp = new libcp1::compiler_driver_filename (self,
kono
parents:
diff changeset
492 driver_filename);
kono
parents:
diff changeset
493 return NULL;
kono
parents:
diff changeset
494 }
kono
parents:
diff changeset
495
kono
parents:
diff changeset
496 static char *
kono
parents:
diff changeset
497 libcp1_set_arguments_v0 (struct gcc_base_context *s,
kono
parents:
diff changeset
498 const char *triplet_regexp,
kono
parents:
diff changeset
499 int argc, char **argv)
kono
parents:
diff changeset
500 {
kono
parents:
diff changeset
501 char *errmsg = libcp1_set_triplet_regexp (s, triplet_regexp);
kono
parents:
diff changeset
502 if (errmsg != NULL)
kono
parents:
diff changeset
503 return errmsg;
kono
parents:
diff changeset
504
kono
parents:
diff changeset
505 return libcp1_set_arguments (s, argc, argv);
kono
parents:
diff changeset
506 }
kono
parents:
diff changeset
507
kono
parents:
diff changeset
508 static void
kono
parents:
diff changeset
509 libcp1_set_source_file (struct gcc_base_context *s,
kono
parents:
diff changeset
510 const char *file)
kono
parents:
diff changeset
511 {
kono
parents:
diff changeset
512 libcp1 *self = (libcp1 *) s;
kono
parents:
diff changeset
513
kono
parents:
diff changeset
514 self->source_file = file;
kono
parents:
diff changeset
515 }
kono
parents:
diff changeset
516
kono
parents:
diff changeset
517 static void
kono
parents:
diff changeset
518 libcp1_set_print_callback (struct gcc_base_context *s,
kono
parents:
diff changeset
519 void (*print_function) (void *datum,
kono
parents:
diff changeset
520 const char *message),
kono
parents:
diff changeset
521 void *datum)
kono
parents:
diff changeset
522 {
kono
parents:
diff changeset
523 libcp1 *self = (libcp1 *) s;
kono
parents:
diff changeset
524
kono
parents:
diff changeset
525 self->print_function = print_function;
kono
parents:
diff changeset
526 self->print_datum = datum;
kono
parents:
diff changeset
527 }
kono
parents:
diff changeset
528
kono
parents:
diff changeset
529 static int
kono
parents:
diff changeset
530 fork_exec (libcp1 *self, char **argv, int spair_fds[2], int stderr_fds[2])
kono
parents:
diff changeset
531 {
kono
parents:
diff changeset
532 pid_t child_pid = fork ();
kono
parents:
diff changeset
533
kono
parents:
diff changeset
534 if (child_pid == -1)
kono
parents:
diff changeset
535 {
kono
parents:
diff changeset
536 close (spair_fds[0]);
kono
parents:
diff changeset
537 close (spair_fds[1]);
kono
parents:
diff changeset
538 close (stderr_fds[0]);
kono
parents:
diff changeset
539 close (stderr_fds[1]);
kono
parents:
diff changeset
540 return 0;
kono
parents:
diff changeset
541 }
kono
parents:
diff changeset
542
kono
parents:
diff changeset
543 if (child_pid == 0)
kono
parents:
diff changeset
544 {
kono
parents:
diff changeset
545 // Child.
kono
parents:
diff changeset
546 dup2 (stderr_fds[1], 1);
kono
parents:
diff changeset
547 dup2 (stderr_fds[1], 2);
kono
parents:
diff changeset
548 close (stderr_fds[0]);
kono
parents:
diff changeset
549 close (stderr_fds[1]);
kono
parents:
diff changeset
550 close (spair_fds[0]);
kono
parents:
diff changeset
551
kono
parents:
diff changeset
552 execvp (argv[0], argv);
kono
parents:
diff changeset
553 _exit (127);
kono
parents:
diff changeset
554 }
kono
parents:
diff changeset
555 else
kono
parents:
diff changeset
556 {
kono
parents:
diff changeset
557 // Parent.
kono
parents:
diff changeset
558 close (spair_fds[1]);
kono
parents:
diff changeset
559 close (stderr_fds[1]);
kono
parents:
diff changeset
560
kono
parents:
diff changeset
561 cc1_plugin::status result = cc1_plugin::FAIL;
kono
parents:
diff changeset
562 if (self->connection->send ('H')
kono
parents:
diff changeset
563 && ::cc1_plugin::marshall (self->connection, GCC_CP_FE_VERSION_0))
kono
parents:
diff changeset
564 result = self->connection->wait_for_query ();
kono
parents:
diff changeset
565
kono
parents:
diff changeset
566 close (spair_fds[0]);
kono
parents:
diff changeset
567 close (stderr_fds[0]);
kono
parents:
diff changeset
568
kono
parents:
diff changeset
569 while (true)
kono
parents:
diff changeset
570 {
kono
parents:
diff changeset
571 int status;
kono
parents:
diff changeset
572
kono
parents:
diff changeset
573 if (waitpid (child_pid, &status, 0) == -1)
kono
parents:
diff changeset
574 {
kono
parents:
diff changeset
575 if (errno != EINTR)
kono
parents:
diff changeset
576 return 0;
kono
parents:
diff changeset
577 }
kono
parents:
diff changeset
578
kono
parents:
diff changeset
579 if (!WIFEXITED (status) || WEXITSTATUS (status) != 0)
kono
parents:
diff changeset
580 return 0;
kono
parents:
diff changeset
581 break;
kono
parents:
diff changeset
582 }
kono
parents:
diff changeset
583
kono
parents:
diff changeset
584 if (!result)
kono
parents:
diff changeset
585 return 0;
kono
parents:
diff changeset
586 return 1;
kono
parents:
diff changeset
587 }
kono
parents:
diff changeset
588 }
kono
parents:
diff changeset
589
kono
parents:
diff changeset
590 static int
kono
parents:
diff changeset
591 libcp1_compile (struct gcc_base_context *s,
kono
parents:
diff changeset
592 const char *filename)
kono
parents:
diff changeset
593 {
kono
parents:
diff changeset
594 libcp1 *self = (libcp1 *) s;
kono
parents:
diff changeset
595
kono
parents:
diff changeset
596 int fds[2];
kono
parents:
diff changeset
597 if (socketpair (AF_UNIX, SOCK_STREAM, 0, fds) != 0)
kono
parents:
diff changeset
598 {
kono
parents:
diff changeset
599 self->print ("could not create socketpair\n");
kono
parents:
diff changeset
600 return 0;
kono
parents:
diff changeset
601 }
kono
parents:
diff changeset
602
kono
parents:
diff changeset
603 int stderr_fds[2];
kono
parents:
diff changeset
604 if (pipe (stderr_fds) != 0)
kono
parents:
diff changeset
605 {
kono
parents:
diff changeset
606 self->print ("could not create pipe\n");
kono
parents:
diff changeset
607 close (fds[0]);
kono
parents:
diff changeset
608 close (fds[1]);
kono
parents:
diff changeset
609 return 0;
kono
parents:
diff changeset
610 }
kono
parents:
diff changeset
611
kono
parents:
diff changeset
612 self->args.push_back ("-fplugin=libcp1plugin");
kono
parents:
diff changeset
613 char buf[100];
kono
parents:
diff changeset
614 if (snprintf (buf, sizeof (buf), "-fplugin-arg-libcp1plugin-fd=%d", fds[1])
kono
parents:
diff changeset
615 >= (long) sizeof (buf))
kono
parents:
diff changeset
616 abort ();
kono
parents:
diff changeset
617 self->args.push_back (buf);
kono
parents:
diff changeset
618
kono
parents:
diff changeset
619 self->args.push_back (self->source_file);
kono
parents:
diff changeset
620 self->args.push_back ("-c");
kono
parents:
diff changeset
621 self->args.push_back ("-o");
kono
parents:
diff changeset
622 self->args.push_back (filename);
kono
parents:
diff changeset
623 if (self->verbose)
kono
parents:
diff changeset
624 self->args.push_back ("-v");
kono
parents:
diff changeset
625
kono
parents:
diff changeset
626 self->connection = new libcp1_connection (fds[0], stderr_fds[0], self);
kono
parents:
diff changeset
627
kono
parents:
diff changeset
628 cc1_plugin::callback_ftype *fun
kono
parents:
diff changeset
629 = cc1_plugin::callback<int,
kono
parents:
diff changeset
630 enum gcc_cp_oracle_request,
kono
parents:
diff changeset
631 const char *,
kono
parents:
diff changeset
632 cp_call_binding_oracle>;
kono
parents:
diff changeset
633 self->connection->add_callback ("binding_oracle", fun);
kono
parents:
diff changeset
634
kono
parents:
diff changeset
635 fun = cc1_plugin::callback<gcc_address,
kono
parents:
diff changeset
636 const char *,
kono
parents:
diff changeset
637 cp_call_symbol_address>;
kono
parents:
diff changeset
638 self->connection->add_callback ("address_oracle", fun);
kono
parents:
diff changeset
639
kono
parents:
diff changeset
640 fun = cc1_plugin::callback<int,
kono
parents:
diff changeset
641 cp_call_enter_scope>;
kono
parents:
diff changeset
642 self->connection->add_callback ("enter_scope", fun);
kono
parents:
diff changeset
643
kono
parents:
diff changeset
644 fun = cc1_plugin::callback<int,
kono
parents:
diff changeset
645 cp_call_leave_scope>;
kono
parents:
diff changeset
646 self->connection->add_callback ("leave_scope", fun);
kono
parents:
diff changeset
647
kono
parents:
diff changeset
648 char **argv = new (std::nothrow) char *[self->args.size () + 1];
kono
parents:
diff changeset
649 if (argv == NULL)
kono
parents:
diff changeset
650 return 0;
kono
parents:
diff changeset
651
kono
parents:
diff changeset
652 for (unsigned int i = 0; i < self->args.size (); ++i)
kono
parents:
diff changeset
653 argv[i] = const_cast<char *> (self->args[i].c_str ());
kono
parents:
diff changeset
654 argv[self->args.size ()] = NULL;
kono
parents:
diff changeset
655
kono
parents:
diff changeset
656 return fork_exec (self, argv, fds, stderr_fds);
kono
parents:
diff changeset
657 }
kono
parents:
diff changeset
658
kono
parents:
diff changeset
659 static int
kono
parents:
diff changeset
660 libcp1_compile_v0 (struct gcc_base_context *s, const char *filename,
kono
parents:
diff changeset
661 int verbose)
kono
parents:
diff changeset
662 {
kono
parents:
diff changeset
663 libcp1_set_verbose (s, verbose);
kono
parents:
diff changeset
664 return libcp1_compile (s, filename);
kono
parents:
diff changeset
665 }
kono
parents:
diff changeset
666
kono
parents:
diff changeset
667 static void
kono
parents:
diff changeset
668 libcp1_destroy (struct gcc_base_context *s)
kono
parents:
diff changeset
669 {
kono
parents:
diff changeset
670 libcp1 *self = (libcp1 *) s;
kono
parents:
diff changeset
671
kono
parents:
diff changeset
672 delete self;
kono
parents:
diff changeset
673 }
kono
parents:
diff changeset
674
kono
parents:
diff changeset
675 static const struct gcc_base_vtable vtable =
kono
parents:
diff changeset
676 {
kono
parents:
diff changeset
677 GCC_FE_VERSION_0,
kono
parents:
diff changeset
678 libcp1_set_arguments_v0,
kono
parents:
diff changeset
679 libcp1_set_source_file,
kono
parents:
diff changeset
680 libcp1_set_print_callback,
kono
parents:
diff changeset
681 libcp1_compile_v0,
kono
parents:
diff changeset
682 libcp1_destroy,
kono
parents:
diff changeset
683 libcp1_set_verbose,
kono
parents:
diff changeset
684 libcp1_compile,
kono
parents:
diff changeset
685 libcp1_set_arguments,
kono
parents:
diff changeset
686 libcp1_set_triplet_regexp,
kono
parents:
diff changeset
687 libcp1_set_driver_filename,
kono
parents:
diff changeset
688 };
kono
parents:
diff changeset
689
kono
parents:
diff changeset
690 extern "C" gcc_cp_fe_context_function gcc_cp_fe_context;
kono
parents:
diff changeset
691
kono
parents:
diff changeset
692 #ifdef __GNUC__
kono
parents:
diff changeset
693 #pragma GCC visibility push(default)
kono
parents:
diff changeset
694 #endif
kono
parents:
diff changeset
695
kono
parents:
diff changeset
696 extern "C"
kono
parents:
diff changeset
697 struct gcc_cp_context *
kono
parents:
diff changeset
698 gcc_cp_fe_context (enum gcc_base_api_version base_version,
kono
parents:
diff changeset
699 enum gcc_cp_api_version cp_version)
kono
parents:
diff changeset
700 {
kono
parents:
diff changeset
701 if ((base_version != GCC_FE_VERSION_0 && base_version != GCC_FE_VERSION_1)
kono
parents:
diff changeset
702 || cp_version != GCC_CP_FE_VERSION_0)
kono
parents:
diff changeset
703 return NULL;
kono
parents:
diff changeset
704
kono
parents:
diff changeset
705 return new libcp1 (&vtable, &cp_vtable);
kono
parents:
diff changeset
706 }