forked from github/verilator
233 lines
7.0 KiB
C++
233 lines
7.0 KiB
C++
// -*- mode: C++; c-file-style: "cc-mode" -*-
|
|
//*************************************************************************
|
|
//
|
|
// Copyright 2009-2009 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
|
|
//
|
|
//*************************************************************************
|
|
|
|
#include "svdpi.h"
|
|
|
|
#include <cinttypes>
|
|
#include <cstdint>
|
|
#include <cstdio>
|
|
#include <cstring>
|
|
|
|
//======================================================================
|
|
|
|
#if defined(VERILATOR)
|
|
#ifdef T_DPI_EXPORT_NOOPT
|
|
#include "Vt_dpi_export_noopt__Dpi.h"
|
|
#else
|
|
#include "Vt_dpi_export__Dpi.h"
|
|
#endif
|
|
#elif defined(VCS)
|
|
#include "../vc_hdrs.h"
|
|
#elif defined(CADENCE)
|
|
#define NEED_EXTERNS
|
|
#else
|
|
#error "Unknown simulator for DPI test"
|
|
#endif
|
|
// clang-format on
|
|
|
|
#ifdef NEED_EXTERNS
|
|
|
|
extern "C" {
|
|
extern int dpix_run_tests();
|
|
|
|
extern int dpix_t_int(int i, int* o);
|
|
extern int dpix_t_renamed(int i, int* o);
|
|
|
|
extern int dpix_int123();
|
|
|
|
extern unsigned char dpix_f_bit(unsigned char i);
|
|
extern svBitVecVal dpix_f_bit15(const svBitVecVal* i);
|
|
extern svBitVecVal dpix_f_bit48(const svBitVecVal* i);
|
|
extern int dpix_f_int(int i);
|
|
extern char dpix_f_byte(char i);
|
|
extern short int dpix_f_shortint(short int i);
|
|
extern long long dpix_f_longint(long long i);
|
|
extern void* dpix_f_chandle(void* i);
|
|
|
|
extern int dpix_sub_inst(int i);
|
|
|
|
extern void dpix_t_reg(svLogic i, svLogic* o);
|
|
extern void dpix_t_reg15(const svLogicVecVal* i, svLogicVecVal* o);
|
|
extern void dpix_t_reg95(const svLogicVecVal* i, svLogicVecVal* o);
|
|
extern void dpix_t_integer(const svLogicVecVal* i, svLogicVecVal* o);
|
|
extern void dpix_t_time(const svLogicVecVal* i, svLogicVecVal* o);
|
|
}
|
|
|
|
#endif
|
|
|
|
//======================================================================
|
|
|
|
// clang-format off
|
|
#define CHECK_RESULT(type, got, exp) \
|
|
if ((got) != (exp)) { \
|
|
printf("%%Error: %s:%d:", __FILE__, __LINE__); \
|
|
union { type a; uint64_t l; } u; \
|
|
u.l = 0; u.a = got; if (u.a) {/*used*/} \
|
|
printf(" GOT = %" PRIx64, u.l); \
|
|
u.l = 0; u.a = exp; if (u.a) {/*used*/} \
|
|
printf(" EXP = %" PRIx64 "\n", u.l); \
|
|
return __LINE__; \
|
|
}
|
|
// clang-format on
|
|
#define CHECK_RESULT_NNULL(got) \
|
|
if (!(got)) { \
|
|
printf("%%Error: %s:%d: GOT = %p EXP = !NULL\n", __FILE__, __LINE__, (got)); \
|
|
return __LINE__; \
|
|
}
|
|
|
|
static int check_sub(const char* name, int i) {
|
|
svScope scope = svGetScopeFromName(name);
|
|
#ifdef TEST_VERBOSE
|
|
printf("svGetScopeFromName(\"%s\") -> %p\n", name, scope);
|
|
#endif
|
|
CHECK_RESULT_NNULL(scope);
|
|
svScope prev = svGetScope();
|
|
svScope sout = svSetScope(scope);
|
|
CHECK_RESULT(svScope, sout, prev);
|
|
CHECK_RESULT(svScope, svGetScope(), scope);
|
|
#ifndef T_DPI_EXPORT_NOOPT
|
|
int out = dpix_sub_inst(100 * i);
|
|
CHECK_RESULT(int, out, 100 * i + i);
|
|
#endif
|
|
return 0; // OK
|
|
}
|
|
|
|
// Called from our Verilog code to run the tests
|
|
int dpix_run_tests() {
|
|
printf("dpix_run_tests:\n");
|
|
|
|
#ifdef VERILATOR
|
|
static int didDump = 0;
|
|
if (didDump++ == 0) {
|
|
#ifdef TEST_VERBOSE
|
|
Verilated::internalsDump();
|
|
#endif
|
|
}
|
|
#endif
|
|
|
|
#ifndef CADENCE // Unimplemented; how hard is it?
|
|
printf("svDpiVersion: %s\n", svDpiVersion());
|
|
CHECK_RESULT(bool,
|
|
std::strcmp(svDpiVersion(), "1800-2005") == 0
|
|
|| std::strcmp(svDpiVersion(), "P1800-2005") == 0,
|
|
1);
|
|
#endif
|
|
|
|
CHECK_RESULT(int, dpix_int123(), 0x123);
|
|
|
|
#ifndef CADENCE // No export calls from an import
|
|
int o;
|
|
dpix_t_int(0x456, &o);
|
|
CHECK_RESULT(unsigned long, o, ~0x456UL);
|
|
|
|
dpix_t_renamed(0x456, &o);
|
|
CHECK_RESULT(int, o, 0x458UL);
|
|
#endif
|
|
|
|
svBitVecVal vec10[1] = {0x10};
|
|
|
|
CHECK_RESULT(int, dpix_f_bit(1), 0x0);
|
|
CHECK_RESULT(int, dpix_f_bit(0), 0x1);
|
|
CHECK_RESULT(int, dpix_f_bit15(vec10) & 0x7fUL, 0x6f);
|
|
// Simulators disagree over the next three's sign extension unless we mask the upper bits
|
|
CHECK_RESULT(int, dpix_f_int(1) & 0xffffffffUL, 0xfffffffeUL);
|
|
CHECK_RESULT(int, dpix_f_byte(1) & 0xffUL, 0xfe);
|
|
CHECK_RESULT(int, dpix_f_shortint(1) & 0xffffUL, 0xfffeUL);
|
|
|
|
CHECK_RESULT(unsigned long long, dpix_f_longint(1), 0xfffffffffffffffeULL);
|
|
CHECK_RESULT(void*, dpix_f_chandle((void*)(12345)), (void*)(12345));
|
|
|
|
{
|
|
svBitVecVal i_vec48[2] = {0xab782a12, 0x8a413bd9};
|
|
svBitVecVal o_vec48[2] = {0, 0};
|
|
dpix_t_bit48(i_vec48, o_vec48);
|
|
CHECK_RESULT(int, o_vec48[0], ~i_vec48[0]);
|
|
#ifdef VCS // VCS has bug where doesn't clean input
|
|
CHECK_RESULT(int, o_vec48[1], (~i_vec48[1]));
|
|
#else
|
|
CHECK_RESULT(int, o_vec48[1], (~i_vec48[1]) & 0x0000ffffUL);
|
|
#endif
|
|
}
|
|
{
|
|
svBitVecVal i_vec95[3] = {0x72912312, 0xab782a12, 0x8a413bd9};
|
|
svBitVecVal o_vec95[3] = {0, 0, 0};
|
|
dpix_t_bit95(i_vec95, o_vec95);
|
|
CHECK_RESULT(int, o_vec95[0], ~i_vec95[0]);
|
|
CHECK_RESULT(int, o_vec95[1], ~i_vec95[1]);
|
|
CHECK_RESULT(int, o_vec95[2], (~i_vec95[2]) & 0x7fffffffUL);
|
|
}
|
|
{
|
|
svBitVecVal i_vec96[3] = {0xf2912312, 0xab782a12, 0x8a413bd9};
|
|
svBitVecVal o_vec96[3] = {0, 0, 0};
|
|
dpix_t_bit96(i_vec96, o_vec96);
|
|
CHECK_RESULT(int, o_vec96[0], ~i_vec96[0]);
|
|
CHECK_RESULT(int, o_vec96[1], ~i_vec96[1]);
|
|
CHECK_RESULT(int, o_vec96[2], ~i_vec96[2]);
|
|
}
|
|
|
|
extern void dpix_t_reg(svLogic i, svLogic * o);
|
|
{
|
|
svLogic i = 0;
|
|
svLogic o;
|
|
dpix_t_reg(i, &o);
|
|
CHECK_RESULT(svLogic, o, 1);
|
|
i = 1;
|
|
dpix_t_reg(i, &o);
|
|
CHECK_RESULT(svLogic, o, 0);
|
|
}
|
|
{
|
|
svLogicVecVal i[1];
|
|
i[0].aval = 0x12;
|
|
i[0].bval = 0;
|
|
svLogicVecVal o[1];
|
|
dpix_t_reg15(i, o);
|
|
CHECK_RESULT(int, o[0].aval, (~i[0].aval) & 0x7fff);
|
|
CHECK_RESULT(int, o[0].bval, 0);
|
|
}
|
|
{
|
|
svLogicVecVal i[3];
|
|
i[0].aval = 0x72912312;
|
|
i[0].bval = 0;
|
|
i[1].aval = 0xab782a12;
|
|
i[1].bval = 0;
|
|
i[2].aval = 0x8a413bd9;
|
|
i[2].bval = 0;
|
|
svLogicVecVal o[3];
|
|
dpix_t_reg95(i, o);
|
|
CHECK_RESULT(int, o[0].aval, ~i[0].aval);
|
|
CHECK_RESULT(int, o[1].aval, ~i[1].aval);
|
|
CHECK_RESULT(int, o[2].aval, (~i[2].aval) & 0x7fffffffUL);
|
|
CHECK_RESULT(int, o[0].bval, 0);
|
|
CHECK_RESULT(int, o[1].bval, 0);
|
|
CHECK_RESULT(int, o[2].bval, 0);
|
|
}
|
|
#if !defined(VCS) && !defined(CADENCE)
|
|
{
|
|
svLogicVecVal i[2];
|
|
i[0].aval = 0x72912312;
|
|
i[0].bval = 0;
|
|
i[1].aval = 0xab782a12;
|
|
i[1].bval = 0;
|
|
svLogicVecVal o[2];
|
|
dpix_t_time(i, o);
|
|
CHECK_RESULT(int, o[0].aval, ~i[0].aval);
|
|
CHECK_RESULT(int, o[1].aval, ~i[1].aval);
|
|
CHECK_RESULT(int, o[0].bval, 0);
|
|
CHECK_RESULT(int, o[1].bval, 0);
|
|
}
|
|
#endif
|
|
|
|
if (int bad = check_sub("top.t.a", 1)) return bad;
|
|
if (int bad = check_sub("top.t.b", 2)) return bad;
|
|
|
|
return -1; // OK status
|
|
}
|