diff --git a/elab_sig.cc b/elab_sig.cc
index 87862e8f7..de2ff4345 100644
--- a/elab_sig.cc
+++ b/elab_sig.cc
@@ -73,6 +73,8 @@ static bool get_const_argument(NetExpr*exp, verinum&res)
       return true;
 }
 
+#if 0
+/* This function is not currently used. */
 static bool get_const_argument(NetExpr*exp, long&res)
 {
       verinum tmp;
@@ -81,6 +83,7 @@ static bool get_const_argument(NetExpr*exp, long&res)
       res = tmp.as_long();
       return true;
 }
+#endif
 
 void Statement::elaborate_sig(Design*, NetScope*) const
 {
@@ -329,7 +332,7 @@ void netclass_t::elaborate_sig(Design*des, PClass*pclass)
 
 	    list<netrange_t> nil_list;
 	    ivl_type_t use_type = cur->second.type->elaborate_type(des, class_scope_);
-	    NetNet*sig = new NetNet(class_scope_, cur->first, NetNet::REG,
+	    /* NetNet*sig = */ new NetNet(class_scope_, cur->first, NetNet::REG,
 				    nil_list, use_type);
       }
 
@@ -557,7 +560,7 @@ void PFunction::elaborate_sig(Design*des, NetScope*scope) const
       elaborate_sig_wires_(des, scope);
 
       NetNet*ret_sig;
-      if (gn_system_verilog() && fname=="new" || fname=="new@") {
+      if (gn_system_verilog() && (fname=="new" || fname=="new@")) {
 	      // Special case: this is a constructor, so the return
 	      // signal is also the first argument. For example, the
 	      // source code for the definition may be:
diff --git a/tgt-vhdl/vhdl_type.cc b/tgt-vhdl/vhdl_type.cc
index 103311c19..cd45d5164 100644
--- a/tgt-vhdl/vhdl_type.cc
+++ b/tgt-vhdl/vhdl_type.cc
@@ -154,8 +154,8 @@ void vhdl_type::emit(std::ostream &of, int) const
 }
 
 vhdl_type::vhdl_type(const vhdl_type &other)
-   : name_(other.name_), msb_(other.msb_), lsb_(other.lsb_),
-     array_name_(other.array_name_)
+   : vhdl_element(other), name_(other.name_),
+     msb_(other.msb_), lsb_(other.lsb_), array_name_(other.array_name_)
 {
    if (other.base_ != NULL)
       base_ = new vhdl_type(*other.base_);
diff --git a/vhdlpp/expression_elaborate.cc b/vhdlpp/expression_elaborate.cc
index 2ca201d35..df0935d5d 100644
--- a/vhdlpp/expression_elaborate.cc
+++ b/vhdlpp/expression_elaborate.cc
@@ -340,7 +340,7 @@ const VType* ExpBinary::probe_type(Entity*ent, Architecture*arc) const
       return 0;
 }
 
-const VType*ExpBinary::resolve_operand_types_(const VType*t1, const VType*t2) const
+const VType*ExpBinary::resolve_operand_types_(const VType*, const VType*) const
 {
       return 0;
 }