mirror of
https://github.com/YosysHQ/yosys
synced 2025-11-04 05:19:11 +00:00
e0ae7b7af4
There are some leftovers, but this is an easy regex-based approach that removes most of them.
164 lines
6.2 KiB
C++
164 lines
6.2 KiB
C++
/*
|
|
* yosys -- Yosys Open SYnthesis Suite
|
|
*
|
|
* Copyright (C) 2012 Claire Xenia Wolf <claire@yosyshq.com>
|
|
*
|
|
* Permission to use, copy, modify, and/or distribute this software for any
|
|
* purpose with or without fee is hereby granted, provided that the above
|
|
* copyright notice and this permission notice appear in all copies.
|
|
*
|
|
* THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
|
|
* WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
|
|
* MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
|
|
* ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
|
|
* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
|
|
* ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
|
|
* OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
|
*
|
|
*/
|
|
|
|
#include "ast.h"
|
|
|
|
#ifdef YOSYS_ENABLE_PLUGINS
|
|
|
|
#include <dlfcn.h>
|
|
#include <ffi.h>
|
|
|
|
YOSYS_NAMESPACE_BEGIN
|
|
|
|
typedef void (*ffi_fptr) ();
|
|
|
|
static ffi_fptr resolve_fn (std::string symbol_name)
|
|
{
|
|
if (symbol_name.find(':') != std::string::npos)
|
|
{
|
|
int pos = symbol_name.find(':');
|
|
std::string plugin_name = symbol_name.substr(0, pos);
|
|
std::string real_symbol_name = symbol_name.substr(pos+1);
|
|
|
|
while (loaded_plugin_aliases.count(plugin_name))
|
|
plugin_name = loaded_plugin_aliases.at(plugin_name);
|
|
|
|
if (loaded_plugins.count(plugin_name) == 0)
|
|
log_error("unable to resolve '%s': can't find plugin `%s'\n", symbol_name, plugin_name);
|
|
|
|
void *symbol = dlsym(loaded_plugins.at(plugin_name), real_symbol_name.c_str());
|
|
|
|
if (symbol == nullptr)
|
|
log_error("unable to resolve '%s': can't find symbol `%s' in plugin `%s'\n",
|
|
symbol_name.c_str(), real_symbol_name.c_str(), plugin_name.c_str());
|
|
|
|
return (ffi_fptr) symbol;
|
|
}
|
|
|
|
for (auto &it : loaded_plugins) {
|
|
void *symbol = dlsym(it.second, symbol_name.c_str());
|
|
if (symbol != nullptr)
|
|
return (ffi_fptr) symbol;
|
|
}
|
|
|
|
void *symbol = dlsym(RTLD_DEFAULT, symbol_name.c_str());
|
|
if (symbol != nullptr)
|
|
return (ffi_fptr) symbol;
|
|
|
|
log_error("unable to resolve '%s'.\n", symbol_name);
|
|
}
|
|
|
|
std::unique_ptr<AST::AstNode> AST::dpi_call(AstSrcLocType loc, const std::string &rtype, const std::string &fname, const std::vector<std::string> &argtypes, const std::vector<std::unique_ptr<AST::AstNode>> &args)
|
|
{
|
|
std::unique_ptr<AST::AstNode> newNode = nullptr;
|
|
union value { double f64; float f32; int32_t i32; void *ptr; };
|
|
std::vector<value> value_store(args.size() + 1);
|
|
std::vector<ffi_type *> types(args.size() + 1);
|
|
std::vector<void *> values(args.size() + 1);
|
|
ffi_cif cif;
|
|
int status;
|
|
|
|
log("Calling DPI function `%s' and returning `%s':\n", fname, rtype);
|
|
|
|
log_assert(GetSize(args) == GetSize(argtypes));
|
|
for (int i = 0; i < GetSize(args); i++) {
|
|
if (argtypes[i] == "real") {
|
|
log(" arg %d (%s): %f\n", i, argtypes[i], args[i]->asReal(args[i]->is_signed));
|
|
value_store[i].f64 = args[i]->asReal(args[i]->is_signed);
|
|
values[i] = &value_store[i].f64;
|
|
types[i] = &ffi_type_double;
|
|
} else if (argtypes[i] == "shortreal") {
|
|
log(" arg %d (%s): %f\n", i, argtypes[i], args[i]->asReal(args[i]->is_signed));
|
|
value_store[i].f32 = args[i]->asReal(args[i]->is_signed);
|
|
values[i] = &value_store[i].f32;
|
|
types[i] = &ffi_type_double;
|
|
} else if (argtypes[i] == "integer") {
|
|
log(" arg %d (%s): %lld\n", i, argtypes[i], (long long)args[i]->asInt(args[i]->is_signed));
|
|
value_store[i].i32 = args[i]->asInt(args[i]->is_signed);
|
|
values[i] = &value_store[i].i32;
|
|
types[i] = &ffi_type_sint32;
|
|
} else if (argtypes[i] == "chandle") {
|
|
log(" arg %d (%s): %llx\n", i, argtypes[i], (unsigned long long)args[i]->asInt(false));
|
|
value_store[i].ptr = (void *)args[i]->asInt(args[i]->is_signed);
|
|
values[i] = &value_store[i].ptr;
|
|
types[i] = &ffi_type_pointer;
|
|
} else {
|
|
log_error("invalid argtype '%s' for argument %d.\n", argtypes[i], i);
|
|
}
|
|
}
|
|
|
|
if (rtype == "integer") {
|
|
types[args.size()] = &ffi_type_slong;
|
|
values[args.size()] = &value_store[args.size()].i32;
|
|
} else if (rtype == "shortreal") {
|
|
types[args.size()] = &ffi_type_float;
|
|
values[args.size()] = &value_store[args.size()].f32;
|
|
} else if (rtype == "real") {
|
|
types[args.size()] = &ffi_type_double;
|
|
values[args.size()] = &value_store[args.size()].f64;
|
|
} else if (rtype == "chandle") {
|
|
types[args.size()] = &ffi_type_pointer;
|
|
values[args.size()] = &value_store[args.size()].ptr;
|
|
} else {
|
|
log_error("invalid rtype '%s'.\n", rtype);
|
|
}
|
|
|
|
if ((status = ffi_prep_cif(&cif, FFI_DEFAULT_ABI, args.size(), types[args.size()], types.data())) != FFI_OK)
|
|
log_error("ffi_prep_cif failed: status %d.\n", status);
|
|
|
|
ffi_call(&cif, resolve_fn(fname.c_str()), values[args.size()], values.data());
|
|
|
|
if (rtype == "real") {
|
|
newNode = std::make_unique<AstNode>(loc, AST_REALVALUE);
|
|
newNode->realvalue = value_store[args.size()].f64;
|
|
log(" return realvalue: %g\n", newNode->asReal(true));
|
|
} else if (rtype == "shortreal") {
|
|
newNode = std::make_unique<AstNode>(loc, AST_REALVALUE);
|
|
newNode->realvalue = value_store[args.size()].f32;
|
|
log(" return realvalue: %g\n", newNode->asReal(true));
|
|
} else if (rtype == "chandle") {
|
|
uint64_t rawval = (uint64_t)value_store[args.size()].ptr;
|
|
std::vector<RTLIL::State> bits(64);
|
|
for (int i = 0; i < 64; i++)
|
|
bits.at(i) = (rawval & (1ULL << i)) ? RTLIL::State::S1 : RTLIL::State::S0;
|
|
newNode = AstNode::mkconst_bits(loc, bits, false);
|
|
log(" return chandle: %llx\n", (unsigned long long)newNode->asInt(false));
|
|
} else {
|
|
newNode = AstNode::mkconst_int(loc, value_store[args.size()].i32, false);
|
|
log(" return integer: %lld\n", (long long)newNode->asInt(true));
|
|
}
|
|
|
|
return newNode;
|
|
}
|
|
|
|
YOSYS_NAMESPACE_END
|
|
|
|
#else /* YOSYS_ENABLE_PLUGINS */
|
|
|
|
YOSYS_NAMESPACE_BEGIN
|
|
|
|
std::unique_ptr<AST::AstNode> AST::dpi_call(AstSrcLocType, const std::string&, const std::string &fname, const std::vector<std::string>&, const std::vector<std::unique_ptr<AST::AstNode>>&)
|
|
{
|
|
log_error("Can't call DPI function `%s': this version of yosys is built without plugin support\n", fname);
|
|
}
|
|
|
|
YOSYS_NAMESPACE_END
|
|
|
|
#endif /* YOSYS_ENABLE_PLUGINS */
|
|
|