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

vhdlpp: Support for 'range and 'reverse_range attributes.

This commit is contained in:
Maciej Suminski 2014-10-08 11:18:06 +02:00
parent 44da7de651
commit c7beef907d
2 changed files with 32 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
vhdlpp/lexor_keyword.gperf
View File

@ -96,6 +96,7 @@ rem, GN_KEYWORD_2008, K_rem
report, GN_KEYWORD_2008, K_report
restrict, GN_KEYWORD_2008, K_restrict
return, GN_KEYWORD_2008, K_return
reverse_range, GN_KEYWORD_2008, K_reverse_range
rol, GN_KEYWORD_2008, K_rol
ror, GN_KEYWORD_2008, K_ror
select, GN_KEYWORD_2008, K_select

32
vhdlpp/parse.y
View File

@ -85,6 +85,10 @@ static ActiveScope*active_scope = new ActiveScope;
static stack<ActiveScope*> scope_stack;
static Subprogram*active_sub = NULL;
// perm_strings for attributes
const static perm_string left_attr = perm_string::literal("left");
const static perm_string right_attr = perm_string::literal("right");
/*
* When a scope boundary starts, call the push_scope function to push
* a scope context. Preload this scope context with the contents of
@ -276,7 +280,7 @@ static void touchup_interface_for_functions(std::list<InterfacePort*>*ports)
%token K_package K_parameter K_port K_postponed K_procedure K_process
%token K_property K_protected K_pure
%token K_range K_record K_register K_reject K_release K_rem K_report
%token K_restrict K_restrict_guarantee K_return K_rol K_ror
%token K_restrict K_restrict_guarantee K_return K_reverse_range K_rol K_ror
%token K_select K_sequence K_severity K_signal K_shared
%token K_sla K_sll K_sra K_srl K_strong K_subtype
%token K_then K_to K_transport K_type
@ -1904,6 +1908,32 @@ range
{ prange_t* tmp = new prange_t($1, $3, $2);
$$ = tmp;
}
| name '\'' K_range
{
prange_t*tmp = NULL;
ExpName*name = NULL;
if((name = dynamic_cast<ExpName*>($1))) {
ExpAttribute*left = new ExpAttribute(name, left_attr);
ExpAttribute*right = new ExpAttribute(name, right_attr);
tmp = new prange_t(left, right, true);
} else {
errormsg(@1, "'range attribute can be used with named expressions only");
}
$$ = tmp;
}
| name '\'' K_reverse_range
{
prange_t*tmp = NULL;
ExpName*name = NULL;
if((name = dynamic_cast<ExpName*>($1))) {
ExpAttribute*left = new ExpAttribute(name, left_attr);
ExpAttribute*right = new ExpAttribute(name, right_attr);
tmp = new prange_t(left, right, false);
} else {
errormsg(@1, "'reverse_range attribute can be used with named expressions only");
}
$$ = tmp;
}
;
range_list