From 085c8e873d4d90129a952eba85836891635a7f8c Mon Sep 17 00:00:00 2001
From: Clifford Wolf <clifford@clifford.at>
Date: Thu, 21 Aug 2014 17:11:51 +0200
Subject: [PATCH] Added AstNode::asInt()

---
 frontends/ast/ast.cc     | 23 ++++++++++++++++++++++-
 frontends/ast/ast.h      |  1 +
 frontends/ast/dpicall.cc |  2 +-
 3 files changed, 24 insertions(+), 2 deletions(-)

diff --git a/frontends/ast/ast.cc b/frontends/ast/ast.cc
index de38eff6c..2fc8f9835 100644
--- a/frontends/ast/ast.cc
+++ b/frontends/ast/ast.cc
@@ -792,9 +792,30 @@ int AstNode::isConst()
 	return 0;
 }
 
+uint64_t AstNode::asInt(bool is_signed)
+{
+	if (type == AST_CONSTANT)
+	{
+		RTLIL::Const v = bitsAsConst(64, is_signed);
+		uint64_t ret = 0;
+
+		for (int i = 0; i < 64; i++)
+			if (v.bits.at(i) == RTLIL::State::S1)
+				ret |= uint64_t(1) << i;
+
+		return ret;
+	}
+
+	if (type == AST_REALVALUE)
+		return realvalue;
+
+	log_abort();
+}
+
 double AstNode::asReal(bool is_signed)
 {
-	if (type == AST_CONSTANT) {
+	if (type == AST_CONSTANT)
+	{
 		RTLIL::Const val(bits);
 
 		bool is_negative = is_signed && val.bits.back() == RTLIL::State::S1;
diff --git a/frontends/ast/ast.h b/frontends/ast/ast.h
index 88917c64b..0a4016736 100644
--- a/frontends/ast/ast.h
+++ b/frontends/ast/ast.h
@@ -247,6 +247,7 @@ namespace AST
 		RTLIL::Const bitsAsConst(int width = -1);
 		RTLIL::Const asAttrConst();
 		RTLIL::Const asParaConst();
+		uint64_t asInt(bool is_signed);
 		bool bits_only_01();
 		bool asBool();
 
diff --git a/frontends/ast/dpicall.cc b/frontends/ast/dpicall.cc
index a1954dabf..965645cde 100644
--- a/frontends/ast/dpicall.cc
+++ b/frontends/ast/dpicall.cc
@@ -30,7 +30,7 @@ AST::AstNode *AST::dpi_call(const std::string &rtype, const std::string &fname,
 		if (argtypes[i] == "real" || argtypes[i] == "shortreal")
 			log("  arg %d (%s): %f\n", i, argtypes[i].c_str(), args[i]->asReal(args[i]->is_signed));
 		else
-			log("  arg %d (%s): %d\n", i, argtypes[i].c_str(), args[i]->bitsAsConst().as_int());
+			log("  arg %d (%s): %lld\n", i, argtypes[i].c_str(), (long long)args[i]->asInt(args[i]->is_signed));
 
 	if (rtype == "real" || rtype == "shortreal") {
 		newNode = new AstNode(AST_REALVALUE);
-- 
2.30.2