parse drive strengths.
This commit is contained in:
parent
f827ad8625
commit
f7526c6c4b
|
|
@ -327,6 +327,8 @@ current state of support for Verilog.
|
||||||
reg [7:0] del;
|
reg [7:0] del;
|
||||||
always #(reg) $display($time,,"del = %d", del); // sorry
|
always #(reg) $display($time,,"del = %d", del); // sorry
|
||||||
|
|
||||||
|
- drive strengths are parsed, bug ignored.
|
||||||
|
|
||||||
Specify blocks are parsed but ignored in general.
|
Specify blocks are parsed but ignored in general.
|
||||||
|
|
||||||
|
|
||||||
|
|
|
||||||
23
parse.y
23
parse.y
|
|
@ -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.74 1999/10/15 05:03:33 steve Exp $"
|
#ident "$Id: parse.y,v 1.75 1999/11/05 19:36:36 steve Exp $"
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
# include "parse_misc.h"
|
# include "parse_misc.h"
|
||||||
|
|
@ -336,6 +336,23 @@ description
|
||||||
}
|
}
|
||||||
;
|
;
|
||||||
|
|
||||||
|
drive_strength
|
||||||
|
: '(' dr_strength0 ',' dr_strength1 ')'
|
||||||
|
| '(' dr_strength1 ',' dr_strength0 ')'
|
||||||
|
| '(' dr_strength0 ',' K_highz1 ')'
|
||||||
|
| '(' dr_strength1 ',' K_highz0 ')'
|
||||||
|
| '(' K_highz1 ',' dr_strength0 ')'
|
||||||
|
| '(' K_highz0 ',' dr_strength1 ')'
|
||||||
|
;
|
||||||
|
|
||||||
|
drive_strength_opt
|
||||||
|
: drive_strength
|
||||||
|
|
|
||||||
|
;
|
||||||
|
|
||||||
|
dr_strength0 : K_supply0 | K_strong0 | K_pull0 | K_weak0 ;
|
||||||
|
dr_strength1 : K_supply1 | K_strong1 | K_pull1 | K_weak1 ;
|
||||||
|
|
||||||
event_control
|
event_control
|
||||||
: '@' IDENTIFIER
|
: '@' IDENTIFIER
|
||||||
{ yyerror(@1, "sorry: event control not supported.");
|
{ yyerror(@1, "sorry: event control not supported.");
|
||||||
|
|
@ -1061,8 +1078,8 @@ module_item
|
||||||
{ pform_make_modgates($1, $2, $3);
|
{ pform_make_modgates($1, $2, $3);
|
||||||
delete $1;
|
delete $1;
|
||||||
}
|
}
|
||||||
| K_assign delay_opt assign_list ';'
|
| K_assign drive_strength_opt delay_opt assign_list ';'
|
||||||
{ pform_make_pgassign_list($3, $2, @1.text, @1.first_line); }
|
{ pform_make_pgassign_list($4, $3, @1.text, @1.first_line); }
|
||||||
| K_assign error '=' expression ';'
|
| K_assign error '=' expression ';'
|
||||||
| K_always statement
|
| K_always statement
|
||||||
{ PProcess*tmp = pform_make_behavior(PProcess::PR_ALWAYS, $2);
|
{ PProcess*tmp = pform_make_behavior(PProcess::PR_ALWAYS, $2);
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue