Pass through DX-P to INIT-SLOT vop

This allows using smaller-than-lispobj writes for pre-zeroed memory,
if the backend so chooses.

src/compiler/alpha/cell.lisp

@@ -36,7 +36,9 @@
  #!-gengc
  (storew value object offset lowtag)))
 
-(define-vop (init-slot set-slot))
+(define-vop (init-slot set-slot)
+ (:info name dx-p offset lowtag)
+ (:ignore name dx-p))
 
 ;;;; symbol hacking VOPs
 

src/compiler/arm/cell.lisp

@@ -31,7 +31,9 @@
  (:generator 1
  (storew value object offset lowtag)))
 
-(define-vop (init-slot set-slot))
+(define-vop (init-slot set-slot)
+ (:info name dx-p offset lowtag)
+ (:ignore name dx-p))
 
 ;;;; Symbol hacking VOPs:
 

src/compiler/arm64/cell.lisp

@@ -31,7 +31,9 @@
  (:generator 1
  (storew value object offset lowtag)))
 
-(define-vop (init-slot set-slot))
+(define-vop (init-slot set-slot)
+ (:info name dx-p offset lowtag)
+ (:ignore name dx-p))
 
 (define-vop (compare-and-swap-slot)
  (:args (object :scs (descriptor-reg))

src/compiler/generic/vm-ir2tran.lisp

@@ -99,7 +99,7 @@
  `(ecase raw-type
  ((t)
  (vop init-slot node block object arg-tn
- name (+ sb!vm:instance-slots-offset slot) lowtag))
+ name dx-p (+ sb!vm:instance-slots-offset slot) lowtag))
  ,@(map 'list
  (lambda (rsd)
  `(,(sb!kernel::raw-slot-data-raw-type rsd)
@@ -111,7 +111,7 @@
  (:dd
  (vop init-slot node block object
  (emit-constant (sb!kernel::dd-layout-or-lose slot))
- name
+ name dx-p
  ;; Layout has no index if compact headers.
  (or #!+compact-instance-header :layout sb!vm:instance-slots-offset)
  lowtag))
@@ -148,7 +148,7 @@
  (sc-number-or-lose 'sb!vm::any-reg))))
  (vop make-funcallable-instance-tramp node block tn)
  tn)))))
- name slot lowtag))))))))
+ name dx-p slot lowtag))))))))
  (unless (null args)
  (bug "Leftover args: ~S" args)))
 

src/compiler/hppa/cell.lisp

@@ -31,7 +31,9 @@
  (:generator 1
  (storew value object offset lowtag)))
 
-(define-vop (init-slot set-slot))
+(define-vop (init-slot set-slot)
+ (:info name dx-p offset lowtag)
+ (:ignore name dx-p))
 
 ;;;; Symbol hacking VOPs:
 

src/compiler/mips/cell.lisp

@@ -31,7 +31,9 @@
  (:generator 1
  (storew value object offset lowtag)))
 
-(define-vop (init-slot set-slot))
+(define-vop (init-slot set-slot)
+ (:info name dx-p offset lowtag)
+ (:ignore name dx-p))
 
 ;;;; Symbol hacking VOPs:
 

src/compiler/ppc/cell.lisp

@@ -31,7 +31,9 @@
  (:generator 1
  (storew value object offset lowtag)))
 
-(define-vop (init-slot set-slot))
+(define-vop (init-slot set-slot)
+ (:info name dx-p offset lowtag)
+ (:ignore name dx-p))
 
 #!+compare-and-swap-vops
 (define-vop (compare-and-swap-slot)

src/compiler/sparc/cell.lisp

@@ -30,7 +30,9 @@
  (:generator 1
  (storew value object offset lowtag)))
 
-(define-vop (init-slot set-slot))
+(define-vop (init-slot set-slot)
+ (:info name dx-p offset lowtag)
+ (:ignore name dx-p))
 
 ;;;; Symbol hacking VOPs:
 

src/compiler/x86-64/cell.lisp

@@ -45,8 +45,9 @@
 
 ;; INIT-SLOT has to know about the :COMPACT-INSTANCE-HEADER feature.
 (define-vop (init-slot set-slot)
+ (:info name dx-p offset lowtag)
  (:generator 1
- (progn name)
+ (progn name dx-p)
  (if (or #!+compact-instance-header
  (and (eq name '%make-structure-instance) (eql offset :layout)))
  ;; The layout is in the upper half of the header word.

src/compiler/x86/cell.lisp

@@ -30,7 +30,9 @@
  (:generator 1
  (storew (encode-value-if-immediate value) object offset lowtag)))
 
-(define-vop (init-slot set-slot))
+(define-vop (init-slot set-slot)
+ (:info name dx-p offset lowtag)
+ (:ignore name dx-p))
 
 (define-vop (compare-and-swap-slot)
  (:args (object :scs (descriptor-reg) :to :eval)