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

Support making hex strings.

This commit is contained in:
steve 2001-03-25 19:38:05 +00:00
parent 16f514739f
commit 31b0037299
1 changed files with 32 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
vvp/vpi_signal.cc
View File

@ -17,7 +17,7 @@
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
*/
#if !defined(WINNT)
#ident "$Id: vpi_signal.cc,v 1.3 2001/03/25 00:35:35 steve Exp $"
#ident "$Id: vpi_signal.cc,v 1.4 2001/03/25 19:38:05 steve Exp $"
#endif
/*
@ -30,6 +30,8 @@
# include <malloc.h>
# include <assert.h>
extern const char hex_digits[256];
/*
* implement vpi_get for vpiReg objects.
*/
@ -104,6 +106,32 @@ static void signal_get_value(vpiHandle ref, s_vpi_value*vp)
vp->value.str = buf;
break;
case vpiHexStrVal: {
unsigned hval, hwid;
hwid = (wid + 3) / 4;
buf[hwid] = 0;
hval = 0;
for (unsigned idx = 0 ; idx < wid ; idx += 1) {
vvp_ipoint_t fptr = ipoint_index(rfp->bits, idx);
functor_t fp = functor_index(fptr);
hval = hval | ((fp->oval&3) << 2*(idx % 4));
if (idx%4 == 3) {
hwid -= 1;
buf[hwid] = hex_digits[hval];
hval = 0;
}
}
if (hwid > 0) {
hwid -= 1;
buf[hwid] = hex_digits[hval];
hval = 0;
}
vp->value.str = buf;
break;
}
default:
/* XXXX Not implemented yet. */
assert(0);
@ -193,6 +221,9 @@ vpiHandle vpip_make_net(char*name, int msb, int lsb, vvp_ipoint_t base)
/*
* $Log: vpi_signal.cc,v $
* Revision 1.4 2001/03/25 19:38:05 steve
* Support making hex strings.
*
* Revision 1.3 2001/03/25 00:35:35 steve
* Add the .net statement.
*