Retro68/gcc/libcc1/libcc1.cc

173 lines
4.9 KiB
C++
Raw Normal View History

2015-08-28 15:33:40 +00:00
/* The library used by gdb.
Copyright (C) 2014-2022 Free Software Foundation, Inc.
2015-08-28 15:33:40 +00:00
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"
2015-08-28 15:33:40 +00:00
#include "rpc.hh"
#include "connection.hh"
#include "names.hh"
#include "callbacks.hh"
#include "libiberty.h"
2018-12-28 15:30:48 +00:00
#include "compiler-name.hh"
#include "gcc-c-interface.h"
#include "compiler.hh"
#include "gdbctx.hh"
2015-08-28 15:33:40 +00:00
// The C compiler context that we hand back to our caller.
struct libcc1 : public cc1_plugin::base_gdb_plugin<gcc_c_context>
2015-08-28 15:33:40 +00:00
{
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;
2015-08-28 15:33:40 +00:00
};
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)
2015-08-28 15:33:40 +00:00
{
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);
2015-08-28 15:33:40 +00:00
self->binding_oracle (self->oracle_datum, self, request, identifier);
return 1;
}
2015-08-28 15:33:40 +00:00
// 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);
2015-08-28 15:33:40 +00:00
return self->address_oracle (self->oracle_datum, self, identifier);
}
} /* anonymous namespace */
2015-08-28 15:33:40 +00:00
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>,
2015-08-28 15:33:40 +00:00
#define GCC_METHOD1(R, N, A) \
cc1_plugin::rpc<gcc_c_context, R, cc1_plugin::c::N, A>,
2015-08-28 15:33:40 +00:00
#define GCC_METHOD2(R, N, A, B) \
cc1_plugin::rpc<gcc_c_context, R, cc1_plugin::c::N, A, B>,
2015-08-28 15:33:40 +00:00
#define GCC_METHOD3(R, N, A, B, C) \
cc1_plugin::rpc<gcc_c_context, R, cc1_plugin::c::N, A, B, C>,
2015-08-28 15:33:40 +00:00
#define GCC_METHOD4(R, N, A, B, C, D) \
cc1_plugin::rpc<gcc_c_context, R, cc1_plugin::c::N, A, B, C, D>,
2015-08-28 15:33:40 +00:00
#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>,
2015-08-28 15:33:40 +00:00
#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>,
2015-08-28 15:33:40 +00:00
#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 ()
{
2015-08-28 15:33:40 +00:00
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);
2015-08-28 15:33:40 +00:00
fun = cc1_plugin::invoker<gcc_address,
const char *>::invoke<c_call_symbol_address>;
connection->add_callback ("address_oracle", fun);
}
2015-08-28 15:33:40 +00:00
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))
2015-08-28 15:33:40 +00:00
return NULL;
return new libcc1 (&c_vtable);
2015-08-28 15:33:40 +00:00
}