Index: /trunk/source/compiler/PPC/PPC32/ppc32-vinsns.lisp
===================================================================
--- /trunk/source/compiler/PPC/PPC32/ppc32-vinsns.lisp	(revision 11474)
+++ /trunk/source/compiler/PPC/PPC32/ppc32-vinsns.lisp	(revision 11475)
@@ -2079,6 +2079,6 @@
 
 
-(define-ppc32-vinsn discard-temp-frame (()
-                                        ())
+(define-ppc32-vinsn (discard-temp-frame :tsp :pop :discard) (()
+                                                             ())
   (lwz ppc::tsp 0 ppc::tsp))
 
@@ -2182,6 +2182,6 @@
 ;;; to do the memory reference than it would be to keep track of the size
 ;;; of each frame.
-(define-ppc32-vinsn discard-c-frame (()
-                                     ())
+(define-ppc32-vinsn (discard-c-frame :csp :pop :discard) (()
+                                                          ())
   (lwz ppc::sp 0 ppc::sp))
 
@@ -2308,6 +2308,6 @@
   (clrrwi ppc::allocptr ppc::allocptr ppc32::ntagbits))
 
-(define-ppc32-vinsn vstack-discard (()
-                                    ((nwords :u32const)))
+(define-ppc32-vinsn (vstack-discard :vsp :pop :discard) (()
+                                                         ((nwords :u32const)))
   ((:not (:pred = nwords 0))
    (la ppc::vsp (:apply ash nwords ppc32::word-shift) ppc::vsp)))
Index: /trunk/source/compiler/PPC/PPC64/ppc64-vinsns.lisp
===================================================================
--- /trunk/source/compiler/PPC/PPC64/ppc64-vinsns.lisp	(revision 11474)
+++ /trunk/source/compiler/PPC/PPC64/ppc64-vinsns.lisp	(revision 11475)
@@ -2136,6 +2136,6 @@
 
 
-(define-ppc64-vinsn discard-temp-frame (()
-					())
+(define-ppc64-vinsn (discard-temp-frame :tsp :pop :discard) (()
+                                                             ())
   (ld ppc::tsp 0 ppc::tsp))
 
@@ -2196,5 +2196,5 @@
 ;;; to do the memory reference than it would be to keep track of the size
 ;;; of each frame.
-(define-ppc64-vinsn discard-c-frame (()
+(define-ppc64-vinsn (discard-c-frame :csp :pop :discard) (()
 				     ())
   (ld ppc::sp 0 ppc::sp))
@@ -2304,5 +2304,5 @@
   (rldicr ppc::allocptr ppc::allocptr 0 (- 63 ppc64::ntagbits)))
 
-(define-ppc64-vinsn vstack-discard (()
+(define-ppc64-vinsn (vstack-discard :vsp :pop :discard) (()
 				    ((nwords :u32const)))
   ((:not (:pred = nwords 0))