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

Handle default case.

This commit is contained in:
steve 1999-02-22 03:01:12 +00:00
parent e2a37a8ccd
commit a2bc27318f
1 changed files with 43 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
t-vvm.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: t-vvm.cc,v 1.12 1999/02/15 02:06:15 steve Exp $" #ident "$Id: t-vvm.cc,v 1.13 1999/02/22 03:01:12 steve Exp $"
#endif #endif
# include <iostream> # include <iostream>
@ -182,6 +182,10 @@ void vvm_proc_rval::expr_binary(const NetEBinary*expr)
os_ << setw(indent_) << "" << result << " = vvm_binop_minus(" os_ << setw(indent_) << "" << result << " = vvm_binop_minus("
<< lres << "," << rres << ");" << endl; << lres << "," << rres << ");" << endl;
break; break;
case '&':
os_ << setw(indent_) << "" << result << " = vvm_binop_and("
<< lres << "," << rres << ");" << endl;
break;
default: default:
cerr << "vvm: Unhandled binary op `" << expr->op() << "': " cerr << "vvm: Unhandled binary op `" << expr->op() << "': "
<< *expr << endl; << *expr << endl;
@ -636,40 +640,69 @@ void target_vvm::proc_block(ostream&os, const NetBlock*net)
*/ */
void target_vvm::proc_case(ostream&os, const NetCase*net) void target_vvm::proc_case(ostream&os, const NetCase*net)
{ {
os << " /* case (" << *net->expr() << ") */" << endl;
string expr = emit_proc_rval(os, 8, net->expr()); string expr = emit_proc_rval(os, 8, net->expr());
ostrstream sc; ostrstream sc;
unsigned default_step_ = thread_step_ + 1; unsigned exit_step = thread_step_ + 1;
thread_step_ += 1; thread_step_ += 1;
unsigned default_idx = net->nitems();
/* Handle the case statement like a computed goto, where the /* Handle the case statement like a computed goto, where the
result of the case statements is the next state to go result of the case statements is the next state to go
to. Once that is done, return true so that statement is to. Once that is done, return true so that statement is
executed. */ executed. */
for (unsigned idx = 0 ; idx < net->nitems() ; idx += 1) { for (unsigned idx = 0 ; idx < net->nitems() ; idx += 1) {
if (net->expr(idx) == 0) {
assert(default_idx == net->nitems());
default_idx = idx;
continue;
}
assert(net->expr(idx));
os << " /* " << *net->expr(idx) << " : */" << endl;
string guard = emit_proc_rval(os, 8, net->expr(idx)); string guard = emit_proc_rval(os, 8, net->expr(idx));
thread_step_ += 1; thread_step_ += 1;
os << " if (" << expr << ".eequal(" << guard << os << " if (" << expr << ".eequal(" << guard <<
"))" << endl; ")) {" << endl;
os << " step_ = &step_" << os << " step_ = &step_" <<
thread_step_ << "_;" << endl; thread_step_ << "_;" << endl;
os << " return true;" << endl;
os << " }" << endl;
sc << " bool step_" << thread_step_ << "_()" << endl; sc << " bool step_" << thread_step_ << "_()" << endl;
sc << " {" << endl; sc << " {" << endl;
net->stat(idx)->emit_proc(sc, this); net->stat(idx)->emit_proc(sc, this);
sc << " step_ = &step_" << default_step_ << "_;" << endl; sc << " step_ = &step_" << exit_step << "_;" << endl;
sc << " return true;" << endl; sc << " return true;" << endl;
sc << " }" << endl; sc << " }" << endl;
} }
os << " else" << endl; if (default_idx < net->nitems()) {
os << " step_ = &step_" << default_step_ << "_;" << endl; thread_step_ += 1;
os << " /* default : */" << endl;
os << " step_ = &step_" << thread_step_ << "_;" << endl;
sc << " bool step_" << thread_step_ << "_()" << endl;
sc << " {" << endl;
net->stat(default_idx)->emit_proc(sc, this);
sc << " step_ = &step_" << exit_step << "_;" << endl;
sc << " return true;" << endl;
sc << " }" << endl;
} else {
os << " /* no default ... fall out of case. */" << endl;
os << " step_ = &step_" << exit_step << "_;" << endl;
}
os << " /* endcase */" << endl;
os << " return true;" << endl; os << " return true;" << endl;
os << " }" << endl; os << " }" << endl;
os << sc.str(); os << sc.str();
os << " bool step_" << default_step_ << "_()" << endl; os << " bool step_" << exit_step << "_()" << endl;
os << " {" << endl; os << " {" << endl;
} }
@ -837,6 +870,9 @@ extern const struct target tgt_vvm = {
}; };
/* /*
* $Log: t-vvm.cc,v $ * $Log: t-vvm.cc,v $
* Revision 1.13 1999/02/22 03:01:12 steve
* Handle default case.
*
* Revision 1.12 1999/02/15 02:06:15 steve * Revision 1.12 1999/02/15 02:06:15 steve
* Elaborate gate ranges. * Elaborate gate ranges.
* *