summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat
-rw-r--r--src/main/resources/vpi.cpp130
-rw-r--r--src/main/resources/vpi.h212
-rw-r--r--src/main/resources/vpi_user.cc562
3 files changed, 0 insertions, 904 deletions
diff --git a/src/main/resources/vpi.cpp b/src/main/resources/vpi.cpp
deleted file mode 100644
index 7850f3b0..00000000
--- a/src/main/resources/vpi.cpp
+++ /dev/null
@@ -1,130 +0,0 @@
-#include "vpi.h"
-
-vpi_api_t vpi_api;
-
-/*==========================================================================
- User Functions
-=============================================================================*/
-
-PLI_INT32 init_clks_calltf(PLI_BYTE8 *user_data) {
- vpi_api.init_clks();
- return 0;
-}
-
-PLI_INT32 init_rsts_calltf(PLI_BYTE8 *user_data) {
- vpi_api.init_rsts();
- return 0;
-}
-
-PLI_INT32 init_ins_calltf(PLI_BYTE8 *user_data) {
- vpi_api.init_ins();
- return 0;
-}
-
-PLI_INT32 init_outs_calltf(PLI_BYTE8 *user_data) {
- vpi_api.init_outs();
- return 0;
-}
-
-PLI_INT32 init_sigs_calltf(PLI_BYTE8 *user_data) {
- vpi_api.init_sigs();
- return 0;
-}
-
-PLI_INT32 tick_calltf(PLI_BYTE8 *user_data) {
- vpi_api.tick();
- return 0;
-}
-
-PLI_INT32 tick_cb(p_cb_data cb_data) {
- vpi_api.tick();
- return 0;
-}
-
-/*==========================================================================
- Registration Functions
-=============================================================================*/
-void init_clks_registration() {
- s_vpi_systf_data tf_data;
- tf_data.type = vpiSysTask;
- tf_data.tfname = (PLI_BYTE8*) "$init_clks";
- tf_data.sizetf = NULL;
- tf_data.calltf = init_clks_calltf;
- tf_data.compiletf = NULL;
- tf_data.user_data = NULL;
- vpi_register_systf(&tf_data);
- return;
-}
-
-void init_rsts_registration() {
- s_vpi_systf_data tf_data;
- tf_data.type = vpiSysTask;
- tf_data.tfname = (PLI_BYTE8*) "$init_rsts";
- tf_data.sizetf = NULL;
- tf_data.calltf = init_rsts_calltf;
- tf_data.compiletf = NULL;
- tf_data.user_data = NULL;
- vpi_register_systf(&tf_data);
- return;
-}
-
-void init_ins_registration() {
- s_vpi_systf_data tf_data;
- tf_data.type = vpiSysTask;
- tf_data.tfname = (PLI_BYTE8*) "$init_ins";
- tf_data.sizetf = NULL;
- tf_data.calltf = init_ins_calltf;
- tf_data.compiletf = NULL;
- tf_data.user_data = NULL;
- vpi_register_systf(&tf_data);
- return;
-}
-
-void init_outs_registration() {
- s_vpi_systf_data tf_data;
- tf_data.type = vpiSysTask;
- tf_data.tfname = (PLI_BYTE8*) "$init_outs";
- tf_data.sizetf = NULL;
- tf_data.calltf = init_outs_calltf;
- tf_data.compiletf = NULL;
- tf_data.user_data = NULL;
- vpi_register_systf(&tf_data);
- return;
-}
-
-void init_sigs_registration() {
- s_vpi_systf_data tf_data;
- tf_data.type = vpiSysTask;
- tf_data.tfname = (PLI_BYTE8*) "$init_sigs";
- tf_data.sizetf = NULL;
- tf_data.calltf = init_sigs_calltf;
- tf_data.compiletf = NULL;
- tf_data.user_data = NULL;
- vpi_register_systf(&tf_data);
- return;
-}
-
-void tick_registration() {
- s_vpi_systf_data tf_data;
- tf_data.type = vpiSysTask;
- tf_data.tfname = (PLI_BYTE8*) "$tick";
- tf_data.sizetf = NULL;
- tf_data.calltf = tick_calltf;
- tf_data.compiletf = NULL;
- tf_data.user_data = NULL;
- vpi_register_systf(&tf_data);
- return;
-}
-
-/*==========================================================================
- Start-up Array
-=============================================================================*/
-void (*vlog_startup_routines[]) () = {
- init_clks_registration,
- init_rsts_registration,
- init_ins_registration,
- init_outs_registration,
- init_sigs_registration,
- tick_registration,
- 0
-};
diff --git a/src/main/resources/vpi.h b/src/main/resources/vpi.h
deleted file mode 100644
index 09c2dc75..00000000
--- a/src/main/resources/vpi.h
+++ /dev/null
@@ -1,212 +0,0 @@
-#ifndef __VPI_H
-#define __VPI_h
-
-#include "vpi_user.h"
-#include "sim_api.h"
-#include <queue>
-
-PLI_INT32 tick_cb(p_cb_data cb_data);
-
-class vpi_api_t: public sim_api_t<vpiHandle> {
-public:
- void init_clks() {
- vpiHandle syscall_handle = vpi_handle(vpiSysTfCall, NULL);
- vpiHandle arg_iter = vpi_iterate(vpiArgument, syscall_handle);
- // Cache clocks
- while (vpiHandle arg_handle = vpi_scan(arg_iter)) {
- std::string name = vpi_get_str(vpiName, arg_handle);
- sim_data.clk_map[name.substr(0, name.rfind("_len"))] = arg_handle;
- }
- }
-
- void init_rsts() {
- vpiHandle syscall_handle = vpi_handle(vpiSysTfCall, NULL);
- vpiHandle arg_iter = vpi_iterate(vpiArgument, syscall_handle);
- // Cache Resets
- while (vpiHandle arg_handle = vpi_scan(arg_iter)) {
- sim_data.resets.push_back(arg_handle);
- }
- }
-
- void init_ins() {
- vpiHandle syscall_handle = vpi_handle(vpiSysTfCall, NULL);
- vpiHandle arg_iter = vpi_iterate(vpiArgument, syscall_handle);
- // Cache Inputs
- while (vpiHandle arg_handle = vpi_scan(arg_iter)) {
- sim_data.inputs.push_back(arg_handle);
- }
- }
-
- void init_outs() {
- vpiHandle syscall_handle = vpi_handle(vpiSysTfCall, NULL);
- vpiHandle arg_iter = vpi_iterate(vpiArgument, syscall_handle);
- // Cache Outputs
- while (vpiHandle arg_handle = vpi_scan(arg_iter)) {
- sim_data.outputs.push_back(arg_handle);
- }
- }
-
- void init_sigs() {
- vpiHandle syscall_handle = vpi_handle(vpiSysTfCall, NULL);
- top_handle = vpi_scan(vpi_iterate(vpiArgument, syscall_handle));
- search_signals();
- }
-
-private:
- vpiHandle top_handle;
-
- void put_value(vpiHandle& sig) {
- std::string value;
- for (size_t k = 0 ; k < ((vpi_get(vpiSize, sig) - 1) >> 6) + 1 ; k++) {
- // 64 bit chunks are given
- std::string v;
- std::cin >> v;
- value += v;
- }
- s_vpi_value value_s;
- value_s.format = vpiHexStrVal;
- value_s.value.str = (PLI_BYTE8*) value.c_str();
- vpi_put_value(sig, &value_s, NULL, vpiNoDelay);
- }
-
- void get_value(vpiHandle& sig) {
- s_vpi_value value_s;
- value_s.format = vpiHexStrVal;
- vpi_get_value(sig, &value_s);
- std::cerr << value_s.value.str << std::endl;
- }
-
- virtual void reset() {
- for (size_t i = 0 ; i < sim_data.resets.size() ; i++) {
- s_vpi_value value_s;
- value_s.format = vpiHexStrVal;
- value_s.value.str = (PLI_BYTE8*) "1";
- vpi_put_value(sim_data.resets[i], &value_s, NULL, vpiNoDelay);
- }
- }
-
- virtual void start() {
- for (size_t i = 0 ; i < sim_data.resets.size() ; i++) {
- s_vpi_value value_s;
- value_s.format = vpiHexStrVal;
- value_s.value.str = (PLI_BYTE8*) "0";
- vpi_put_value(sim_data.resets[i], &value_s, NULL, vpiNoDelay);
- }
- }
-
- virtual void finish() { vpi_control(vpiFinish, 0); }
-
- virtual void step() { }
-
- virtual void update() {
- s_cb_data data_s;
- s_vpi_time time_s;
- time_s.type = vpiSimTime;
- time_s.low = 0;
- time_s.high = 0;
- data_s.reason = cbReadWriteSynch;
- data_s.cb_rtn = tick_cb;
- data_s.obj = NULL;
- data_s.time = &time_s;
- data_s.value = NULL;
- data_s.user_data = NULL;
- vpi_free_object(vpi_register_cb(&data_s));
- }
-
- virtual size_t add_signal(vpiHandle& sig_handle, std::string& wire) {
- size_t id = sim_data.signals.size();
- sim_data.signals.push_back(sig_handle);
- sim_data.signal_map[wire] = id;
- return id;
- }
-
- int search_signals(const char *wire = NULL) {
- int id = -1;
- std::string wirepath = wire ? wire : "";
- int dotpos = wirepath.rfind(".");
- std::string modpath = dotpos > 0 ? wirepath.substr(0, dotpos) : "";
- std::string wirename = dotpos > 0 ? wirepath.substr(dotpos+1) : "";
- int sbrpos = wirename.rfind("[");
- std::string arrname = sbrpos > 0 ? wirename.substr(0, sbrpos) : "";
- std::queue<vpiHandle> modules;
- size_t offset = std::string(vpi_get_str(vpiFullName, top_handle)).find(".") + 1;
-
- // Start from the top module
- modules.push(top_handle);
-
- while (!modules.empty()) {
- vpiHandle mod_handle = modules.front();
- modules.pop();
-
- std::string modname = std::string(vpi_get_str(vpiFullName, mod_handle)).substr(offset);
- // If the module is found
- if (!wire || modpath == modname) {
- // Iterate its nets
- vpiHandle net_iter = vpi_iterate(vpiNet, mod_handle);
- while (vpiHandle net_handle = vpi_scan(net_iter)) {
- std::string netname = vpi_get_str(vpiName, net_handle);
- std::string netpath = modname + "." + netname;
- size_t netid = (!wire && netname[0] != 'T') || wirename == netname ?
- add_signal(net_handle, netpath) : 0;
- id = netid ? netid : id;
- if (id > 0) break;
- }
- if (id > 0) break;
-
- // Iterate its regs
- vpiHandle reg_iter = vpi_iterate(vpiReg, mod_handle);
- while (vpiHandle reg_handle = vpi_scan(reg_iter)) {
- std::string regname = vpi_get_str(vpiName, reg_handle);
- std::string regpath = modname + "." + regname;
- size_t regid = !wire || wirename == regname ?
- add_signal(reg_handle, regpath) : 0;
- id = regid ? regid : id;
- if (id > 0) break;
- }
- if (id > 0) break;
-
- // Iterate its mems
- vpiHandle mem_iter = vpi_iterate(vpiRegArray, mod_handle);
- while (vpiHandle mem_handle = vpi_scan(mem_iter)) {
- std::string memname = vpi_get_str(vpiName, mem_handle);
- if (!wire || arrname == memname) {
- vpiHandle elm_iter = vpi_iterate(vpiReg, mem_handle);
- size_t idx = vpi_get(vpiSize, mem_handle);
- while (vpiHandle elm_handle = vpi_scan(elm_iter)) {
- std::string elmname = vpi_get_str(vpiName, elm_handle);
- std::string elmpath = modname + "." + elmname;
- size_t elmid = add_signal(elm_handle, elmpath);
- id = wirename == elmname ? elmid : id;
- }
- }
- if (id > 0) break;
- }
- }
-
- // Find DFF
- if (!wire || wirepath == modname) {
- vpiHandle udp_iter = vpi_iterate(vpiPrimitive, mod_handle);
- while (vpiHandle udp_handle = vpi_scan(udp_iter)) {
- if (vpi_get(vpiPrimType, udp_handle) == vpiSeqPrim) {
- id = add_signal(udp_handle, modname);
- break;
- }
- }
- }
- if (id > 0) break;
-
- vpiHandle sub_iter = vpi_iterate(vpiModule, mod_handle);
- while (vpiHandle sub_handle = vpi_scan(sub_iter)) {
- modules.push(sub_handle);
- }
- }
-
- return id;
- }
-
- virtual int search(std::string& wire) {
- return search_signals(wire.c_str());
- }
-};
-
-#endif // __VPI_H
diff --git a/src/main/resources/vpi_user.cc b/src/main/resources/vpi_user.cc
deleted file mode 100644
index f24d8e39..00000000
--- a/src/main/resources/vpi_user.cc
+++ /dev/null
@@ -1,562 +0,0 @@
-#include <fstream>
-#include <sstream>
-#include <string>
-#include <set>
-#include <map>
-#include <queue>
-#include <ctime>
-#include <vpi_user.h>
-
-using namespace std;
-
-/*==========================================================================
- User Functions
-=============================================================================*/
-int32_t wire_poke_calltf(char *user_data) {
- queue<vpiHandle> modules;
- vpiHandle syscall_handle = vpi_handle(vpiSysTfCall, NULL);
- vpiHandle arg_iter = vpi_iterate(vpiArgument, syscall_handle);
- // First argument: <node_name>
- s_vpi_value node_s;
- node_s.format = vpiStringVal;
- vpi_get_value(vpi_scan(arg_iter), &node_s);
- // Second argument: <value>
- s_vpi_value value_s;
- value_s.format = vpiIntVal;
- vpi_get_value(vpi_scan(arg_iter), &value_s);
- vpi_free_object(arg_iter);
-
- vpiHandle test_handle = vpi_scan(vpi_iterate(vpiModule, NULL));
- vpiHandle top_handle = vpi_scan(vpi_iterate(vpiModule, test_handle));
- // Construct node paths
- string testname = vpi_get_str(vpiDefName, test_handle);
- istringstream iss(node_s.value.str);
- string nodename;
- iss >> nodename;
- ostringstream oss;
- oss << testname << "." << nodename;
- string nodepath = oss.str();
-
- // Examine the regs in the testbench
- // in order to give the correct input values
- string modulepath = vpi_get_str(vpiFullName, top_handle);
- string testpath = testname + nodepath.substr(modulepath.length(), nodepath.length() - modulepath.length());
- vpiHandle reg_iter = vpi_iterate(vpiReg, test_handle);
- while (vpiHandle reg_handle = vpi_scan(reg_iter)) {
- if (testpath == vpi_get_str(vpiFullName, reg_handle)) {
- vpi_put_value(reg_handle, &value_s, NULL, vpiNoDelay);
- vpi_printf("ok\n");
- return 0;
- }
- }
-
- // Start from the top module
- modules.push(top_handle);
-
- bool found = false;
- while (!modules.empty()) {
- vpiHandle mod_handle = modules.front();
- modules.pop();
-
- // Iterate its net
- vpiHandle net_iter = vpi_iterate(vpiNet, mod_handle);
- while (vpiHandle net_handle = vpi_scan(net_iter)) {
- if (nodepath == vpi_get_str(vpiFullName, net_handle)) {
- vpi_put_value(net_handle, &value_s, NULL, vpiNoDelay);
- found = true;
- }
- if (found) break;
- }
- if (found) break;
-
- // Iterate its reg
- vpiHandle reg_iter = vpi_iterate(vpiReg, mod_handle);
- while (vpiHandle reg_handle = vpi_scan(reg_iter)) {
- if (nodepath == vpi_get_str(vpiFullName, reg_handle)) {
- vpi_put_value(reg_handle, &value_s, NULL, vpiNoDelay);
- found = true;
- }
- if (found) break;
- }
- if (found) break;
-
- vpiHandle sub_iter = vpi_iterate(vpiModule, mod_handle);
- while (vpiHandle sub_handle = vpi_scan(sub_iter)) {
- modules.push(sub_handle);
- }
- }
-
- if (found)
- vpi_printf("ok\n");
- else
- vpi_printf("error\n");
-
- return 0;
-}
-
-int32_t wire_peek_calltf(char *user_data) {
- queue<vpiHandle> modules;
- vpiHandle syscall_handle = vpi_handle(vpiSysTfCall, NULL);
- vpiHandle arg_iter = vpi_iterate(vpiArgument, syscall_handle);
- // First argument: <node_name>
- s_vpi_value node_s;
- node_s.format = vpiStringVal;
- vpi_get_value(vpi_scan(arg_iter), &node_s);
- vpi_free_object(arg_iter);
-
- vpiHandle test_handle = vpi_scan(vpi_iterate(vpiModule, NULL));
- vpiHandle top_handle = vpi_scan(vpi_iterate(vpiModule, test_handle));
- // Construct node paths
- string testname = vpi_get_str(vpiDefName, test_handle);
- istringstream iss(node_s.value.str);
- string nodename;
- iss >> nodename;
- ostringstream oss;
- oss << testname << "." << nodename;
- string nodepath = oss.str();
- // Start from the top module
- modules.push(top_handle);
-
- s_vpi_value value_s;
- value_s.format = vpiHexStrVal;
- bool found = false;
- while (!modules.empty()) {
- vpiHandle mod_handle = modules.front();
- modules.pop();
-
- // Iterate its net
- vpiHandle net_iter = vpi_iterate(vpiNet, mod_handle);
- while (vpiHandle net_handle = vpi_scan(net_iter)) {
- if (nodepath == vpi_get_str(vpiFullName, net_handle)) {
- vpi_get_value(net_handle, &value_s);
- found = true;
- }
- }
- if (found) break;
-
- // Iterate its reg
- vpiHandle reg_iter = vpi_iterate(vpiReg, mod_handle);
- while (vpiHandle reg_handle = vpi_scan(reg_iter)) {
- if (nodepath == vpi_get_str(vpiFullName, reg_handle)) {
- vpi_get_value(reg_handle, &value_s);
- found = true;
- }
- }
- if (found) break;
-
- vpiHandle sub_iter = vpi_iterate(vpiModule, mod_handle);
- while (vpiHandle sub_handle = vpi_scan(sub_iter)) {
- modules.push(sub_handle);
- }
- }
-
- if (found)
- vpi_printf("0x%s\n", value_s.value.str);
- else
- vpi_printf("error\n");
-
- return 0;
-}
-
-int32_t mem_poke_calltf(char *user_data) {
- queue<vpiHandle> modules;
- vpiHandle syscall_handle = vpi_handle(vpiSysTfCall, NULL);
- vpiHandle arg_iter = vpi_iterate(vpiArgument, syscall_handle);
- // First argument: <mem_name>
- s_vpi_value node_s;
- node_s.format = vpiStringVal;
- vpi_get_value(vpi_scan(arg_iter), &node_s);
- // Second argument: <mem_index>
- s_vpi_value index_s;
- index_s.format = vpiIntVal;
- vpi_get_value(vpi_scan(arg_iter), &index_s);
- // Third argument: <value>
- s_vpi_value value_s;
- value_s.format = vpiIntVal;
- vpi_get_value(vpi_scan(arg_iter), &value_s);
-
- vpiHandle test_handle = vpi_scan(vpi_iterate(vpiModule, NULL));
- vpiHandle top_handle = vpi_scan(vpi_iterate(vpiModule, test_handle));
- // Construct node paths
- string testname = vpi_get_str(vpiDefName, test_handle);
- istringstream iss(node_s.value.str);
- string nodename;
- iss >> nodename;
- ostringstream oss;
- oss << testname << "." << nodename;
- string nodepath = oss.str();
- oss << "[" << index_s.value.integer << "]";
- string elmpath = oss.str();
-
- // Examine the reg arrays in the testbench
- // in order to give the correct input values
- string modulepath = vpi_get_str(vpiFullName, top_handle);
- string testpath = testname + nodepath.substr(modulepath.length(), nodepath.length() - modulepath.length());
- vpiHandle reg_iter = vpi_iterate(vpiRegArray, test_handle);
- while (vpiHandle reg_handle = vpi_scan(reg_iter)) {
- if (testpath == vpi_get_str(vpiFullName, reg_handle)) {
- vpiHandle elm_iter = vpi_iterate(vpiReg, reg_handle);
- while (vpiHandle elm_handle = vpi_scan(elm_iter)) {
- if (elmpath == vpi_get_str(vpiFullName, elm_handle)) {
- vpi_put_value(elm_handle, &value_s, NULL, vpiNoDelay);
- vpi_printf("ok\n");
- return 0;
- }
- }
- }
- }
-
- // Start from the top module
- modules.push(top_handle);
-
- bool found = false;
- while (!modules.empty()) {
- vpiHandle mod_handle = modules.front();
- modules.pop();
-
- // Iterate its net arrays
- vpiHandle net_iter = vpi_iterate(vpiNetArray, mod_handle);
- while (vpiHandle net_handle = vpi_scan(net_iter)) {
- if (nodepath == vpi_get_str(vpiFullName, net_handle)) {
- vpiHandle elm_iter = vpi_iterate(vpiNet, net_handle);
- while (vpiHandle elm_handle = vpi_scan(elm_iter)) {
- if (elmpath == vpi_get_str(vpiFullName, elm_handle)){
- vpi_put_value(elm_handle, &value_s, NULL, vpiNoDelay);
- found = true;
- }
- if (found) break;
- }
- }
- if (found) break;
- }
- if (found) break;
-
- // Iterate its reg arrays
- vpiHandle reg_iter = vpi_iterate(vpiRegArray, mod_handle);
- while (vpiHandle reg_handle = vpi_scan(reg_iter)) {
- if (nodepath == vpi_get_str(vpiFullName, reg_handle)) {
- vpiHandle elm_iter = vpi_iterate(vpiReg, reg_handle);
- while (vpiHandle elm_handle = vpi_scan(elm_iter)) {
- if (elmpath == vpi_get_str(vpiFullName, elm_handle)){
- vpi_put_value(elm_handle, &value_s, NULL, vpiNoDelay);
- found = true;
- }
- if (found) break;
- }
- }
- if (found) break;
- }
- if (found) break;
-
- vpiHandle sub_iter = vpi_iterate(vpiModule, mod_handle);
- while (vpiHandle sub_handle = vpi_scan(sub_iter)) {
- modules.push(sub_handle);
- }
- }
-
- if (found)
- vpi_printf("ok\n");
- else
- vpi_printf("error\n");
-}
-
-int32_t mem_peek_calltf(char *user_data) {
- queue<vpiHandle> modules;
- vpiHandle syscall_handle = vpi_handle(vpiSysTfCall, NULL);
- vpiHandle arg_iter = vpi_iterate(vpiArgument, syscall_handle);
- // First argument: <node_name>
- s_vpi_value node_s;
- node_s.format = vpiStringVal;
- vpi_get_value(vpi_scan(arg_iter), &node_s);
- // Second argument: <mem_index>
- s_vpi_value index_s;
- index_s.format = vpiIntVal;
- vpi_get_value(vpi_scan(arg_iter), &index_s);
-
- vpiHandle test_handle = vpi_scan(vpi_iterate(vpiModule, NULL));
- vpiHandle top_handle = vpi_scan(vpi_iterate(vpiModule, test_handle));
- // Construct node paths
- string testname = vpi_get_str(vpiDefName, test_handle);
- istringstream iss(node_s.value.str);
- string nodename;
- iss >> nodename;
- ostringstream oss;
- oss << testname << "." << nodename;
- string nodepath = oss.str();
- oss << "[" << index_s.value.integer << "]";
- string elmpath = oss.str();
- // Start from the top module
- modules.push(top_handle);
-
- s_vpi_value value_s;
- value_s.format = vpiHexStrVal;
- bool found = false;
- while (!modules.empty()) {
- vpiHandle mod_handle = modules.front();
- modules.pop();
-
- // Iterate its net arrays
- vpiHandle net_iter = vpi_iterate(vpiNetArray, mod_handle);
- while (vpiHandle net_handle = vpi_scan(net_iter)) {
- if (nodepath == vpi_get_str(vpiFullName, net_handle)) {
- vpiHandle elm_iter = vpi_iterate(vpiNet, net_handle);
- while (vpiHandle elm_handle = vpi_scan(elm_iter)) {
- if (elmpath == vpi_get_str(vpiFullName, elm_handle)){
- vpi_get_value(elm_handle, &value_s);
- found = true;
- }
- if (found) break;
- }
- }
- if (found) break;
- }
- if (found) break;
-
- // Iterate its reg arrays
- vpiHandle reg_iter = vpi_iterate(vpiRegArray, mod_handle);
- while (vpiHandle reg_handle = vpi_scan(reg_iter)) {
- if (nodepath == vpi_get_str(vpiFullName, reg_handle)) {
- vpiHandle elm_iter = vpi_iterate(vpiReg, reg_handle);
- while (vpiHandle elm_handle = vpi_scan(elm_iter)) {
- if (elmpath == vpi_get_str(vpiFullName, elm_handle)){
- vpi_get_value(elm_handle, &value_s);
- found = true;
- }
- if (found) break;
- }
- }
- if (found) break;
- }
- if (found) break;
-
- vpiHandle sub_iter = vpi_iterate(vpiModule, mod_handle);
- while (vpiHandle sub_handle = vpi_scan(sub_iter)) {
- modules.push(sub_handle);
- }
- }
-
- if (found)
- vpi_printf("0x%s\n", value_s.value.str);
- else
- vpi_printf("error\n");
-}
-
-/*==========================================================================
- Compile Time Functions
-=============================================================================*/
-
-int32_t wire_poke_compiletf (char *user_data) {
- vpiHandle syscall_handle = vpi_handle(vpiSysTfCall, NULL);
- vpiHandle arg_iter = vpi_iterate(vpiArgument, syscall_handle), arg_handle;
- bool error = false;
-
- if (arg_iter == NULL) {
- vpi_printf("ERROR: $wire_poke requires at least two argument(nodename, hex_value)\n");
- vpi_control(vpiFinish, 1); /* abort simulation */
- return 0;
- }
-
- arg_handle = vpi_scan(arg_iter);
- if (vpi_get(vpiType, arg_handle) != vpiReg && vpi_get(vpiType, arg_handle) != vpiStringConst) {
- vpi_printf("ERROR: $wire_poke requires the first argument as a string(nodename)\n");
- error = true;
- }
-
- arg_handle = vpi_scan(arg_iter);
- if (vpi_get(vpiType, arg_handle) != vpiReg && vpi_get(vpiType, arg_handle) != vpiHexConst) {
- vpi_printf("ERROR: $wire_poke requires the second argument as a hex number(value)\n");
- error = true;
- }
-
- if (vpi_scan(arg_iter) != NULL) {
- vpi_printf("ERROR: $wire_poke requires only two arguments(nodename, hex_value))\n");
- error = true;
- }
-
- if (error) {
- vpi_control(vpiFinish, 1); /* abort simulation */
- return 0;
- }
- return 0;
-}
-
-int32_t wire_peek_compiletf (char *user_data) {
- vpiHandle syscall_handle = vpi_handle(vpiSysTfCall, NULL);
- vpiHandle arg_iter = vpi_iterate(vpiArgument, syscall_handle), arg_handle;
- bool error = false;
-
- if (arg_iter == NULL) {
- vpi_printf("ERROR: $wire_peek requires at least one argument(nodename)\n");
- vpi_control(vpiFinish, 1); /* abort simulation */
- return 0;
- }
-
- arg_handle = vpi_scan(arg_iter);
- if (vpi_get(vpiType, arg_handle) != vpiReg && vpi_get(vpiType, arg_handle) != vpiStringConst) {
- vpi_printf("ERROR: $wire_peek requires the first argument as a string(nodename)\n");
- error = true;
- }
-
- if (vpi_scan(arg_iter) != NULL) {
- vpi_printf("ERROR: $wire_peek requires only one arguments(nodename))\n");
- error = true;
- }
-
- if (error) {
- vpi_control(vpiFinish, 1); /* abort simulation */
- return 0;
- }
- return 0;
-}
-
-int32_t mem_poke_compiletf (char *user_data) {
- vpiHandle syscall_handle = vpi_handle(vpiSysTfCall, NULL);
- vpiHandle arg_iter = vpi_iterate(vpiArgument, syscall_handle), arg_handle;
- bool error = false;
-
- if (arg_iter == NULL) {
- vpi_printf("ERROR: $mem_poke requires at least three argument(nodename, offset, hex_value)\n");
- vpi_control(vpiFinish, 1); /* abort simulation */
- return 0;
- }
-
- arg_handle = vpi_scan(arg_iter);
- if (vpi_get(vpiType, arg_handle) != vpiReg && vpi_get(vpiType, arg_handle) != vpiStringConst) {
- vpi_printf("ERROR: $mem_poke requires the first argument as a string(nodename)\n");
- error = true;
- }
-
- arg_handle = vpi_scan(arg_iter);
- if (vpi_get(vpiType, arg_handle) != vpiIntegerVar && vpi_get(vpiType, arg_handle) != vpiDecConst) {
- vpi_printf("ERROR: $mem_poke requires the second argument as a integer(offset)\n");
- error = true;
- }
-
- arg_handle = vpi_scan(arg_iter);
- if (vpi_get(vpiType, arg_handle) != vpiReg && vpi_get(vpiType, arg_handle) != vpiHexConst) {
- vpi_printf("ERROR: $mem_poke requires the third argument as a hex string(value)\n");
- error = true;
- }
-
- if (vpi_scan(arg_iter) != NULL) {
- vpi_printf("ERROR: $mem_poke requires only three arguments(nodename, offset, hex_value))\n");
- error = true;
- }
-
- if (error) {
- vpi_control(vpiFinish, 1); /* abort simulation */
- return 0;
- }
- return 0;
-}
-
-int32_t mem_peek_compiletf (char *user_data) {
- vpiHandle syscall_handle = vpi_handle(vpiSysTfCall, NULL);
- vpiHandle arg_iter = vpi_iterate(vpiArgument, syscall_handle), arg_handle;
- bool error = false;
-
- if (arg_iter == NULL) {
- vpi_printf("ERROR: $mem_peek requires at least two argument(nodename, offset, hex_value)\n");
- vpi_control(vpiFinish, 1); /* abort simulation */
- return 0;
- }
-
- arg_handle = vpi_scan(arg_iter);
- if (vpi_get(vpiType, arg_handle) != vpiReg && vpi_get(vpiType, arg_handle) != vpiStringConst) {
- vpi_printf("ERROR: $mem_peek requires the first argument as a string(nodename)\n");
- error = true;
- }
-
- arg_handle = vpi_scan(arg_iter);
- if (vpi_get(vpiType, arg_handle) != vpiIntegerVar && vpi_get(vpiType, arg_handle) != vpiDecConst) {
- vpi_printf("ERROR: $mem_peek requires the second argument as a integer(offset)\n");
- error = true;
- }
-
- if (vpi_scan(arg_iter) != NULL) {
- vpi_printf("ERROR: $mem_peek requires only two arguments(nodename, offset))\n");
- error = true;
- }
-
- if (error) {
- vpi_control(vpiFinish, 1); /* abort simulation */
- return 0;
- }
- return 0;
-}
-
-
-/*==========================================================================
- Registration Functions
-=============================================================================*/
-
-void wire_poke_registration() {
- s_vpi_systf_data tf_data;
-
- tf_data.type = vpiSysTask;
- tf_data.tfname = "$wire_poke";
- tf_data.sizetf = NULL;
- tf_data.calltf = wire_poke_calltf;
- tf_data.compiletf = wire_poke_compiletf;
- tf_data.user_data = NULL;
-
- vpi_register_systf(&tf_data);
-
- return;
-}
-
-void wire_peek_registration() {
- s_vpi_systf_data tf_data;
-
- tf_data.type = vpiSysTask;
- tf_data.tfname = "$wire_peek";
- tf_data.sizetf = NULL;
- tf_data.calltf = wire_peek_calltf;
- tf_data.compiletf = wire_peek_compiletf;
- tf_data.user_data = NULL;
-
- vpi_register_systf(&tf_data);
-
- return;
-}
-
-void mem_poke_registration() {
- s_vpi_systf_data tf_data;
-
- tf_data.type = vpiSysTask;
- tf_data.tfname = "$mem_poke";
- tf_data.sizetf = NULL;
- tf_data.calltf = mem_poke_calltf;
- tf_data.compiletf = mem_poke_compiletf;
- tf_data.user_data = NULL;
-
- vpi_register_systf(&tf_data);
-
- return;
-}
-
-void mem_peek_registration() {
- s_vpi_systf_data tf_data;
-
- tf_data.type = vpiSysTask;
- tf_data.tfname = "$mem_peek";
- tf_data.sizetf = NULL;
- tf_data.calltf = mem_peek_calltf;
- tf_data.compiletf = mem_peek_compiletf;
- tf_data.user_data = NULL;
-
- vpi_register_systf(&tf_data);
-
- return;
-}
-
-/*==========================================================================
- Start-up Array
-=============================================================================*/
-void (*vlog_startup_routines[]) () = {
- wire_poke_registration,
- wire_peek_registration,
- mem_poke_registration,
- mem_peek_registration,
- 0
-};
generated by cgit v1.2.3 (git 2.25.1) at 2026-01-31 20:12:14 +0000