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

All the threads of a named fork go into sub-scope.

This commit is contained in:
steve 2003-07-29 05:12:10 +00:00
parent 31b1fb4ec4
commit d4b7c835de
1 changed files with 24 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
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
*/ */
#ifdef HAVE_CVS_IDENT #ifdef HAVE_CVS_IDENT
#ident "$Id: vvp_process.c,v 1.87 2003/05/26 04:45:37 steve Exp $" #ident "$Id: vvp_process.c,v 1.88 2003/07/29 05:12:10 steve Exp $"
#endif #endif
# include "vvp_priv.h" # include "vvp_priv.h"
@ -1098,7 +1098,16 @@ static int show_stmt_fork(ivl_statement_t net, ivl_scope_t sscope)
unsigned out = transient_id++; unsigned out = transient_id++;
unsigned id_base = transient_id; unsigned id_base = transient_id;
transient_id += cnt-1;
/* cnt is the number of sub-threads. If the fork-join has no
name, then we can put one of the sub-threads in the current
thread, so decrement the count by one. */
if (scope == 0) {
cnt -= 1;
scope = sscope;
}
transient_id += cnt;
/* If no subscope use provided */ /* If no subscope use provided */
if (!scope) scope = sscope; if (!scope) scope = sscope;
@ -1106,21 +1115,25 @@ static int show_stmt_fork(ivl_statement_t net, ivl_scope_t sscope)
/* Draw a fork statement for all but one of the threads of the /* Draw a fork statement for all but one of the threads of the
fork/join. Send the threads off to a bit of code where they fork/join. Send the threads off to a bit of code where they
are implemented. */ are implemented. */
for (idx = 0 ; idx < cnt-1 ; idx += 1) { for (idx = 0 ; idx < cnt ; idx += 1) {
fprintf(vvp_out, " %%fork t_%u, S_%p;\n", fprintf(vvp_out, " %%fork t_%u, S_%p;\n",
id_base+idx, scope); id_base+idx, scope);
} }
/* Draw code to execute the remaining thread in the current /* If we are putting one sub-thread into the current thread,
thread, then generate enough joins to merge back together. */ then draw its code here. */
rc += show_statement(ivl_stmt_block_stmt(net, cnt-1), scope); if (ivl_stmt_block_scope(net) == 0)
rc += show_statement(ivl_stmt_block_stmt(net, cnt), scope);
for (idx = 0 ; idx < cnt-1 ; idx += 1) {
/* Generate enough joins to collect all the sub-threads. */
for (idx = 0 ; idx < cnt ; idx += 1) {
fprintf(vvp_out, " %%join;\n"); fprintf(vvp_out, " %%join;\n");
} }
fprintf(vvp_out, " %%jmp t_%u;\n", out); fprintf(vvp_out, " %%jmp t_%u;\n", out);
for (idx = 0 ; idx < cnt-1 ; idx += 1) { /* Generate the sub-threads themselves. */
for (idx = 0 ; idx < cnt ; idx += 1) {
fprintf(vvp_out, "t_%u ;\n", id_base+idx); fprintf(vvp_out, "t_%u ;\n", id_base+idx);
clear_expression_lookaside(); clear_expression_lookaside();
rc += show_statement(ivl_stmt_block_stmt(net, idx), scope); rc += show_statement(ivl_stmt_block_stmt(net, idx), scope);
@ -1522,6 +1535,9 @@ int draw_func_definition(ivl_scope_t scope)
/* /*
* $Log: vvp_process.c,v $ * $Log: vvp_process.c,v $
* Revision 1.88 2003/07/29 05:12:10 steve
* All the threads of a named fork go into sub-scope.
*
* Revision 1.87 2003/05/26 04:45:37 steve * Revision 1.87 2003/05/26 04:45:37 steve
* Use set/x0/x if the target vector is too wide for set/x0. * Use set/x0/x if the target vector is too wide for set/x0.
* *