diff options
author | Rodrigo Alejandro Melo <rmelo@inti.gob.ar> | 2017-02-17 12:05:05 -0300 |
---|---|---|
committer | Rodrigo Alejandro Melo <rmelo@inti.gob.ar> | 2017-02-17 12:05:05 -0300 |
commit | 392e3f32e87a35f3549d71e687010131e5729247 (patch) | |
tree | 5cb9e0efb3aba2de1a723b2df70f731f6cefd6f5 /src/vhd2vl.y | |
parent | 374786444cdbf9af861db46203cde72e9a9e1f01 (diff) | |
download | vhdl2vl-392e3f32e87a35f3549d71e687010131e5729247.tar.gz vhdl2vl-392e3f32e87a35f3549d71e687010131e5729247.zip |
Modified to use ',' to separate sensitivity list in verilog 2001
Changes applied to translated_examples.
Diffstat (limited to 'src/vhd2vl.y')
-rw-r--r-- | src/vhd2vl.y | 15 |
1 files changed, 12 insertions, 3 deletions
diff --git a/src/vhd2vl.y b/src/vhd2vl.y index 0f549cc..78cd564 100644 --- a/src/vhd2vl.y +++ b/src/vhd2vl.y @@ -472,10 +472,16 @@ slist *add_always(slist *sl, slist *sensitivities, slist *decls, int munge) if(clkedge) { sl=addtxt(sl,"posedge "); /* traverse $4->sl replacing " or " with " or posedge " if there is a clockedge */ - slTxtReplace(sensitivities," or ", " or posedge "); + if (vlog_ver == 2001) + slTxtReplace(sensitivities,", ", ", posedge "); + if (vlog_ver == 1995) + slTxtReplace(sensitivities," or ", " or posedge "); } else { sl=addtxt(sl,"negedge "); - slTxtReplace(sensitivities," or ", " or negedge "); + if (vlog_ver == 2001) + slTxtReplace(sensitivities,", ", ", negedge "); + if (vlog_ver == 1995) + slTxtReplace(sensitivities," or ", " or negedge "); } } sl=addsl(sl,sensitivities); @@ -1872,7 +1878,10 @@ wvalue : STRING {$$=addvec(NULL,$1);} sign_list : signal {$$=$1->sl; free($1);} | signal ',' sign_list { slist *sl; - sl=addtxt($1->sl," or "); + if (vlog_ver == 2001) + sl=addtxt($1->sl,", "); + if (vlog_ver == 1995) + sl=addtxt($1->sl," or "); free($1); $$=addsl(sl,$3); } |