Fix undefined function errors on PPC and MIPS.

[sbcl.git] / src / compiler / hppa / memory.lisp

diff --git a/src/compiler/hppa/memory.lisp b/src/compiler/hppa/memory.lisp
index 8d7abd1..a3e7dc1 100644 (file)
--- 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)))