Delete obsolete {GET,SET}-VECTOR-SUBTYPE and -WORD-LENGTH vops.

src/compiler/alpha/array.lisp

@@ -533,9 +533,3 @@
   (unsigned-reg) unsigned-num %vector-raw-bits)
 (define-full-setter set-vector-raw-bits * vector-data-offset other-pointer-lowtag
   (unsigned-reg) unsigned-num %set-vector-raw-bits)
-
-
-;;;; misc. array VOPs
-
-(define-vop (get-vector-subtype get-header-data))
-(define-vop (set-vector-subtype set-header-data))

src/compiler/hppa/array.lisp

@@ -381,7 +381,3 @@
   (unsigned-reg) unsigned-num %vector-raw-bits)
 (define-full-setter set-vector-raw-bits * vector-data-offset other-pointer-lowtag
   (unsigned-reg) unsigned-num %set-vector-raw-bits)
-
-;;;; Misc. Array VOPs.
-(define-vop (get-vector-subtype get-header-data))
-(define-vop (set-vector-subtype set-header-data))

src/compiler/mips/array.lisp

@@ -517,7 +517,3 @@
   (unsigned-reg) unsigned-num %vector-raw-bits)
 (define-full-setter set-vector-raw-bits * vector-data-offset other-pointer-lowtag
   (unsigned-reg) unsigned-num %set-vector-raw-bits)
-
-;;;; Misc. Array VOPs.
-(define-vop (get-vector-subtype get-header-data))
-(define-vop (set-vector-subtype set-header-data))

src/compiler/ppc/array.lisp

@@ -502,21 +502,6 @@
   (:results (result :scs (unsigned-reg)))
   (:result-types unsigned-num)
   (:variant vector-data-offset other-pointer-lowtag))
-
-;;;; Misc. Array VOPs.
-
-
-#+nil
-(define-vop (vector-word-length)
-  (:args (vec :scs (descriptor-reg)))
-  (:results (res :scs (any-reg descriptor-reg)))
-  (:generator 6
-    (loadw res vec clc::g-vector-header-words)
-    (inst niuo res res clc::g-vector-words-mask-16)))
-
-(define-vop (get-vector-subtype get-header-data))
-(define-vop (set-vector-subtype set-header-data))
-
 
 ;;;
 

src/compiler/sparc/array.lisp

@@ -399,21 +399,6 @@
     (unless (location= result value)
       (move-long-reg result value))))
 
-
-;;;; Misc. Array VOPs.
-
-
-#+nil
-(define-vop (vector-word-length)
-  (:args (vec :scs (descriptor-reg)))
-  (:results (res :scs (any-reg descriptor-reg)))
-  (:generator 6
-    (loadw res vec clc::g-vector-header-words)
-    (inst niuo res res clc::g-vector-words-mask-16)))
-
-(define-vop (get-vector-subtype get-header-data))
-(define-vop (set-vector-subtype set-header-data))
-
 
 ;;; XXX FIXME: Don't we have these above, in DEF-DATA-VECTOR-FROBS?
 (define-vop (data-vector-ref/simple-array-signed-byte-8 signed-byte-index-ref)

src/compiler/x86-64/array.lisp

@@ -750,11 +750,6 @@
 (define-full-setter set-vector-raw-bits * vector-data-offset other-pointer-lowtag
   (unsigned-reg) unsigned-num %set-vector-raw-bits)
 
-;;;; miscellaneous array VOPs
-
-(define-vop (get-vector-subtype get-header-data))
-(define-vop (set-vector-subtype set-header-data))
-
 ;;;; ATOMIC-INCF for arrays
 
 (define-vop (array-atomic-incf/word)

src/compiler/x86/array.lisp

@@ -691,11 +691,6 @@
 (define-full-setter set-vector-raw-bits * vector-data-offset other-pointer-lowtag
  (unsigned-reg) unsigned-num %set-vector-raw-bits)
 
-
-;;;; miscellaneous array VOPs
-
-(define-vop (get-vector-subtype get-header-data))
-(define-vop (set-vector-subtype set-header-data))
 
 ;;;; ATOMIC-INCF for arrays