From: David Shah <dave@ds0.me>
Date: Sat, 23 Jan 2021 22:24:31 +0000 (+0000)
Subject: dpi: Support for chandle type
X-Git-Tag: working-ls180~114^2
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=09311b6581e5f1b4282b20b987919d1514e62073;p=yosys.git

dpi: Support for chandle type

Signed-off-by: David Shah <dave@ds0.me>
---

diff --git a/frontends/ast/dpicall.cc b/frontends/ast/dpicall.cc
index e241142d3..948c9083c 100644
--- a/frontends/ast/dpicall.cc
+++ b/frontends/ast/dpicall.cc
@@ -67,7 +67,7 @@ static ffi_fptr resolve_fn (std::string symbol_name)
 AST::AstNode *AST::dpi_call(const std::string &rtype, const std::string &fname, const std::vector<std::string> &argtypes, const std::vector<AstNode*> &args)
 {
 	AST::AstNode *newNode = nullptr;
-	union { double f64; float f32; int32_t i32; } value_store [args.size() + 1];
+	union { double f64; float f32; int32_t i32; void *ptr; } value_store [args.size() + 1];
 	ffi_type *types [args.size() + 1];
 	void *values [args.size() + 1];
 	ffi_cif cif;
@@ -92,6 +92,11 @@ AST::AstNode *AST::dpi_call(const std::string &rtype, const std::string &fname,
 			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].c_str(), (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].c_str(), i);
 		}
@@ -106,6 +111,9 @@ AST::AstNode *AST::dpi_call(const std::string &rtype, const std::string &fname,
         } 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.c_str());
         }
@@ -123,6 +131,13 @@ AST::AstNode *AST::dpi_call(const std::string &rtype, const std::string &fname,
 		newNode = new AstNode(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(bits, false);
+		log("  return chandle: %llx\n", (unsigned long long)newNode->asInt(false));
 	} else {
 		newNode = AstNode::mkconst_int(value_store[args.size()].i32, false);
 		log("  return integer: %lld\n", (long long)newNode->asInt(true));