diff options
Diffstat (limited to 'src')
-rw-r--r-- | src/vhd2vl.l | 1 | ||||
-rw-r--r-- | src/vhd2vl.y | 7 |
2 files changed, 7 insertions, 1 deletions
diff --git a/src/vhd2vl.l b/src/vhd2vl.l index d2cda55..b4de189 100644 --- a/src/vhd2vl.l +++ b/src/vhd2vl.l @@ -122,6 +122,7 @@ void getbasedstring(unsigned skip); "xor" { return XOR; } "xnor" { return XNOR; } "mod" { return MOD; } +"**" { return POW; } "event" { return EVENT; } "rising_edge" { return POSEDGE;} "falling_edge" { return NEGEDGE;} diff --git a/src/vhd2vl.y b/src/vhd2vl.y index 2168073..f0efb24 100644 --- a/src/vhd2vl.y +++ b/src/vhd2vl.y @@ -740,7 +740,7 @@ slist *emit_io_list(slist *sl) %token <txt> SELECT OTHERS PROCESS VARIABLE CONSTANT %token <txt> IF THEN ELSIF ELSE CASE WHILE %token <txt> FOR LOOP GENERATE -%token <txt> AFTER AND OR XOR MOD +%token <txt> AFTER AND OR XOR MOD POW %token <txt> LASTVALUE EVENT POSEDGE NEGEDGE %token <txt> STRING NAME RANGE NULLV OPEN %token <txt> CONVFUNC_1 CONVFUNC_2 BASED FLOAT LEFT @@ -784,6 +784,7 @@ slist *emit_io_list(slist *sl) %left '<' '>' BIGEQ LESSEQ NOTEQ EQUAL %left '+' '-' '&' %left '*' '/' +%left POW %right UMINUS UPLUS NOTL NOT %error-verbose @@ -2219,6 +2220,7 @@ expr : signal { | '+' expr %prec UPLUS {$$=addexpr(NULL,'p'," +",$2);} | expr '+' expr {$$=addexpr($1,'+'," + ",$3);} | expr '-' expr {$$=addexpr($1,'-'," - ",$3);} + | expr POW expr {$$=addexpr($1,'*'," ** ",$3);} | expr '*' expr {$$=addexpr($1,'*'," * ",$3);} | expr '/' expr {$$=addexpr($1,'/'," / ",$3);} | expr MOD expr {$$=addexpr($1,'%'," % ",$3);} @@ -2415,6 +2417,9 @@ simple_expr : signal { | simple_expr '-' simple_expr { $$=addexpr($1,'-'," - ",$3); } + | simple_expr POW simple_expr { + $$=addexpr($1,'*'," ** ",$3); + } | simple_expr '*' simple_expr { $$=addexpr($1,'*'," * ",$3); } |