X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fhppa%2Fmemory.lisp;h=a3e7dc1df491d3b1b2e6f67d4389422680c19e0c;hb=51bc001b7a98af096af782a672389e51004af068;hp=b77cd3f2ed6176d88983a8716bec3c827bcdf1a4;hpb=52cfe54802db8736f1f4e2b67764c43bba9b78b3;p=sbcl.git

diff --git a/src/compiler/hppa/memory.lisp b/src/compiler/hppa/memory.lisp
index b77cd3f..a3e7dc1 100644
--- a/src/compiler/hppa/memory.lisp
+++ b/src/compiler/hppa/memory.lisp
@@ -16,7 +16,7 @@
 ;;;
 (define-vop (cell-set)
   (:args (object :scs (descriptor-reg))
-         (value :scs (descriptor-reg any-reg)))
+         (value :scs (descriptor-reg any-reg null zero)))
   (:variant-vars offset lowtag)
   (:policy :fast-safe)
   (:generator 1
@@ -36,9 +36,9 @@
 ;;;
 (define-vop (slot-set)
   (:args (object :scs (descriptor-reg))
-         (value :scs (descriptor-reg any-reg)))
+         (value :scs (descriptor-reg any-reg null zero)))
   (:variant-vars base lowtag)
   (:info offset)
-  (:generator 1
+  (:generator 4
     (storew value object (+ base offset) lowtag)))