123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172 |
- /* The library used by gdb.
- Copyright (C) 2014-2022 Free Software Foundation, Inc.
- This file is part of GCC.
- GCC is free software; you can redistribute it and/or modify it under
- the terms of the GNU General Public License as published by the Free
- Software Foundation; either version 3, or (at your option) any later
- version.
- GCC is distributed in the hope that it will be useful, but WITHOUT ANY
- WARRANTY; without even the implied warranty of MERCHANTABILITY or
- FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
- for more details.
- You should have received a copy of the GNU General Public License
- along with GCC; see the file COPYING3. If not see
- <http://www.gnu.org/licenses/>. */
- #include <cc1plugin-config.h>
- #include <vector>
- #include <string>
- #include <sys/socket.h>
- #include <sys/types.h>
- #include <unistd.h>
- #include <sys/wait.h>
- #include <stdio.h>
- #include <errno.h>
- #include <sys/stat.h>
- #include <stdlib.h>
- #include "marshall.hh"
- #include "rpc.hh"
- #include "connection.hh"
- #include "names.hh"
- #include "callbacks.hh"
- #include "libiberty.h"
- #include "compiler-name.hh"
- #include "gcc-c-interface.h"
- #include "compiler.hh"
- #include "gdbctx.hh"
- // The C compiler context that we hand back to our caller.
- struct libcc1 : public cc1_plugin::base_gdb_plugin<gcc_c_context>
- {
- explicit libcc1 (const gcc_c_fe_vtable *);
- void add_callbacks () override;
- gcc_c_oracle_function *binding_oracle = nullptr;
- gcc_c_symbol_address_function *address_oracle = nullptr;
- void *oracle_datum = nullptr;
- };
- libcc1::libcc1 (const gcc_c_fe_vtable *cv)
- : cc1_plugin::base_gdb_plugin<gcc_c_context> ("libcc1plugin",
- C_COMPILER_NAME,
- GCC_C_FE_VERSION_1)
- {
- c_ops = cv;
- }
- // Enclose these functions in an anonymous namespace because they
- // shouldn't be exported, but they can't be static because they're
- // used as template arguments.
- namespace {
- // This is a wrapper function that is called by the RPC system and
- // that then forwards the call to the library user. Note that the
- // return value is not used; the type cannot be 'void' due to
- // limitations in our simple RPC.
- int
- c_call_binding_oracle (cc1_plugin::connection *conn,
- enum gcc_c_oracle_request request,
- const char *identifier)
- {
- libcc1 *self = (libcc1 *) (((libcc1::local_connection *) conn)->back_ptr);
- self->binding_oracle (self->oracle_datum, self, request, identifier);
- return 1;
- }
- // This is a wrapper function that is called by the RPC system and
- // that then forwards the call to the library user.
- gcc_address
- c_call_symbol_address (cc1_plugin::connection *conn, const char *identifier)
- {
- libcc1 *self = (libcc1 *) (((libcc1::local_connection *) conn)->back_ptr);
- return self->address_oracle (self->oracle_datum, self, identifier);
- }
- } /* anonymous namespace */
- static void
- set_callbacks (struct gcc_c_context *s,
- gcc_c_oracle_function *binding_oracle,
- gcc_c_symbol_address_function *address_oracle,
- void *datum)
- {
- libcc1 *self = (libcc1 *) s;
- self->binding_oracle = binding_oracle;
- self->address_oracle = address_oracle;
- self->oracle_datum = datum;
- }
- static const struct gcc_c_fe_vtable c_vtable =
- {
- GCC_C_FE_VERSION_0,
- set_callbacks,
- #define GCC_METHOD0(R, N) \
- cc1_plugin::rpc<gcc_c_context, R, cc1_plugin::c::N>,
- #define GCC_METHOD1(R, N, A) \
- cc1_plugin::rpc<gcc_c_context, R, cc1_plugin::c::N, A>,
- #define GCC_METHOD2(R, N, A, B) \
- cc1_plugin::rpc<gcc_c_context, R, cc1_plugin::c::N, A, B>,
- #define GCC_METHOD3(R, N, A, B, C) \
- cc1_plugin::rpc<gcc_c_context, R, cc1_plugin::c::N, A, B, C>,
- #define GCC_METHOD4(R, N, A, B, C, D) \
- cc1_plugin::rpc<gcc_c_context, R, cc1_plugin::c::N, A, B, C, D>,
- #define GCC_METHOD5(R, N, A, B, C, D, E) \
- cc1_plugin::rpc<gcc_c_context, R, cc1_plugin::c::N, A, B, C, D, E>,
- #define GCC_METHOD7(R, N, A, B, C, D, E, F, G) \
- cc1_plugin::rpc<gcc_c_context, R, cc1_plugin::c::N, A, B, C, D, E, F, G>,
- #include "gcc-c-fe.def"
- #undef GCC_METHOD0
- #undef GCC_METHOD1
- #undef GCC_METHOD2
- #undef GCC_METHOD3
- #undef GCC_METHOD4
- #undef GCC_METHOD5
- #undef GCC_METHOD7
- };
- void
- libcc1::add_callbacks ()
- {
- cc1_plugin::callback_ftype *fun
- = cc1_plugin::invoker<int,
- enum gcc_c_oracle_request,
- const char *>::invoke<c_call_binding_oracle>;
- connection->add_callback ("binding_oracle", fun);
- fun = cc1_plugin::invoker<gcc_address,
- const char *>::invoke<c_call_symbol_address>;
- connection->add_callback ("address_oracle", fun);
- }
- extern "C" gcc_c_fe_context_function gcc_c_fe_context;
- #ifdef __GNUC__
- #pragma GCC visibility push(default)
- #endif
- extern "C"
- struct gcc_c_context *
- gcc_c_fe_context (enum gcc_base_api_version base_version,
- enum gcc_c_api_version c_version)
- {
- if ((base_version != GCC_FE_VERSION_0 && base_version != GCC_FE_VERSION_1)
- || (c_version != GCC_C_FE_VERSION_0 && c_version != GCC_C_FE_VERSION_1))
- return NULL;
- return new libcc1 (&c_vtable);
- }
|