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

Generate code for deassign and cassign.

This commit is contained in:
steve 2001-11-01 04:26:57 +00:00
parent ab9a853d52
commit 5d20dd63ec
3 changed files with 67 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tgt-vvp/vvp_priv.h
View File

@ -19,7 +19,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: vvp_priv.h,v 1.11 2001/06/18 03:10:34 steve Exp $" #ident "$Id: vvp_priv.h,v 1.12 2001/11/01 04:26:57 steve Exp $"
#endif #endif
# include "ivl_target.h" # include "ivl_target.h"
@ -57,6 +57,7 @@ extern int draw_scope(ivl_scope_t scope, ivl_scope_t parent);
*/ */
extern void draw_nexus_input(ivl_nexus_t nex); extern void draw_nexus_input(ivl_nexus_t nex);
extern const char* draw_net_input(ivl_nexus_t nex);
/* /*
* The draw_eval_expr function writes out the code to evaluate a * The draw_eval_expr function writes out the code to evaluate a
@ -87,6 +88,9 @@ extern unsigned thread_count;
/* /*
* $Log: vvp_priv.h,v $ * $Log: vvp_priv.h,v $
* Revision 1.12 2001/11/01 04:26:57 steve
* Generate code for deassign and cassign.
*
* Revision 1.11 2001/06/18 03:10:34 steve * Revision 1.11 2001/06/18 03:10:34 steve
* 1. Logic with more than 4 inputs * 1. Logic with more than 4 inputs
* 2. Id and name mangling * 2. Id and name mangling

58
tgt-vvp/vvp_process.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
*/ */
#if !defined(WINNT) #if !defined(WINNT)
#ident "$Id: vvp_process.c,v 1.46 2001/10/19 23:52:36 steve Exp $" #ident "$Id: vvp_process.c,v 1.47 2001/11/01 04:26:57 steve Exp $"
#endif #endif
# include "vvp_priv.h" # include "vvp_priv.h"
@ -451,6 +451,51 @@ static int show_stmt_case(ivl_statement_t net, ivl_scope_t sscope)
return 0; return 0;
} }
static int show_stmt_cassign(ivl_statement_t net)
{
ivl_lval_t lval;
ivl_signal_t lsig;
unsigned idx;
assert(ivl_stmt_lvals(net) == 1);
lval = ivl_stmt_lval(net, 0);
lsig = ivl_lval_sig(lval);
assert(lsig != 0);
assert(ivl_lval_mux(lval) == 0);
assert(ivl_signal_pins(lsig) == ivl_stmt_nexus_count(net));
assert(ivl_lval_part_off(lval) == 0);
for (idx = 0 ; idx < ivl_stmt_nexus_count(net) ; idx += 1) {
fprintf(vvp_out, " %%cassign V_%s[%u], %s;\n",
vvp_mangle_id(ivl_signal_name(lsig)), idx,
draw_net_input(ivl_stmt_nexus(net, idx)));
}
return 0;
}
static int show_stmt_deassign(ivl_statement_t net)
{
ivl_lval_t lval;
ivl_signal_t lsig;
unsigned idx;
assert(ivl_stmt_lvals(net) == 1);
lval = ivl_stmt_lval(net, 0);
lsig = ivl_lval_sig(lval);
assert(lsig != 0);
assert(ivl_lval_mux(lval) == 0);
assert(ivl_lval_part_off(lval) == 0);
for (idx = 0 ; idx < ivl_lval_pins(lval) ; idx += 1) {
fprintf(vvp_out, " %%deassign V_%s[%u], 1;\n",
vvp_mangle_id(ivl_signal_name(lsig)), idx);
}
return 0;
}
static int show_stmt_condit(ivl_statement_t net, ivl_scope_t sscope) static int show_stmt_condit(ivl_statement_t net, ivl_scope_t sscope)
{ {
int rc = 0; int rc = 0;
@ -840,10 +885,18 @@ static int show_statement(ivl_statement_t net, ivl_scope_t sscope)
rc += show_stmt_case(net, sscope); rc += show_stmt_case(net, sscope);
break; break;
case IVL_ST_CASSIGN:
rc += show_stmt_cassign(net);
break;
case IVL_ST_CONDIT: case IVL_ST_CONDIT:
rc += show_stmt_condit(net, sscope); rc += show_stmt_condit(net, sscope);
break; break;
case IVL_ST_DEASSIGN:
rc += show_stmt_deassign(net);
break;
case IVL_ST_DELAY: case IVL_ST_DELAY:
rc += show_stmt_delay(net, sscope); rc += show_stmt_delay(net, sscope);
break; break;
@ -984,6 +1037,9 @@ int draw_func_definition(ivl_scope_t scope)
/* /*
* $Log: vvp_process.c,v $ * $Log: vvp_process.c,v $
* Revision 1.47 2001/11/01 04:26:57 steve
* Generate code for deassign and cassign.
*
* Revision 1.46 2001/10/19 23:52:36 steve * Revision 1.46 2001/10/19 23:52:36 steve
* Add trailing ; to fork-join out labels. * Add trailing ; to fork-join out labels.
* *

8
tgt-vvp/vvp_scope.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
*/ */
#if !defined(WINNT) #if !defined(WINNT)
#ident "$Id: vvp_scope.c,v 1.55 2001/10/24 03:43:45 steve Exp $" #ident "$Id: vvp_scope.c,v 1.56 2001/11/01 04:26:57 steve Exp $"
#endif #endif
# include "vvp_priv.h" # include "vvp_priv.h"
@ -132,7 +132,6 @@ const char *vvp_mangle_name(const char *id)
* other functions in this file are in support of that task. * other functions in this file are in support of that task.
*/ */
static const char* draw_net_input(ivl_nexus_t nex);
/* /*
* NEXUS * NEXUS
@ -269,7 +268,7 @@ static const char* draw_net_input_drive(ivl_nexus_t nex, ivl_nexus_ptr_t nptr)
* The string that this returns is bound to the nexus, so the pointer * The string that this returns is bound to the nexus, so the pointer
* remains valid. * remains valid.
*/ */
static const char* draw_net_input(ivl_nexus_t nex) const char* draw_net_input(ivl_nexus_t nex)
{ {
char result[512]; char result[512];
unsigned idx; unsigned idx;
@ -1218,6 +1217,9 @@ int draw_scope(ivl_scope_t net, ivl_scope_t parent)
/* /*
* $Log: vvp_scope.c,v $ * $Log: vvp_scope.c,v $
* Revision 1.56 2001/11/01 04:26:57 steve
* Generate code for deassign and cassign.
*
* Revision 1.55 2001/10/24 03:43:45 steve * Revision 1.55 2001/10/24 03:43:45 steve
* Write resolvers before the .functor (PR#300) * Write resolvers before the .functor (PR#300)
* *