VHDL AST element for `wait on' statement

tgt-vhdl/stmt.cc

@@ -435,8 +435,8 @@ static int draw_wait(vhdl_procedural *_proc, stmt_container *container,
       }
    }
 
-   draw_stmt(proc, container, ivl_stmt_sub_stmt(stmt));
    container->add_stmt(new vhdl_wait_stmt(VHDL_WAIT_UNTIL, test));
+   draw_stmt(proc, container, ivl_stmt_sub_stmt(stmt));
    
    return 0;
 }

tgt-vhdl/vhdl_syntax.cc

@@ -305,6 +305,16 @@ void vhdl_wait_stmt::emit(std::ostream &of, int level) const
       of << " until ";
       expr_->emit(of, level);
       break;
+   case VHDL_WAIT_ON:
+      {
+         string_list_t::const_iterator it = sensitivity_.begin();
+         while (it != sensitivity_.end()) {
+            of << *it;
+            if (++it != sensitivity_.end())
+               of << ", ";
+         }
+      }
+      break;
    }
    
    of << ";";

tgt-vhdl/vhdl_syntax.hh

@@ -307,7 +307,8 @@ public:
 enum vhdl_wait_type_t {
    VHDL_WAIT_INDEF,  // Suspend indefinitely
    VHDL_WAIT_FOR,    // Wait for a constant amount of time
-   VHDL_WAIT_UNTIL,  // Wait on a sensitivity list
+   VHDL_WAIT_UNTIL,  // Wait on an expression
+   VHDL_WAIT_ON,     // Wait on a sensitivity list
 };
 
 /*
@@ -325,6 +326,7 @@ public:
 private:
    vhdl_wait_type_t type_;
    vhdl_expr *expr_;
+   string_list_t sensitivity_;
 };