luke
/
verilator
mirror of https://github.com/verilator/verilator.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

DPI: Implement IEEE DPI copy routines.

This commit is contained in:
Wilson Snyder 2017-12-09 17:01:53 -05:00
parent ea91b10086
commit 27b5bfe9b1
1 changed files with 190 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

229
include/verilated_dpi.cpp
View File

@ -16,8 +16,8 @@
/// \file /// \file
/// \brief Verilator: DPI implementation code /// \brief Verilator: DPI implementation code
/// ///
/// This file must be compiled and linked against all objects /// This file must be compiled and linked against all objects
/// created from Verilator or called by Verilator that use the DPI. /// created from Verilator or called by Verilator that use the DPI.
/// ///
/// Code available from: http://www.veripool.org/verilator /// Code available from: http://www.veripool.org/verilator
/// ///
@ -61,31 +61,181 @@ const char* svDpiVersion() {
// Bit-select utility functions. // Bit-select utility functions.
svBit svGetBitselBit(const svBitVecVal* sp, int bit) { svBit svGetBitselBit(const svBitVecVal* sp, int bit) {
return VL_BITISSET_W(sp,bit); return VL_BITRSHIFT_W(sp,bit) & 1;
} }
svLogic svGetBitselLogic(const svLogicVecVal* sp, int bit) { svLogic svGetBitselLogic(const svLogicVecVal* sp, int bit) {
_VL_SVDPI_UNIMP(); return 0; // Not VL_BITRSHIFT_W as sp is a different structure type
// Verilator doesn't support X/Z so only aval
return (sp[VL_BITWORD_I(bit)].aval >> VL_BITBIT_I(bit)) & 1;
} }
void svPutBitselBit(svBitVecVal* dp, int bit, svBit s) { void svPutBitselBit(svBitVecVal* dp, int bit, svBit s) {
VL_ASSIGNBIT_WI(32, bit, dp, s); VL_ASSIGNBIT_WI(32, bit, dp, s);
} }
void svPutBitselLogic(svLogicVecVal* dp, int bit, svLogic s) { void svPutBitselLogic(svLogicVecVal* dp, int bit, svLogic s) {
_VL_SVDPI_UNIMP(); // Verilator doesn't support X/Z so only aval
dp[VL_BITWORD_I(bit)].aval
= ((dp[VL_BITWORD_I(bit)].aval & ~(VL_UL(1)<<VL_BITBIT_I(bit)))
| ((s&1)<<VL_BITBIT_I(bit)));
} }
void svGetPartselBit(svBitVecVal* dp, const svBitVecVal* sp, int i, int w) { void svGetPartselBit(svBitVecVal* dp, const svBitVecVal* sp, int lsb, int width) {
_VL_SVDPI_UNIMP(); // See also VL_SEL_WWI
int msb = lsb+width-1;
int word_shift = VL_BITWORD_I(lsb);
if (VL_BITBIT_I(lsb)==0) {
// Just a word extract
for (int i=0; i<VL_WORDS_I(width); ++i) dp[i] = sp[i+word_shift];
} else {
int loffset = lsb & VL_SIZEBITS_I;
int nbitsfromlow = 32-loffset; // bits that end up in lword (know loffset!=0)
// Middle words
int words = VL_WORDS_I(msb-lsb+1);
for (int i=0; i<words; ++i) {
dp[i] = sp[i+word_shift]>>loffset;
int upperword = i+word_shift+1;
if (upperword <= static_cast<int>(VL_BITWORD_I(msb))) {
dp[i] |= sp[upperword] << nbitsfromlow;
}
}
}
// Clean result
dp[VL_WORDS_I(width)-1] &= VL_MASK_I(width);
} }
void svGetPartselLogic(svLogicVecVal* dp, const svLogicVecVal* sp, int i, int w) { void svGetPartselLogic(svLogicVecVal* dp, const svLogicVecVal* sp, int lsb, int width) {
_VL_SVDPI_UNIMP(); int msb = lsb+width-1;
int word_shift = VL_BITWORD_I(lsb);
if (VL_BITBIT_I(lsb)==0) {
// Just a word extract
for (int i=0; i<VL_WORDS_I(width); ++i) dp[i] = sp[i+word_shift];
} else {
int loffset = lsb & VL_SIZEBITS_I;
int nbitsfromlow = 32-loffset; // bits that end up in lword (know loffset!=0)
// Middle words
int words = VL_WORDS_I(msb-lsb+1);
for (int i=0; i<words; ++i) {
dp[i].aval = sp[i+word_shift].aval >> loffset;
dp[i].bval = sp[i+word_shift].bval >> loffset;
int upperword = i+word_shift+1;
if (upperword <= static_cast<int>(VL_BITWORD_I(msb))) {
dp[i].aval |= sp[upperword].aval << nbitsfromlow;
dp[i].bval |= sp[upperword].bval << nbitsfromlow;
}
}
}
// Clean result
dp[VL_WORDS_I(width)-1].aval &= VL_MASK_I(width);
dp[VL_WORDS_I(width)-1].bval &= VL_MASK_I(width);
} }
void svPutPartselBit(svBitVecVal* dp, const svBitVecVal* sp, int lbit, int width) {
void svPutPartselBit(svBitVecVal* dp, const svBitVecVal s, int i, int w) { // See also _VL_INSERT_WW
_VL_SVDPI_UNIMP(); int hbit = lbit+width-1;
int hoffset = hbit & VL_SIZEBITS_I;
int loffset = lbit & VL_SIZEBITS_I;
int lword = VL_BITWORD_I(lbit);
int words = VL_WORDS_I(hbit-lbit+1);
if (hoffset==VL_SIZEBITS_I && loffset==0) {
// Fast and common case, word based insertion
for (int i=0; i<words; ++i) {
dp[lword+i] = sp[i];
}
}
else if (loffset==0) {
// Non-32bit, but nicely aligned, so stuff all but the last word
for (int i=0; i<(words-1); ++i) {
dp[lword+i] = sp[i];
}
IData hinsmask = (VL_MASK_I(hoffset-0+1)); // Know it's not a full word as above fast case handled it
dp[lword+words-1] = (dp[words+lword-1] & ~hinsmask) | (sp[words-1] & hinsmask);
}
else {
IData hinsmask = (VL_MASK_I(hoffset-0+1))<<0;
IData linsmask = (VL_MASK_I(31-loffset+1))<<loffset;
int nbitsonright = 32-loffset; // bits that end up in lword (know loffset!=0)
// Middle words
int hword = VL_BITWORD_I(hbit);
for (int i=0; i<words; ++i) {
{ // Lower word
int oword = lword+i;
IData d = sp[i]<<loffset;
IData od = (dp[oword] & ~linsmask) | (d & linsmask);
if (oword==hword) dp[oword] = (dp[oword] & ~hinsmask) | (od & hinsmask);
else dp[oword] = od;
}
{ // Upper word
int oword = lword+i+1;
if (oword <= hword) {
IData d = sp[i]>>nbitsonright;
IData od = (d & ~linsmask) | (dp[oword] & linsmask);
if (oword==hword) dp[oword] = (dp[oword] & ~hinsmask) | (od & hinsmask);
else dp[oword] = od;
}
}
}
}
} }
void svPutPartselLogic(svLogicVecVal* dp, const svLogicVecVal* sp, int i, int w) { void svPutPartselLogic(svLogicVecVal* dp, const svLogicVecVal* sp, int lbit, int width) {
_VL_SVDPI_UNIMP(); int hbit = lbit+width-1;
int hoffset = hbit & VL_SIZEBITS_I;
int loffset = lbit & VL_SIZEBITS_I;
int lword = VL_BITWORD_I(lbit);
int words = VL_WORDS_I(hbit-lbit+1);
if (hoffset==VL_SIZEBITS_I && loffset==0) {
// Fast and common case, word based insertion
for (int i=0; i<words; ++i) {
dp[lword+i].aval = sp[i].aval;
dp[lword+i].bval = sp[i].bval;
}
}
else if (loffset==0) {
// Non-32bit, but nicely aligned, so stuff all but the last word
for (int i=0; i<(words-1); ++i) {
dp[lword+i].aval = sp[i].aval;
dp[lword+i].bval = sp[i].bval;
}
IData hinsmask = (VL_MASK_I(hoffset-0+1)); // Know it's not a full word as above fast case handled it
dp[lword+words-1].aval = (dp[words+lword-1].aval & ~hinsmask) | (sp[words-1].aval & hinsmask);
dp[lword+words-1].bval = (dp[words+lword-1].bval & ~hinsmask) | (sp[words-1].bval & hinsmask);
}
else {
IData hinsmask = (VL_MASK_I(hoffset-0+1))<<0;
IData linsmask = (VL_MASK_I(31-loffset+1))<<loffset;
int nbitsonright = 32-loffset; // bits that end up in lword (know loffset!=0)
// Middle words
int hword = VL_BITWORD_I(hbit);
for (int i=0; i<words; ++i) {
{ // Lower word
int oword = lword+i;
IData d_a = sp[i].aval << loffset;
IData d_b = sp[i].bval << loffset;
IData od_a = (dp[oword].aval & ~linsmask) | (d_a & linsmask);
IData od_b = (dp[oword].bval & ~linsmask) | (d_b & linsmask);
if (oword==hword) {
dp[oword].aval = (dp[oword].aval & ~hinsmask) | (od_a & hinsmask);
dp[oword].bval = (dp[oword].bval & ~hinsmask) | (od_b & hinsmask);
} else {
dp[oword].aval = od_a;
dp[oword].bval = od_b;
}
}
{ // Upper word
int oword = lword+i+1;
if (oword <= hword) {
IData d_a = sp[i].aval >> nbitsonright;
IData d_b = sp[i].bval >> nbitsonright;
IData od_a = (d_a & ~linsmask) | (dp[oword].aval & linsmask);
IData od_b = (d_b & ~linsmask) | (dp[oword].bval & linsmask);
if (oword==hword) {
dp[oword].aval = (dp[oword].aval & ~hinsmask) | (od_a & hinsmask);
dp[oword].bval = (dp[oword].bval & ~hinsmask) | (od_b & hinsmask);
} else {
dp[oword].aval = od_a;
dp[oword].bval = od_b;
}
}
}
}
}
} }
//====================================================================== //======================================================================
@ -106,28 +256,29 @@ int svHigh(const svOpenArrayHandle h, int d) {
int svIncrement(const svOpenArrayHandle h, int d) { int svIncrement(const svOpenArrayHandle h, int d) {
_VL_SVDPI_UNIMP(); return 0; _VL_SVDPI_UNIMP(); return 0;
} }
int svSize(const svOpenArrayHandle h, int d) {
_VL_SVDPI_UNIMP(); return 0;
}
int svDimensions(const svOpenArrayHandle h) { int svDimensions(const svOpenArrayHandle h) {
_VL_SVDPI_UNIMP(); return 0; _VL_SVDPI_UNIMP(); return 0;
} }
void* svGetArrayPtr(const svOpenArrayHandle h) {
void *svGetArrayPtr(const svOpenArrayHandle) {
_VL_SVDPI_UNIMP(); return NULL; _VL_SVDPI_UNIMP(); return NULL;
} }
int svSizeOfArray(const svOpenArrayHandle h) {
int svSizeOfArray(const svOpenArrayHandle) {
_VL_SVDPI_UNIMP(); return 0; _VL_SVDPI_UNIMP(); return 0;
} }
void *svGetArrElemPtr(const svOpenArrayHandle, int indx1, ...) { void* svGetArrElemPtr(const svOpenArrayHandle h, int indx1, ...) {
_VL_SVDPI_UNIMP(); return NULL; _VL_SVDPI_UNIMP(); return NULL;
} }
void *svGetArrElemPtr1(const svOpenArrayHandle, int indx1) { void* svGetArrElemPtr1(const svOpenArrayHandle h, int indx1) {
_VL_SVDPI_UNIMP(); return NULL; _VL_SVDPI_UNIMP(); return NULL;
} }
void *svGetArrElemPtr2(const svOpenArrayHandle, int indx1, int indx2) { void* svGetArrElemPtr2(const svOpenArrayHandle h, int indx1, int indx2) {
_VL_SVDPI_UNIMP(); return NULL; _VL_SVDPI_UNIMP(); return NULL;
} }
void *svGetArrElemPtr3(const svOpenArrayHandle, int indx1, int indx2, int indx3) { void* svGetArrElemPtr3(const svOpenArrayHandle h, int indx1, int indx2, int indx3) {
_VL_SVDPI_UNIMP(); return NULL; _VL_SVDPI_UNIMP(); return NULL;
} }
@ -136,35 +287,35 @@ void *svGetArrElemPtr3(const svOpenArrayHandle, int indx1, int indx2, int indx3)
// From user space into simulator storage // From user space into simulator storage
void svPutBitArrElemVecVal(const svOpenArrayHandle d, const svBitVecVal* s, void svPutBitArrElemVecVal(const svOpenArrayHandle d, const svBitVecVal* s,
int indx1, ...) { int indx1, ...) {
_VL_SVDPI_UNIMP(); _VL_SVDPI_UNIMP();
} }
void svPutBitArrElem1VecVal(const svOpenArrayHandle d, const svBitVecVal* s, void svPutBitArrElem1VecVal(const svOpenArrayHandle d, const svBitVecVal* s,
int indx1) { int indx1) {
_VL_SVDPI_UNIMP(); _VL_SVDPI_UNIMP();
} }
void svPutBitArrElem2VecVal(const svOpenArrayHandle d, const svBitVecVal* s, void svPutBitArrElem2VecVal(const svOpenArrayHandle d, const svBitVecVal* s,
int indx1, int indx2) { int indx1, int indx2) {
_VL_SVDPI_UNIMP(); _VL_SVDPI_UNIMP();
} }
void svPutBitArrElem3VecVal(const svOpenArrayHandle d, const svBitVecVal* s, void svPutBitArrElem3VecVal(const svOpenArrayHandle d, const svBitVecVal* s,
int indx1, int indx2, int indx3) { int indx1, int indx2, int indx3) {
_VL_SVDPI_UNIMP(); _VL_SVDPI_UNIMP();
} }
void svPutLogicArrElemVecVal(const svOpenArrayHandle d, const svLogicVecVal* s, void svPutLogicArrElemVecVal(const svOpenArrayHandle d, const svLogicVecVal* s,
int indx1, ...) { int indx1, ...) {
_VL_SVDPI_UNIMP(); _VL_SVDPI_UNIMP();
} }
void svPutLogicArrElem1VecVal(const svOpenArrayHandle d, const svLogicVecVal* s, void svPutLogicArrElem1VecVal(const svOpenArrayHandle d, const svLogicVecVal* s,
int indx1) { int indx1) {
_VL_SVDPI_UNIMP(); _VL_SVDPI_UNIMP();
} }
void svPutLogicArrElem2VecVal(const svOpenArrayHandle d, const svLogicVecVal* s, void svPutLogicArrElem2VecVal(const svOpenArrayHandle d, const svLogicVecVal* s,
int indx1, int indx2) { int indx1, int indx2) {
_VL_SVDPI_UNIMP(); _VL_SVDPI_UNIMP();
} }
void svPutLogicArrElem3VecVal(const svOpenArrayHandle d, const svLogicVecVal* s, void svPutLogicArrElem3VecVal(const svOpenArrayHandle d, const svLogicVecVal* s,
int indx1, int indx2, int indx3) { int indx1, int indx2, int indx3) {
_VL_SVDPI_UNIMP(); _VL_SVDPI_UNIMP();
} }
@ -172,35 +323,35 @@ void svPutLogicArrElem3VecVal(const svOpenArrayHandle d, const svLogicVecVal* s,
// From simulator storage into user space // From simulator storage into user space
void svGetBitArrElemVecVal(svBitVecVal* d, const svOpenArrayHandle s, void svGetBitArrElemVecVal(svBitVecVal* d, const svOpenArrayHandle s,
int indx1, ...) { int indx1, ...) {
_VL_SVDPI_UNIMP(); _VL_SVDPI_UNIMP();
} }
void svGetBitArrElem1VecVal(svBitVecVal* d, const svOpenArrayHandle s, void svGetBitArrElem1VecVal(svBitVecVal* d, const svOpenArrayHandle s,
int indx1) { int indx1) {
_VL_SVDPI_UNIMP(); _VL_SVDPI_UNIMP();
} }
void svGetBitArrElem2VecVal(svBitVecVal* d, const svOpenArrayHandle s, void svGetBitArrElem2VecVal(svBitVecVal* d, const svOpenArrayHandle s,
int indx1, int indx2) { int indx1, int indx2) {
_VL_SVDPI_UNIMP(); _VL_SVDPI_UNIMP();
} }
void svGetBitArrElem3VecVal(svBitVecVal* d, const svOpenArrayHandle s, void svGetBitArrElem3VecVal(svBitVecVal* d, const svOpenArrayHandle s,
int indx1, int indx2, int indx3) { int indx1, int indx2, int indx3) {
_VL_SVDPI_UNIMP(); _VL_SVDPI_UNIMP();
} }
void svGetLogicArrElemVecVal(svLogicVecVal* d, const svOpenArrayHandle s, void svGetLogicArrElemVecVal(svLogicVecVal* d, const svOpenArrayHandle s,
int indx1, ...) { int indx1, ...) {
_VL_SVDPI_UNIMP(); _VL_SVDPI_UNIMP();
} }
void svGetLogicArrElem1VecVal(svLogicVecVal* d, const svOpenArrayHandle s, void svGetLogicArrElem1VecVal(svLogicVecVal* d, const svOpenArrayHandle s,
int indx1) { int indx1) {
_VL_SVDPI_UNIMP(); _VL_SVDPI_UNIMP();
} }
void svGetLogicArrElem2VecVal(svLogicVecVal* d, const svOpenArrayHandle s, void svGetLogicArrElem2VecVal(svLogicVecVal* d, const svOpenArrayHandle s,
int indx1, int indx2) { int indx1, int indx2) {
_VL_SVDPI_UNIMP(); _VL_SVDPI_UNIMP();
} }
void svGetLogicArrElem3VecVal(svLogicVecVal* d, const svOpenArrayHandle s, void svGetLogicArrElem3VecVal(svLogicVecVal* d, const svOpenArrayHandle s,
int indx1, int indx2, int indx3) { int indx1, int indx2, int indx3) {
_VL_SVDPI_UNIMP(); _VL_SVDPI_UNIMP();
} }
@ -277,7 +428,7 @@ svScope svGetScopeFromName(const char* scopeName) {
return (svScope)VerilatedImp::scopeFind(scopeName); return (svScope)VerilatedImp::scopeFind(scopeName);
} }
int svPutUserData(const svScope scope, void *userKey, void* userData) { int svPutUserData(const svScope scope, void* userKey, void* userData) {
VerilatedImp::userInsert(scope,userKey,userData); VerilatedImp::userInsert(scope,userKey,userData);
return 0; return 0;
} }