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

Support DesSTrVal for binary constants.

This commit is contained in:
steve 2002-01-15 03:21:18 +00:00
parent ec070ee65b
commit a697157257
1 changed files with 58 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

59
vvp/vpi_const.cc
View File

@ -17,7 +17,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_const.cc,v 1.7 2001/09/15 18:27:05 steve Exp $" #ident "$Id: vpi_const.cc,v 1.8 2002/01/15 03:21:18 steve Exp $"
#endif #endif
# include "vpi_priv.h" # include "vpi_priv.h"
@ -87,12 +87,22 @@ vpiHandle vpip_make_string_const(char*text)
static int binary_get(int code, vpiHandle ref) static int binary_get(int code, vpiHandle ref)
{ {
struct __vpiBinaryConst*rfp = (struct __vpiBinaryConst*)ref;
assert(ref->vpi_type->type_code == vpiConstant);
switch (code) { switch (code) {
case vpiConstType: case vpiConstType:
return vpiBinaryConst; return vpiBinaryConst;
case vpiSigned: // FIXME: Need to get signed flag right.
return 0;
case vpiSize:
return rfp->nbits;
default: default:
fprintf(stderr, "vvp error: get %d not supported "
"by vpiBinaryConst\n", code);
assert(0); assert(0);
return 0; return 0;
} }
@ -109,6 +119,7 @@ static void binary_value(vpiHandle ref, p_vpi_value vp)
case vpiObjTypeVal: case vpiObjTypeVal:
case vpiBinStrVal: case vpiBinStrVal:
assert(rfp->nbits < sizeof buf);
for (unsigned idx = 0 ; idx < rfp->nbits ; idx += 1) { for (unsigned idx = 0 ; idx < rfp->nbits ; idx += 1) {
unsigned nibble = idx/4; unsigned nibble = idx/4;
unsigned shift = 2 * (idx%4); unsigned shift = 2 * (idx%4);
@ -121,6 +132,49 @@ static void binary_value(vpiHandle ref, p_vpi_value vp)
vp->format = vpiBinStrVal; vp->format = vpiBinStrVal;
break; break;
case vpiDecStrVal: {
unsigned long val = 0;
unsigned count_x = 0, count_z = 0;
vp->value.str = buf;
for (unsigned idx = 0 ; idx < rfp->nbits ; idx += 1) {
unsigned nibble = idx/4;
unsigned shift = 2 * (idx%4);
unsigned bit_val = (rfp->bits[nibble] >> shift) & 3;
switch (bit_val) {
case 0:
break;
case 1:
val |= 1 << idx;
break;
case 2:
count_x += 1;
break;
case 3:
count_z += 1;
break;
}
}
if (count_z == rfp->nbits) {
sprintf(buf, "z");
} else if (count_x == rfp->nbits) {
sprintf(buf, "x");
} else if ((count_z > 0) && (count_x == 0)) {
sprintf(buf, "Z");
} else if (count_x > 0) {
sprintf(buf, "X");
} else {
sprintf(buf, "%lu", val);
}
break;
}
case vpiIntVal: { case vpiIntVal: {
unsigned val = 0; unsigned val = 0;
@ -197,6 +251,9 @@ vpiHandle vpip_make_binary_const(unsigned wid, char*bits)
/* /*
* $Log: vpi_const.cc,v $ * $Log: vpi_const.cc,v $
* Revision 1.8 2002/01/15 03:21:18 steve
* Support DesSTrVal for binary constants.
*
* Revision 1.7 2001/09/15 18:27:05 steve * Revision 1.7 2001/09/15 18:27:05 steve
* Make configure detect malloc.h * Make configure detect malloc.h
* *