diff --git a/vvp/array.h b/vvp/array.h
index 7b62f7cc0..ebf75be7d 100644
--- a/vvp/array.h
+++ b/vvp/array.h
@@ -35,8 +35,4 @@ extern vvp_array_t array_find(const char*label);
 extern value_callback* vpip_array_word_change(p_cb_data data);
 extern value_callback* vpip_array_change(p_cb_data data);
 
-/* Compile hooks */
-extern void compile_varw_real(char*label, vvp_array_t array,
-			      unsigned long array_addr,
-			      int msb, int lsb);
 #endif /* IVL_array_H */
diff --git a/vvp/codes.h b/vvp/codes.h
index 2de76495f..94a4f26b5 100644
--- a/vvp/codes.h
+++ b/vvp/codes.h
@@ -41,8 +41,6 @@ extern bool of_ANDR(vthread_t thr, vvp_code_t code);
 extern bool of_ASSIGN_AR(vthread_t thr, vvp_code_t code);
 extern bool of_ASSIGN_ARD(vthread_t thr, vvp_code_t code);
 extern bool of_ASSIGN_ARE(vthread_t thr, vvp_code_t code);
-extern bool of_ASSIGN_D(vthread_t thr, vvp_code_t code);
-extern bool of_ASSIGN_MV(vthread_t thr, vvp_code_t code);
 extern bool of_ASSIGN_VEC4(vthread_t thr, vvp_code_t code);
 extern bool of_ASSIGN_VEC4D(vthread_t thr, vvp_code_t code);
 extern bool of_ASSIGN_VEC4E(vthread_t thr, vvp_code_t code);
@@ -81,8 +79,6 @@ extern bool of_CMPIU(vthread_t thr, vvp_code_t code);
 extern bool of_CMPWE(vthread_t thr, vvp_code_t code);
 extern bool of_CMPWNE(vthread_t thr, vvp_code_t code);
 extern bool of_CMPWR(vthread_t thr, vvp_code_t code);
-extern bool of_CMPWS(vthread_t thr, vvp_code_t code);
-extern bool of_CMPWU(vthread_t thr, vvp_code_t code);
 extern bool of_CMPX(vthread_t thr, vvp_code_t code);
 extern bool of_CMPZ(vthread_t thr, vvp_code_t code);
 extern bool of_CONCAT_STR(vthread_t thr, vvp_code_t code);
@@ -165,7 +161,6 @@ extern bool of_MIN_WR(vthread_t thr, vvp_code_t code);
 extern bool of_MOD(vthread_t thr, vvp_code_t code);
 extern bool of_MOD_S(vthread_t thr, vvp_code_t code);
 extern bool of_MOD_WR(vthread_t thr, vvp_code_t code);
-extern bool of_MOV_WU(vthread_t thr, vvp_code_t code);
 extern bool of_MUL(vthread_t thr, vvp_code_t code);
 extern bool of_MULI(vthread_t thr, vvp_code_t code);
 extern bool of_MUL_WR(vthread_t thr, vvp_code_t code);
@@ -224,7 +219,6 @@ extern bool of_SCOPY(vthread_t thr, vvp_code_t code);
 extern bool of_SET_DAR_OBJ_REAL(vthread_t thr, vvp_code_t code);
 extern bool of_SET_DAR_OBJ_STR(vthread_t thr, vvp_code_t code);
 extern bool of_SET_DAR_OBJ_VEC4(vthread_t thr, vvp_code_t code);
-extern bool of_SET_X0_X(vthread_t thr, vvp_code_t code);
 extern bool of_SHIFTL(vthread_t thr, vvp_code_t code);
 extern bool of_SHIFTR(vthread_t thr, vvp_code_t code);
 extern bool of_SHIFTR_S(vthread_t thr, vvp_code_t code);
diff --git a/vvp/delay.h b/vvp/delay.h
index efecf613b..c495bb1e2 100644
--- a/vvp/delay.h
+++ b/vvp/delay.h
@@ -97,7 +97,6 @@ class vvp_fun_delay  : public vvp_net_fun_t, private vvp_gen_event_s {
       void recv_vec8(vvp_net_ptr_t port, const vvp_vector8_t&bit);
       void recv_real(vvp_net_ptr_t port, double bit,
                      vvp_context_t);
-	//void recv_long(vvp_net_ptr_t port, long bit);
 
       void recv_vec4_pv(vvp_net_ptr_t ptr, const vvp_vector4_t&bit,
 			unsigned base, unsigned vwid, vvp_context_t ctx);
diff --git a/vvp/vvp_net.cc b/vvp/vvp_net.cc
index e8d44a6ac..53f73d888 100644
--- a/vvp/vvp_net.cc
+++ b/vvp/vvp_net.cc
@@ -306,11 +306,6 @@ vvp_net_fil_t::prop_t vvp_net_fil_t::filter_real(double&)
       return PROP;
 }
 
-vvp_net_fil_t::prop_t vvp_net_fil_t::filter_long(long&)
-{
-      return PROP;
-}
-
 vvp_net_fil_t::prop_t vvp_net_fil_t::filter_string(const string&)
 {
       return PROP;
@@ -584,31 +579,6 @@ void vvp_send_real(vvp_net_ptr_t ptr, double val, vvp_context_t context)
       }
 }
 
-void vvp_send_long(vvp_net_ptr_t ptr, long val)
-{
-      while (vvp_net_t*cur = ptr.ptr()) {
-	    vvp_net_ptr_t next_val = cur->port[ptr.port()];
-
-	    if (cur->fun)
-		  cur->fun->recv_long(ptr, val);
-
-	    ptr = next_val;
-      }
-}
-
-void vvp_send_long_pv(vvp_net_ptr_t ptr, long val,
-                      unsigned base, unsigned wid)
-{
-      while (vvp_net_t*cur = ptr.ptr()) {
-	    vvp_net_ptr_t next_val = cur->port[ptr.port()];
-
-	    if (cur->fun)
-		  cur->fun->recv_long_pv(ptr, val, base, wid);
-
-	    ptr = next_val;
-      }
-}
-
 const vvp_vector4_t vvp_vector4_t::nil;
 
 void vvp_vector4_t::copy_bits(const vvp_vector4_t&that)
@@ -3316,20 +3286,6 @@ void vvp_net_fun_t::recv_real(vvp_net_ptr_t, double bit, vvp_context_t)
       assert(0);
 }
 
-void vvp_net_fun_t::recv_long(vvp_net_ptr_t, long)
-{
-      fprintf(stderr, "internal error: %s: recv_long not implemented\n",
-	      typeid(*this).name());
-      assert(0);
-}
-
-void vvp_net_fun_t::recv_long_pv(vvp_net_ptr_t, long, unsigned, unsigned)
-{
-      fprintf(stderr, "internal error: %s: recv_long_pv not implemented\n",
-	      typeid(*this).name());
-      assert(0);
-}
-
 void vvp_net_fun_t::recv_string(vvp_net_ptr_t, const std::string&bit, vvp_context_t)
 {
       fprintf(stderr, "internal error: %s: recv_string(%s) not implemented\n",
diff --git a/vvp/vvp_net.h b/vvp/vvp_net.h
index 01ff2f7d4..977b0e963 100644
--- a/vvp/vvp_net.h
+++ b/vvp/vvp_net.h
@@ -1134,7 +1134,6 @@ class vvp_net_t {
       void send_vec4(const vvp_vector4_t&val, vvp_context_t context);
       void send_vec8(const vvp_vector8_t&val);
       void send_real(double val, vvp_context_t context);
-      void send_long(long val);
       void send_string(const std::string&val, vvp_context_t context);
       void send_object(vvp_object_t val, vvp_context_t context);
 
@@ -1214,7 +1213,6 @@ class vvp_net_fun_t {
       virtual void recv_vec8(vvp_net_ptr_t port, const vvp_vector8_t&bit);
       virtual void recv_real(vvp_net_ptr_t port, double bit,
                              vvp_context_t context);
-      virtual void recv_long(vvp_net_ptr_t port, long bit);
       virtual void recv_string(vvp_net_ptr_t port, const std::string&bit,
 			       vvp_context_t context);
       virtual void recv_object(vvp_net_ptr_t port, vvp_object_t bit,
@@ -1225,8 +1223,6 @@ class vvp_net_fun_t {
 				unsigned base, unsigned vwid, vvp_context_t context);
       virtual void recv_vec8_pv(vvp_net_ptr_t p, const vvp_vector8_t&bit,
 				unsigned base, unsigned vwid);
-      virtual void recv_long_pv(vvp_net_ptr_t port, long bit,
-                                unsigned base, unsigned wid);
 
 	// This method is called when the net is forced or
 	// released. This is very rarely needed; island ports use it
@@ -1290,7 +1286,6 @@ class vvp_net_fil_t  : public vvp_vpi_callback {
       virtual prop_t filter_vec8(const vvp_vector8_t&val, vvp_vector8_t&rep,
 				 unsigned base, unsigned vwid);
       virtual prop_t filter_real(double&val);
-      virtual prop_t filter_long(long&val);
       virtual prop_t filter_object(vvp_object_t&val);
       virtual prop_t filter_string(const std::string&val);
 
@@ -1476,7 +1471,6 @@ class vvp_fun_drive  : public vvp_net_fun_t {
 
       void recv_vec4(vvp_net_ptr_t port, const vvp_vector4_t&bit,
                      vvp_context_t context);
-	//void recv_long(vvp_net_ptr_t port, long bit);
 
       void recv_vec4_pv(vvp_net_ptr_t port, const vvp_vector4_t&bit,
 			unsigned base, unsigned vwid, vvp_context_t);
@@ -1607,9 +1601,6 @@ inline void vvp_send_vec4(vvp_net_ptr_t ptr, const vvp_vector4_t&val, vvp_contex
 extern void vvp_send_vec8(vvp_net_ptr_t ptr, const vvp_vector8_t&val);
 extern void vvp_send_real(vvp_net_ptr_t ptr, double val,
                           vvp_context_t context);
-extern void vvp_send_long(vvp_net_ptr_t ptr, long val);
-extern void vvp_send_long_pv(vvp_net_ptr_t ptr, long val,
-                             unsigned base, unsigned width);
 
 inline void vvp_send_string(vvp_net_ptr_t ptr, const std::string&val, vvp_context_t context)
 {
diff --git a/vvp/vvp_net_sig.h b/vvp/vvp_net_sig.h
index 457455f3e..0428d9233 100644
--- a/vvp/vvp_net_sig.h
+++ b/vvp/vvp_net_sig.h
@@ -199,8 +199,6 @@ class vvp_fun_signal_real : public vvp_fun_signal_base {
 
 	// Get information about the vector value.
       virtual double real_unfiltered_value() const = 0;
-
-      unsigned size() const { return 1; }
 };
 
 /*
@@ -264,8 +262,6 @@ class vvp_fun_signal_string : public vvp_fun_signal_base {
     public:
       explicit vvp_fun_signal_string() {};
 
-      unsigned size() const { return 1; }
-
       virtual const std::string& get_string() const =0;
 
     protected:
diff --git a/vvp/words.cc b/vvp/words.cc
index 4257065dc..80977b029 100644
--- a/vvp/words.cc
+++ b/vvp/words.cc
@@ -72,14 +72,6 @@ void compile_var_real(char*label, char*name)
       __compile_var_real(label, name, 0, 0);
 }
 
-void compile_varw_real(char*label, vvp_array_t array,
-		       unsigned long addr,
-		       int msb, int lsb)
-{
-      assert(msb == 0 && lsb == 0);
-      __compile_var_real(label, 0, array, addr);
-}
-
 void compile_var_string(char*label, char*name)
 {
       vvp_net_t*net = new vvp_net_t;