Class for VHDL type declarations

tgt-vhdl/vhdl_syntax.cc

@@ -380,6 +380,14 @@ void vhdl_signal_decl::emit(std::ostream &of, int level) const
    emit_comment(of, level, true);
 }
 
+void vhdl_type_decl::emit(std::ofstream &of, int level) const
+{
+   of << "type " << name_ << " is ";
+   type_->emit(of, level);
+   of << ";";
+   emit_comment(of, level, true);
+}
+
 vhdl_expr::~vhdl_expr()
 {
    if (type_ != NULL)

tgt-vhdl/vhdl_syntax.hh

@@ -462,6 +462,14 @@ private:
 };
 
 
+class vhdl_type_decl : public vhdl_decl {
+public:
+   vhdl_type_decl(const char *name, vhdl_type *base)
+      : vhdl_decl(name, base) {}
+   void emit(std::ofstream &of, int level) const;
+};
+
+
 /*
  * A variable declaration inside a process (although this isn't
  * enforced here).