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

Dummy implementation of $time

This commit is contained in:
Nick Gasson 2008-07-18 11:50:05 +01:00
parent e9637f6d11
commit 00317dd47f
1 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
tgt-vhdl/expr.cc
View File

@ -22,6 +22,8 @@
#include <iostream> #include <iostream>
#include <cassert> #include <cassert>
#include <cstring>
/* /*
* Change the signedness of a vector. * Change the signedness of a vector.
@ -402,6 +404,23 @@ static vhdl_expr *translate_concat(ivl_expr_t e)
return translate_parms<vhdl_binop_expr>(concat, e); return translate_parms<vhdl_binop_expr>(concat, e);
} }
vhdl_expr *translate_sfunc_time(ivl_expr_t e)
{
cerr << "warning: no translation for time (returning 0)" << endl;
return new vhdl_const_int(0);
}
vhdl_expr *translate_sfunc(ivl_expr_t e)
{
const char *name = ivl_expr_name(e);
if (strcmp(name, "$time") == 0)
return translate_sfunc_time(e);
else {
error("No translation for system function %s", name);
return NULL;
}
}
/* /*
* Generate a VHDL expression from a Verilog expression. * Generate a VHDL expression from a Verilog expression.
*/ */
@ -429,6 +448,8 @@ vhdl_expr *translate_expr(ivl_expr_t e)
return translate_ternary(e); return translate_ternary(e);
case IVL_EX_CONCAT: case IVL_EX_CONCAT:
return translate_concat(e); return translate_concat(e);
case IVL_EX_SFUNC:
return translate_sfunc(e);
default: default:
error("No VHDL translation for expression at %s:%d (type = %d)", error("No VHDL translation for expression at %s:%d (type = %d)",
ivl_expr_file(e), ivl_expr_lineno(e), type); ivl_expr_file(e), ivl_expr_lineno(e), type);