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

Raw dump of double values for testing purposes.

This commit is contained in:
steve 2003-03-07 06:04:58 +00:00
parent f40ea15cce
commit 258013f99f
1 changed files with 17 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
tgt-stub/stub.c
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
*/ */
#ifdef HAVE_CVS_IDENT #ifdef HAVE_CVS_IDENT
#ident "$Id: stub.c,v 1.73 2003/02/25 03:39:53 steve Exp $" #ident "$Id: stub.c,v 1.74 2003/03/07 06:04:58 steve Exp $"
#endif #endif
# include "config.h" # include "config.h"
@ -135,8 +135,19 @@ static void show_expression(ivl_expr_t net, unsigned ind)
break; break;
case IVL_EX_REALNUM: case IVL_EX_REALNUM:
fprintf(out, "%*s<realnum=%f>\n", ind, "", ivl_expr_dvalue(net)); {
break; int idx;
union foo {
double rv;
unsigned char bv[sizeof(double)];
} tmp;
tmp.rv = ivl_expr_dvalue(net);
fprintf(out, "%*s<realnum=%f (", ind, "", tmp.rv);
for (idx = sizeof(double) ; idx > 0 ; idx -= 1)
fprintf(out, "%02x", tmp.bv[idx-1]);
fprintf(out, ")>\n");
}
break;
default: default:
fprintf(out, "%*s<expr_type=%u>\n", ind, "", code); fprintf(out, "%*s<expr_type=%u>\n", ind, "", code);
@ -781,6 +792,9 @@ int target_design(ivl_design_t des)
/* /*
* $Log: stub.c,v $ * $Log: stub.c,v $
* Revision 1.74 2003/03/07 06:04:58 steve
* Raw dump of double values for testing purposes.
*
* Revision 1.73 2003/02/25 03:39:53 steve * Revision 1.73 2003/02/25 03:39:53 steve
* Eliminate use of ivl_lpm_name. * Eliminate use of ivl_lpm_name.
* *