forked from github/verilator
683 lines
25 KiB
C++
683 lines
25 KiB
C++
// -*- mode: C++; c-file-style: "cc-mode" -*-
|
|
//*************************************************************************
|
|
//
|
|
// Copyright 2012 by Wilson Snyder. This program is free software; you
|
|
// can redistribute it and/or modify it under the terms of either the GNU
|
|
// Lesser General Public License Version 3 or the Perl Artistic License
|
|
// Version 2.0.
|
|
// SPDX-License-Identifier: LGPL-3.0-only OR Artistic-2.0
|
|
//
|
|
// Contributed by Jeremy Bennett and Jie Xu
|
|
//
|
|
//*************************************************************************
|
|
|
|
#include "Vt_dpi_accessors.h"
|
|
#include "Vt_dpi_accessors__Dpi.h"
|
|
#include "svdpi.h"
|
|
|
|
#include <iomanip>
|
|
#include <iostream>
|
|
|
|
using std::cout;
|
|
using std::dec;
|
|
using std::endl;
|
|
using std::hex;
|
|
using std::setfill;
|
|
using std::setw;
|
|
|
|
// Convenience function to check we didn't finish unexpectedly
|
|
static void checkFinish(VerilatedContext* contextp, const char* msg) {
|
|
if (contextp->gotFinish()) {
|
|
vl_fatal(__FILE__, __LINE__, "dut", msg);
|
|
exit(1);
|
|
}
|
|
}
|
|
|
|
// Convenience function to log the value of a register in hex. Only in verbose
|
|
// mode.
|
|
static void logReg(int clk, const char* desc, int val, const char* note) {
|
|
#ifdef TEST_VERBOSE
|
|
cout << "clk = " << clk << ", " << desc << " = " << val << note << endl;
|
|
#endif
|
|
}
|
|
|
|
// Convenience function to log the value of a register in hex. Only in verbose
|
|
// mode.
|
|
static void logRegHex(int clk, const char* desc, int bitWidth, int val, const char* note) {
|
|
#ifdef TEST_VERBOSE
|
|
cout << "clk = " << clk << ", " << desc << " = " << bitWidth << "\'h" << hex
|
|
<< setw((bitWidth - 1) / 4 + 1) << setfill('0') << val << setfill(' ') << setw(0) << dec
|
|
<< note << endl;
|
|
#endif
|
|
}
|
|
|
|
// Convenience function to check we got an expected result. Silent on success.
|
|
static void checkResult(bool p, const char* msg_fail) {
|
|
if (!p) vl_fatal(__FILE__, __LINE__, "dut", msg_fail);
|
|
}
|
|
|
|
// Main function instantiates the model and steps through the test.
|
|
int main() {
|
|
const std::unique_ptr<VerilatedContext> contextp{new VerilatedContext};
|
|
const std::unique_ptr<VM_PREFIX> dut{new VM_PREFIX{contextp.get(), "dut"}};
|
|
|
|
svScope scope = svGetScopeFromName("dut.t");
|
|
if (!scope) vl_fatal(__FILE__, __LINE__, "dut", "No svGetScopeFromName result");
|
|
svSetScope(scope);
|
|
|
|
// evaluate the model with no signal changes to get the initial blocks
|
|
// executed.
|
|
dut->eval();
|
|
|
|
#ifdef TEST_VERBOSE
|
|
cout << "Initial DPI values\n";
|
|
cout << "==================\n";
|
|
#endif
|
|
|
|
int a = (int)a_read();
|
|
int b = (int)b_read();
|
|
int mem32 = (int)mem32_read();
|
|
int c = (int)c_read();
|
|
int d = (int)d_read();
|
|
int e = (int)e_read();
|
|
int f = (int)f_read();
|
|
|
|
#ifdef TEST_VERBOSE
|
|
cout << "Read a = " << a << endl;
|
|
cout << "Read b = 8'h" << hex << setw(2) << setfill('0') << b << setfill(' ') << setw(0)
|
|
<< dec << endl;
|
|
cout << "Read mem32 = 8'h" << hex << setw(2) << setfill('0') << mem32 << setfill(' ')
|
|
<< setw(0) << dec << endl;
|
|
cout << "Read c = " << c << endl;
|
|
cout << "Read d = 8'h" << hex << setw(2) << setfill('0') << d << setfill(' ') << setw(0)
|
|
<< dec << endl;
|
|
cout << "Read e = 8'h" << hex << setw(2) << setfill('0') << e << setfill(' ') << setw(0)
|
|
<< dec << endl;
|
|
cout << "Read f = 8'h" << hex << setw(2) << setfill('0') << f << setfill(' ') << setw(0)
|
|
<< dec << endl;
|
|
cout << endl;
|
|
#endif
|
|
|
|
checkResult((0 == a) && (0x00 == b) && (0x20 == mem32) && (1 == c) && (0xff == d)
|
|
&& (0x00 == e) && (0x00 == f),
|
|
"Bad initial DPI values.");
|
|
|
|
// Initialize the clock
|
|
dut->clk = 0;
|
|
|
|
// Check we can read a scalar register.
|
|
#ifdef TEST_VERBOSE
|
|
cout << "Test of scalar register reading\n";
|
|
cout << "===============================\n";
|
|
#endif
|
|
|
|
for (int i = 0; !contextp->gotFinish() && (i < 4); i++) {
|
|
dut->clk = 1 - dut->clk;
|
|
a = (int)a_read();
|
|
logReg(dut->clk, "read a", a, " (before clk)");
|
|
dut->eval();
|
|
|
|
int a_after = (int)a_read();
|
|
logReg(dut->clk, "read a", a_after, " (after clk)");
|
|
#ifdef TEST_VERBOSE
|
|
cout << endl;
|
|
#endif
|
|
// On a posedge, a should toggle, on a negedge it should stay the
|
|
// same.
|
|
checkResult(((dut->clk == 1) && (a_after == (1 - a)))
|
|
|| ((dut->clk == 0) && (a_after == a)),
|
|
"Test of scalar register reading failed.");
|
|
}
|
|
|
|
checkFinish(contextp.get(), "t_dpi_accessors unexpected finish");
|
|
|
|
// Check we can read a vector register.
|
|
#ifdef TEST_VERBOSE
|
|
cout << "Test of vector register reading\n";
|
|
cout << "===============================\n";
|
|
#endif
|
|
|
|
for (int i = 0; !contextp->gotFinish() && (i < 4); i++) {
|
|
dut->clk = 1 - dut->clk;
|
|
b = (int)b_read();
|
|
logRegHex(dut->clk, "read b", 8, b, " (before clk)");
|
|
|
|
dut->eval();
|
|
|
|
int b_after = (int)b_read();
|
|
logRegHex(dut->clk, "read b", 8, b_after, " (after clk)");
|
|
// b should increment on a posedge and stay the same on a negedge.
|
|
checkResult(((dut->clk == 1) && (b_after == (b + 1)))
|
|
|| ((dut->clk == 0) && (b_after == b)),
|
|
"Test of vector register reading failed.");
|
|
}
|
|
|
|
checkFinish(contextp.get(), "t_dpi_accessors unexpected finish");
|
|
|
|
// Test we can read an array element
|
|
#ifdef TEST_VERBOSE
|
|
cout << endl;
|
|
cout << "Test of array element reading\n";
|
|
cout << "=============================\n";
|
|
#endif
|
|
|
|
for (int i = 0; !contextp->gotFinish() && (i < 4); i++) {
|
|
dut->clk = 1 - dut->clk;
|
|
mem32 = (int)mem32_read();
|
|
logRegHex(dut->clk, "read mem32", 8, mem32, " (before clk)");
|
|
|
|
dut->eval();
|
|
|
|
mem32 = (int)mem32_read();
|
|
logRegHex(dut->clk, "read mem32", 8, mem32, " (after clk)");
|
|
|
|
// In this case, the value never changes. But we should check it is
|
|
// what we expect (0x20).
|
|
checkResult(mem32 == 0x20, "Test of array element reading failed.");
|
|
}
|
|
|
|
checkFinish(contextp.get(), "t_dpi_accessors unexpected finish");
|
|
|
|
// Check we can read a scalar wire
|
|
#ifdef TEST_VERBOSE
|
|
cout << endl;
|
|
cout << "Test of scalar wire reading\n";
|
|
cout << "===========================\n";
|
|
#endif
|
|
|
|
for (int i = 0; !contextp->gotFinish() && (i < 4); i++) {
|
|
dut->clk = 1 - dut->clk;
|
|
a = (int)a_read();
|
|
c = (int)c_read();
|
|
logReg(dut->clk, "read a", a, " (before clk)");
|
|
logReg(dut->clk, "read c", c, " (before clk)");
|
|
|
|
dut->eval();
|
|
|
|
a = (int)a_read();
|
|
c = (int)c_read();
|
|
logReg(dut->clk, "read a", a, " (after clk)");
|
|
logReg(dut->clk, "read c", c, " (after clk)");
|
|
// "c" is continuously assigned as the inverse of "a", but in
|
|
// Verilator, that means that it will only change value when "a"
|
|
// changes on the posedge of a clock. That is "c" always holds the
|
|
// inverse of the "after clock" value of "a".
|
|
checkResult(c == (1 - a), "Test of scalar wire reading failed.");
|
|
}
|
|
|
|
checkFinish(contextp.get(), "t_dpi_accessors unexpected finish");
|
|
|
|
// Check we can read a vector wire
|
|
#ifdef TEST_VERBOSE
|
|
cout << endl;
|
|
cout << "Test of vector wire reading\n";
|
|
cout << "===========================\n";
|
|
#endif
|
|
|
|
for (int i = 0; !contextp->gotFinish() && (i < 4); i++) {
|
|
dut->clk = 1 - dut->clk;
|
|
b = (int)b_read();
|
|
d = (int)d_read();
|
|
logRegHex(dut->clk, "read b", 8, b, " (before clk)");
|
|
logRegHex(dut->clk, "read d", 8, d, " (before clk)");
|
|
|
|
dut->eval();
|
|
|
|
b = (int)b_read();
|
|
d = (int)d_read();
|
|
logRegHex(dut->clk, "read b", 8, b, " (after clk)");
|
|
logRegHex(dut->clk, "read d", 8, d, " (after clk)");
|
|
|
|
// "d" is continuously assigned as the (8-bit) bitwise inverse of "b",
|
|
// but in Verilator, that means that it will only change value when
|
|
// "b" changes on the posedge of a clock. That is "d" always holds
|
|
// the inverse of the "after clock" value of "b".
|
|
checkResult(d == ((~b) & 0xff), "Test of vector wire reading failed.");
|
|
}
|
|
|
|
checkFinish(contextp.get(), "t_dpi_accessors unexpected finish");
|
|
|
|
// Check we can write a scalar register
|
|
#ifdef TEST_VERBOSE
|
|
cout << endl;
|
|
cout << "Test of scalar register writing\n";
|
|
cout << "===============================\n";
|
|
#endif
|
|
|
|
for (int i = 0; !contextp->gotFinish() && (i < 4); i++) {
|
|
dut->clk = 1 - dut->clk;
|
|
a = 1 - (int)a_read();
|
|
a_write(reinterpret_cast<const svBitVecVal*>(&a));
|
|
logReg(dut->clk, "write a", a, " (before clk)");
|
|
a = a_read();
|
|
logReg(dut->clk, "read a", a, " (before clk)");
|
|
|
|
dut->eval();
|
|
|
|
int a_after = (int)a_read();
|
|
logReg(dut->clk, "read a", a_after, " (after clk)");
|
|
|
|
// On a posedge clock, the value of a that is written should toggle,
|
|
// on a negedge, it should not.
|
|
checkResult(((dut->clk == 1) && (a_after == (1 - a)))
|
|
|| ((dut->clk == 0) && (a_after == a)),
|
|
"Test of scalar register writing failed.");
|
|
}
|
|
|
|
checkFinish(contextp.get(), "t_dpi_accessors unexpected finish");
|
|
|
|
// Check we can write a vector register
|
|
#ifdef TEST_VERBOSE
|
|
cout << endl;
|
|
cout << "Test of vector register writing\n";
|
|
cout << "===============================\n";
|
|
#endif
|
|
|
|
for (int i = 0; !contextp->gotFinish() && (i < 4); i++) {
|
|
dut->clk = 1 - dut->clk;
|
|
b = (int)b_read() - 1;
|
|
b_write(reinterpret_cast<const svBitVecVal*>(&b));
|
|
logRegHex(dut->clk, "write b", 8, b, " (before clk)");
|
|
b = (int)b_read();
|
|
logRegHex(dut->clk, "read b", 8, b, " (before clk)");
|
|
|
|
dut->eval();
|
|
|
|
int b_after = (int)b_read();
|
|
logRegHex(dut->clk, "read b", 8, b_after, " (after clk)");
|
|
|
|
// The value of "b" written should increment on a posedge and stay the
|
|
// same on a negedge.
|
|
checkResult(((dut->clk == 1) && (b_after == (b + 1)))
|
|
|| ((dut->clk == 0) && (b_after == b)),
|
|
"Test of vector register writing failed.");
|
|
}
|
|
|
|
checkFinish(contextp.get(), "t_dpi_accessors unexpected finish");
|
|
|
|
// Test we can write an array element
|
|
#ifdef TEST_VERBOSE
|
|
cout << endl;
|
|
cout << "Test of array element writing\n";
|
|
cout << "=============================\n";
|
|
#endif
|
|
|
|
for (int i = 0; !contextp->gotFinish() && (i < 4); i++) {
|
|
dut->clk = 1 - dut->clk;
|
|
mem32 = (int)mem32_read() - 1;
|
|
mem32_write(reinterpret_cast<const svBitVecVal*>(&mem32));
|
|
logRegHex(dut->clk, "write mem32", 8, mem32, " (before clk)");
|
|
mem32 = (int)mem32_read();
|
|
logRegHex(dut->clk, "read mem32", 8, mem32, " (before clk)");
|
|
|
|
dut->eval();
|
|
|
|
int mem32_after = (int)mem32_read();
|
|
logRegHex(dut->clk, "read mem32", 8, mem32_after, " (after clk)");
|
|
|
|
// In this case, the value we write never changes (this would only
|
|
// happen if this part of the test coincided with the 32nd element
|
|
// being overwritten, which it does not. Check that the value after
|
|
// the clock is the same as before the clock.
|
|
checkResult(mem32_after == mem32, "Test of array element writing failed.");
|
|
}
|
|
|
|
checkFinish(contextp.get(), "t_dpi_accessors unexpected finish");
|
|
|
|
// Check we can read a vector register slice
|
|
#ifdef TEST_VERBOSE
|
|
cout << endl;
|
|
cout << "Test of vector register slice reading\n";
|
|
cout << "=====================================\n";
|
|
#endif
|
|
|
|
for (int i = 0; !contextp->gotFinish() && (i < 4); i++) {
|
|
dut->clk = 1 - dut->clk;
|
|
b = (int)b_read();
|
|
int b_slice = (int)b_slice_read();
|
|
logRegHex(dut->clk, "read b [7:0]", 8, b, " (before clk)");
|
|
logRegHex(dut->clk, "read b [3:0]", 4, b_slice, " (before clk)");
|
|
|
|
dut->eval();
|
|
|
|
b = (int)b_read();
|
|
b_slice = (int)b_slice_read();
|
|
logRegHex(dut->clk, "read b [7:0]", 8, b, " (after clk)");
|
|
logRegHex(dut->clk, "read b [3:0]", 4, b_slice, " (after clk)");
|
|
|
|
// The slice of "b" should always be the bottom 4 bits of "b"
|
|
checkResult(b_slice == (b & 0x0f), "Test of vector register slice reading failed.");
|
|
}
|
|
|
|
checkFinish(contextp.get(), "t_dpi_accessors unexpected finish");
|
|
|
|
// Test we can read an array element slice
|
|
#ifdef TEST_VERBOSE
|
|
cout << endl;
|
|
cout << "Test of array element slice reading\n";
|
|
cout << "===================================\n";
|
|
#endif
|
|
|
|
for (int i = 0; !contextp->gotFinish() && (i < 4); i++) {
|
|
dut->clk = 1 - dut->clk;
|
|
mem32 = (int)mem32_read();
|
|
int mem32_slice = (int)mem32_slice_read();
|
|
logRegHex(dut->clk, "read mem32 [7:0] ", 8, mem32, " (before clk)");
|
|
logRegHex(dut->clk, "read mem32 [7:6,2:0]", 5, mem32_slice, " (before clk)");
|
|
|
|
dut->eval();
|
|
|
|
mem32 = (int)mem32_read();
|
|
mem32_slice = (int)mem32_slice_read();
|
|
logRegHex(dut->clk, "read mem32 [7:0] ", 8, mem32, " (after clk)");
|
|
logRegHex(dut->clk, "read mem32 [7:6,2:0]", 5, mem32_slice, " (after clk)");
|
|
|
|
// The slice of "mem32" should always be the concatenation of the top
|
|
// 2 and bottom 3 bits of "mem32"
|
|
checkResult(mem32_slice == (((mem32 & 0xc0) >> 3) | (mem32 & 0x07)),
|
|
"Test of array element slice reading failed.");
|
|
}
|
|
|
|
checkFinish(contextp.get(), "t_dpi_accessors unexpected finish");
|
|
|
|
// Check we can read a vector wire slice
|
|
#ifdef TEST_VERBOSE
|
|
cout << endl;
|
|
cout << "Test of vector wire slice reading\n";
|
|
cout << "=================================\n";
|
|
#endif
|
|
|
|
for (int i = 0; !contextp->gotFinish() && (i < 4); i++) {
|
|
dut->clk = 1 - dut->clk;
|
|
b = (int)b_read();
|
|
d = (int)d_read();
|
|
int d_slice = (int)d_slice_read();
|
|
logRegHex(dut->clk, "read b [7:0]", 8, b, " (before clk)");
|
|
logRegHex(dut->clk, "read d [7:0]", 8, d, " (before clk)");
|
|
logRegHex(dut->clk, "read d [6:1]", 6, d_slice, " (before clk)");
|
|
|
|
dut->eval();
|
|
|
|
b = (int)b_read();
|
|
d = (int)d_read();
|
|
d_slice = (int)d_slice_read();
|
|
logRegHex(dut->clk, "read b [7:0]", 8, b, " (after clk)");
|
|
logRegHex(dut->clk, "read d [7:0]", 8, d, " (after clk)");
|
|
logRegHex(dut->clk, "read d [6:1]", 6, d_slice, " (after clk)");
|
|
|
|
// The slice of "d" should always be the middle 6 bits of "d".
|
|
checkResult(d_slice == ((d & 0x7e) >> 1), "Test of vector wire slice reading failed.");
|
|
}
|
|
|
|
checkFinish(contextp.get(), "t_dpi_accessors unexpected finish");
|
|
|
|
// Check we can write a vector register slice
|
|
#ifdef TEST_VERBOSE
|
|
cout << endl;
|
|
cout << "Test of vector register slice writing\n";
|
|
cout << "=====================================\n";
|
|
#endif
|
|
|
|
for (int i = 0; !contextp->gotFinish() && (i < 4); i++) {
|
|
dut->clk = 1 - dut->clk;
|
|
|
|
b = (int)b_read();
|
|
int b_slice = (int)b_slice_read();
|
|
logRegHex(dut->clk, "read b [7:0]", 8, b, " (before write)");
|
|
logRegHex(dut->clk, "read b [3:0]", 4, b_slice, " (before write)");
|
|
|
|
b_slice--;
|
|
b_slice_write(reinterpret_cast<const svBitVecVal*>(&b_slice));
|
|
logRegHex(dut->clk, "write b [3:0]", 4, b_slice, " (before clk)");
|
|
|
|
int b_after = (int)b_read();
|
|
int b_slice_after = (int)b_slice_read();
|
|
logRegHex(dut->clk, "read b [7:0]", 8, b_after, " (before clk)");
|
|
logRegHex(dut->clk, "read b [3:0]", 4, b_slice_after, " (before clk)");
|
|
|
|
// We must test that when we wrote the slice of "b", we only wrote the
|
|
// correct bits. The slice of b is b[3:0]
|
|
int b_new = (b & 0xf0) | (b_slice & 0x0f);
|
|
checkResult(b_after == b_new, "Test of vector register slice writing failed.");
|
|
|
|
dut->eval();
|
|
|
|
b = (int)b_read();
|
|
b_slice = (int)b_slice_read();
|
|
logRegHex(dut->clk, "read b [7:0]", 8, b, " (after clk)");
|
|
logRegHex(dut->clk, "read b [3:0]", 4, b_slice, " (after clk)");
|
|
}
|
|
|
|
checkFinish(contextp.get(), "t_dpi_accessors unexpected finish");
|
|
|
|
// Test we can write an array element slice
|
|
#ifdef TEST_VERBOSE
|
|
cout << endl;
|
|
cout << "Test of array element slice writing\n";
|
|
cout << "===================================\n";
|
|
#endif
|
|
|
|
for (int i = 0; !contextp->gotFinish() && (i < 4); i++) {
|
|
dut->clk = 1 - dut->clk;
|
|
|
|
mem32 = (int)mem32_read();
|
|
int mem32_slice = (int)mem32_slice_read();
|
|
logRegHex(dut->clk, "read mem32 [7:0] ", 8, mem32, " (before write)");
|
|
logRegHex(dut->clk, "read mem32 [7:6,2:0]", 5, mem32_slice, " (before write)");
|
|
|
|
mem32_slice--;
|
|
mem32_slice_write(reinterpret_cast<const svBitVecVal*>(&mem32_slice));
|
|
logRegHex(dut->clk, "write mem32 [7:6,2:0]", 5, mem32_slice, " (before clk)");
|
|
|
|
int mem32_after = (int)mem32_read();
|
|
int mem32_slice_after = (int)mem32_slice_read();
|
|
logRegHex(dut->clk, "read mem32 [7:0] ", 8, mem32_after, " (before clk)");
|
|
logRegHex(dut->clk, "read mem32 [7:6,2:0]", 5, mem32_slice_after, " (before clk)");
|
|
|
|
// We must test that when we wrote the slice of "mem32", we only wrote
|
|
// the correct bits. The slice of "mem32" is {mem32[7:6], mem32[2:0]}.
|
|
int mem32_new = (mem32 & 0x38) | ((mem32_slice & 0x18) << 3) | (mem32_slice & 0x7);
|
|
checkResult(mem32_after == mem32_new, "Test of vector register slice writing failed.");
|
|
|
|
dut->eval();
|
|
|
|
mem32 = (int)mem32_read();
|
|
mem32_slice = (int)mem32_slice_read();
|
|
logRegHex(dut->clk, "read mem32 [7:0] ", 8, mem32, " (after clk)");
|
|
logRegHex(dut->clk, "read mem32 [7:6,2:0]", 5, mem32_slice, " (after clk)");
|
|
|
|
// We have already tested that array element writing works, so we just
|
|
// check that the slice of "mem32" after the clock is the
|
|
// concatenation of the top 2 and bottom 3 bits of "mem32"
|
|
checkResult(mem32_slice == (((mem32 & 0xc0) >> 3) | (mem32 & 0x07)),
|
|
"Test of array element slice writing failed.");
|
|
}
|
|
|
|
checkFinish(contextp.get(), "t_dpi_accessors unexpected finish");
|
|
|
|
// Check we can read complex registers
|
|
#ifdef TEST_VERBOSE
|
|
cout << endl;
|
|
cout << "Test of complex register reading\n";
|
|
cout << "================================\n";
|
|
#endif
|
|
|
|
for (int i = 0; !contextp->gotFinish() && (i < 4); i++) {
|
|
dut->clk = 1 - dut->clk;
|
|
|
|
b = (int)b_read();
|
|
mem32 = (int)mem32_read();
|
|
e = (int)e_read();
|
|
int l1 = (int)l1_read();
|
|
logRegHex(dut->clk, "read b ", 8, b, " (before clk)");
|
|
logRegHex(dut->clk, "read mem32", 8, mem32, " (before clk)");
|
|
logRegHex(dut->clk, "read e ", 8, e, " (before clk)");
|
|
logRegHex(dut->clk, "read l1 ", 15, l1, " (before clk)");
|
|
|
|
dut->eval();
|
|
|
|
b = (int)b_read();
|
|
mem32 = (int)mem32_read();
|
|
e = (int)e_read();
|
|
l1 = (int)l1_read();
|
|
logRegHex(dut->clk, "read b ", 8, b, " (after clk)");
|
|
logRegHex(dut->clk, "read mem32", 8, mem32, " (after clk)");
|
|
logRegHex(dut->clk, "read e ", 8, e, " (after clk)");
|
|
logRegHex(dut->clk, "read l1 ", 15, l1, " (after clk)");
|
|
|
|
// We have already tested that reading of registers, memory elements
|
|
// and wires works. So we just need to check that l1 reads back as the
|
|
// correct combination of bits after the clock. It should be the 15
|
|
// bits: {b[3:0],mem[32][7:6],e[6:1],mem[32][2:0]}.
|
|
checkResult(l1
|
|
== ((((b & 0x0f) >> 0) << 11) | (((mem32 & 0xc0) >> 6) << 9)
|
|
| (((e & 0x7e) >> 1) << 3) | (((mem32 & 0x07) >> 0) << 0)),
|
|
"Test of complex register reading l1 failed.");
|
|
}
|
|
|
|
#ifdef TEST_VERBOSE
|
|
cout << endl;
|
|
#endif
|
|
|
|
checkFinish(contextp.get(), "t_dpi_accessors unexpected finish");
|
|
|
|
for (int i = 0; !contextp->gotFinish() && (i < 4); i++) {
|
|
dut->clk = 1 - dut->clk;
|
|
|
|
e = 0x05 | (i << 4);
|
|
f = 0xa0 | i;
|
|
e_write(reinterpret_cast<const svBitVecVal*>(&e));
|
|
f_write(reinterpret_cast<const svBitVecVal*>(&f));
|
|
|
|
e = (int)e_read();
|
|
f = (int)f_read();
|
|
int l2 = (int)l2_read();
|
|
logRegHex(dut->clk, "read e ", 8, e, " (before clk)");
|
|
logRegHex(dut->clk, "read f ", 8, f, " (before clk)");
|
|
logRegHex(dut->clk, "read l2", 8, l2, " (before clk)");
|
|
|
|
dut->eval();
|
|
|
|
e = (int)e_read();
|
|
f = (int)f_read();
|
|
l2 = (int)l2_read();
|
|
logRegHex(dut->clk, "read e ", 8, e, " (before clk)");
|
|
logRegHex(dut->clk, "read f ", 8, f, " (before clk)");
|
|
logRegHex(dut->clk, "read l2", 8, l2, " (before clk)");
|
|
|
|
// We have already tested that reading of registers, memory elements
|
|
// and wires works. So we just need to check that l1 reads back as the
|
|
// correct combination of bits after the clock. It should be the 8
|
|
// bits: {e[7:4], f[3:0]}.
|
|
checkResult(l2 == ((e & 0xf0) | (f & 0x0f)),
|
|
"Test of complex register reading l2 failed.");
|
|
}
|
|
|
|
checkFinish(contextp.get(), "t_dpi_accessors unexpected finish");
|
|
|
|
// Test we can write a complex register
|
|
#ifdef TEST_VERBOSE
|
|
cout << endl;
|
|
cout << "Test of complex register writing\n";
|
|
cout << "================================\n";
|
|
#endif
|
|
|
|
for (int i = 0; !contextp->gotFinish() && (i < 4); i++) {
|
|
dut->clk = 1 - dut->clk;
|
|
|
|
b = (int)b_read();
|
|
mem32 = (int)mem32_read();
|
|
e = (int)e_read();
|
|
logRegHex(dut->clk, "read b ", 8, b, " (before write)");
|
|
logRegHex(dut->clk, "read mem32", 8, mem32, " (before write)");
|
|
logRegHex(dut->clk, "read e ", 8, e, " (before write)");
|
|
|
|
int l1 = 0x5a5a;
|
|
l1_write(reinterpret_cast<const svBitVecVal*>(&l1));
|
|
logRegHex(dut->clk, "write l1 ", 15, l1, " (before clk)");
|
|
|
|
int b_after = (int)b_read();
|
|
int mem32_after = (int)mem32_read();
|
|
int e_after = (int)e_read();
|
|
int l1_after = (int)l1_read();
|
|
logRegHex(dut->clk, "read b ", 8, b_after, " (before clk)");
|
|
logRegHex(dut->clk, "read mem32", 8, mem32_after, " (before clk)");
|
|
logRegHex(dut->clk, "read e ", 8, e_after, " (before clk)");
|
|
logRegHex(dut->clk, "read l1 ", 15, l1_after, " (before clk)");
|
|
|
|
// We need to check that when we write l1, the correct fields, and
|
|
// only the correct fields are set in its component registers, wires
|
|
// and memory elements. l1 is 15 bits:
|
|
// {b[3:0],mem[32][7:6],e[6:1],mem[32][2:0]}.
|
|
int b_new = (b & 0xf0) | ((l1 & 0x7800) >> 11);
|
|
int mem32_new = (mem32 & 0x38) | ((l1 & 0x0600) >> 3) | (l1 & 0x0007);
|
|
int e_new = (e & 0x81) | ((l1 & 0x01f8) >> 2);
|
|
checkResult((b_new == b_after) && (mem32_new == mem32_after) && (e_new == e_after),
|
|
"Test of complex register writing l1 failed.");
|
|
|
|
dut->eval();
|
|
|
|
b = (int)b_read();
|
|
mem32 = (int)mem32_read();
|
|
d = (int)d_read();
|
|
l1 = (int)l1_read();
|
|
logRegHex(dut->clk, "read b ", 8, b, " (after clk)");
|
|
logRegHex(dut->clk, "read mem32", 8, mem32, " (after clk)");
|
|
logRegHex(dut->clk, "read d ", 8, d, " (after clk)");
|
|
logRegHex(dut->clk, "read l1 ", 15, l1, " (after clk)");
|
|
}
|
|
|
|
#ifdef TEST_VERBOSE
|
|
cout << endl;
|
|
#endif
|
|
|
|
checkFinish(contextp.get(), "t_dpi_accessors unexpected finish");
|
|
|
|
for (int i = 0; !contextp->gotFinish() && (i < 4); i++) {
|
|
dut->clk = 1 - dut->clk;
|
|
|
|
e = (int)e_read();
|
|
f = (int)f_read();
|
|
logRegHex(dut->clk, "read e ", 8, e, " (before write)");
|
|
logRegHex(dut->clk, "read f ", 8, f, " (before write)");
|
|
|
|
int l2 = 0xa5 + i;
|
|
l2_write(reinterpret_cast<const svBitVecVal*>(&l2));
|
|
logRegHex(dut->clk, "write l2", 8, l2, " (before clk)");
|
|
|
|
int e_after = (int)e_read();
|
|
int f_after = (int)f_read();
|
|
int l2_after = (int)l2_read();
|
|
logRegHex(dut->clk, "read e ", 8, e_after, " (before clk)");
|
|
logRegHex(dut->clk, "read f ", 8, f_after, " (before clk)");
|
|
logRegHex(dut->clk, "read l2", 8, l2_after, " (before clk)");
|
|
|
|
// We need to check that when we write l2, the correct fields, and
|
|
// only the correct fields are set in its component registers. l is 8
|
|
// bits: {e[5:2], f[5:2]}
|
|
int e_new = (e & 0xc3) | ((l2 & 0xf0) >> 2);
|
|
int f_new = (f & 0xc3) | ((l2 & 0x0f) << 2);
|
|
checkResult((e_new == e_after) && (f_new == f_after),
|
|
"Test of complex register writing l2 failed.");
|
|
|
|
dut->eval();
|
|
|
|
e = (int)e_read();
|
|
f = (int)f_read();
|
|
l2 = (int)l2_read();
|
|
logRegHex(dut->clk, "read e ", 8, e, " (before clk)");
|
|
logRegHex(dut->clk, "read f ", 8, f, " (before clk)");
|
|
logRegHex(dut->clk, "read l2", 8, l2, " (before clk)");
|
|
}
|
|
|
|
checkFinish(contextp.get(), "t_dpi_accessors unexpected finish");
|
|
|
|
// Tidy up
|
|
dut->final();
|
|
cout << "*-* All Finished *-*\n";
|
|
}
|
|
|
|
// Local Variables:
|
|
// c-file-style:"cc-mode"
|
|
// End:
|