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

Support vpiStringVal in vhtread vectors.

This commit is contained in:
steve 2001-12-30 21:31:38 +00:00
parent 357a0ff23e
commit fd5c0cfa28
1 changed files with 35 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
vvp/vpi_vthr_vector.cc
View File

@ -18,7 +18,7 @@
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
*/ */
#if !defined(WINNT) #if !defined(WINNT)
#ident "$Id: vpi_vthr_vector.cc,v 1.3 2001/09/15 18:27:05 steve Exp $" #ident "$Id: vpi_vthr_vector.cc,v 1.4 2001/12/30 21:31:38 steve Exp $"
#endif #endif
/* /*
@ -162,6 +162,29 @@ static void vthr_vec_DecStrVal(struct __vpiVThrVec*rfp, s_vpi_value*vp)
sprintf(buf, "%lu", val); sprintf(buf, "%lu", val);
} }
static void vthr_vec_StringVal(struct __vpiVThrVec*rfp, s_vpi_value*vp)
{
assert(rfp->wid % 8 == 0);
assert(rfp->wid/8 < sizeof buf);
unsigned bytes = rfp->wid/8;
for (unsigned idx = 0 ; idx < bytes ; idx += 1) {
unsigned base = rfp->wid - 8 - idx * 8;
int val = 0;
for (unsigned bit = 0 ; bit < 8 ; bit += 1) {
unsigned tmp = get_bit(rfp, base+bit);
if (tmp == 1)
val |= 1 << bit;
}
buf[idx] = val? val : ' ';
}
buf[bytes] = 0;
}
/* /*
* The get_value method reads the values of the functors and returns * The get_value method reads the values of the functors and returns
* the vector to the caller. This causes no side-effect, and reads the * the vector to the caller. This causes no side-effect, and reads the
@ -180,6 +203,7 @@ static void vthr_vec_get_value(vpiHandle ref, s_vpi_value*vp)
switch (vp->format) { switch (vp->format) {
case vpiBinStrVal: case vpiBinStrVal:
assert(wid < sizeof buf);
for (unsigned idx = 0 ; idx < wid ; idx += 1) { for (unsigned idx = 0 ; idx < wid ; idx += 1) {
buf[wid-idx-1] = "01xz"[get_bit(rfp, idx)]; buf[wid-idx-1] = "01xz"[get_bit(rfp, idx)];
} }
@ -190,6 +214,7 @@ static void vthr_vec_get_value(vpiHandle ref, s_vpi_value*vp)
case vpiHexStrVal: { case vpiHexStrVal: {
unsigned hval, hwid; unsigned hval, hwid;
hwid = (wid + 3) / 4; hwid = (wid + 3) / 4;
assert(hwid < sizeof buf);
buf[hwid] = 0; buf[hwid] = 0;
hval = 0; hval = 0;
for (unsigned idx = 0 ; idx < wid ; idx += 1) { for (unsigned idx = 0 ; idx < wid ; idx += 1) {
@ -214,6 +239,7 @@ static void vthr_vec_get_value(vpiHandle ref, s_vpi_value*vp)
case vpiOctStrVal: { case vpiOctStrVal: {
unsigned hval, hwid; unsigned hval, hwid;
hwid = (wid + 2) / 3; hwid = (wid + 2) / 3;
assert(hwid < sizeof buf);
buf[hwid] = 0; buf[hwid] = 0;
hval = 0; hval = 0;
for (unsigned idx = 0 ; idx < wid ; idx += 1) { for (unsigned idx = 0 ; idx < wid ; idx += 1) {
@ -240,6 +266,11 @@ static void vthr_vec_get_value(vpiHandle ref, s_vpi_value*vp)
vp->value.str = buf; vp->value.str = buf;
break; break;
case vpiStringVal:
vthr_vec_StringVal(rfp, vp);
vp->value.str = buf;
break;
default: default:
/* XXXX Not implemented yet. */ /* XXXX Not implemented yet. */
assert(0); assert(0);
@ -348,6 +379,9 @@ vpiHandle vpip_make_vthr_vector(unsigned base, unsigned wid)
/* /*
* $Log: vpi_vthr_vector.cc,v $ * $Log: vpi_vthr_vector.cc,v $
* Revision 1.4 2001/12/30 21:31:38 steve
* Support vpiStringVal in vhtread vectors.
*
* Revision 1.3 2001/09/15 18:27:05 steve * Revision 1.3 2001/09/15 18:27:05 steve
* Make configure detect malloc.h * Make configure detect malloc.h
* *