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

Support concatenate in l-values.

This commit is contained in:
steve 1999-07-10 02:19:26 +00:00
parent 46df679fc5
commit c8d13d7a1c
2 changed files with 28 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
elaborate.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: elaborate.cc,v 1.50 1999/07/03 02:12:51 steve Exp $" #ident "$Id: elaborate.cc,v 1.51 1999/07/10 02:19:26 steve Exp $"
#endif #endif
/* /*
@ -1032,6 +1032,21 @@ NetNet* PAssign_::elaborate_lval(Design*des, const string&path,
{ {
/* Get the l-value, and assume that it is an identifier. */ /* Get the l-value, and assume that it is an identifier. */
const PEIdent*id = dynamic_cast<const PEIdent*>(lval()); const PEIdent*id = dynamic_cast<const PEIdent*>(lval());
if (id == 0) {
NetNet*ll = lval_->elaborate_net(des, path);
if (ll == 0) {
cerr << get_line() << ": Assignment l-value too complex."
<< endl;
return 0;
}
lsb = 0;
msb = ll->pin_count()-1;
mux = 0;
return ll;
}
assert(id); assert(id);
/* Get the signal referenced by the identifier, and make sure /* Get the signal referenced by the identifier, and make sure
@ -1142,10 +1157,6 @@ NetProc* PAssign::elaborate(Design*des, const string&path) const
delete reg; delete reg;
delete rv; delete rv;
return 0; return 0;
#if 0
cur = new NetAssign(des->local_symbol(path), des, 1, mux, rv);
connect(cur->pin(0), reg->pin(0));
#endif
} }
@ -1704,6 +1715,9 @@ Design* elaborate(const map<string,Module*>&modules,
/* /*
* $Log: elaborate.cc,v $ * $Log: elaborate.cc,v $
* Revision 1.51 1999/07/10 02:19:26 steve
* Support concatenate in l-values.
*
* Revision 1.50 1999/07/03 02:12:51 steve * Revision 1.50 1999/07/03 02:12:51 steve
* Elaborate user defined tasks. * Elaborate user defined tasks.
* *

16
parse.y
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: parse.y,v 1.49 1999/07/10 01:03:18 steve Exp $" #ident "$Id: parse.y,v 1.50 1999/07/10 02:19:26 steve Exp $"
#endif #endif
# include "parse_misc.h" # include "parse_misc.h"
@ -842,10 +842,11 @@ lavalue
$$ = tmp; $$ = tmp;
} }
| '{' expression_list '}' | '{' expression_list '}'
{ yyerror(@1, "Sorry, concatenation expressions" { PEConcat*tmp = new PEConcat(*$2);
" not supported in lvalue."); tmp->set_file(@1.text);
$$ = 0; tmp->set_lineno(@1.first_line);
delete $2; delete $2;
$$ = tmp;
} }
; ;
@ -878,10 +879,11 @@ lpvalue
$$ = tmp; $$ = tmp;
} }
| '{' expression_list '}' | '{' expression_list '}'
{ yyerror(@1, "Sorry, concatenation expressions" { PEConcat*tmp = new PEConcat(*$2);
" not supported in lvalue."); tmp->set_file(@1.text);
$$ = 0; tmp->set_lineno(@1.first_line);
delete $2; delete $2;
$$ = tmp;
} }
; ;