Changeset 11475

Timestamp:

Dec 8, 2008, 11:58:17 AM (11 years ago)

Author:

gb

Message:

Add :DISCARD, other vinsn attributes to things which discard objects/frames
from stacks.

Location:

trunk/source/compiler/PPC

Files:

• PPC32/ppc32-vinsns.lisp (modified) (3 diffs)
• PPC64/ppc64-vinsns.lisp (modified) (3 diffs)

trunk/source/compiler/PPC/PPC32/ppc32-vinsns.lisp

@@ -2079 +2079 @@
 
 
-(define-ppc32-vinsn discard-temp-frame (()
-                                        ())
+(define-ppc32-vinsn (discard-temp-frame :tsp :pop :discard) (()
+                                                             ())
   (lwz ppc::tsp 0 ppc::tsp))
 
@@ -2182 +2182 @@
 ;;; 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 +2308 @@
   (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)))

trunk/source/compiler/PPC/PPC64/ppc64-vinsns.lisp

@@ -2136 +2136 @@
 
 
-(define-ppc64-vinsn discard-temp-frame (()
-                                        ())
+(define-ppc64-vinsn (discard-temp-frame :tsp :pop :discard) (()
+                                                             ())
   (ld ppc::tsp 0 ppc::tsp))
 
@@ -2196 +2196 @@
 ;;; 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 +2304 @@
   (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))