Changeset 11475


Ignore:
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:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/PPC/PPC32/ppc32-vinsns.lisp

    r11317 r11475  
    20792079
    20802080
    2081 (define-ppc32-vinsn discard-temp-frame (()
    2082                                         ())
     2081(define-ppc32-vinsn (discard-temp-frame :tsp :pop :discard) (()
     2082                                                             ())
    20832083  (lwz ppc::tsp 0 ppc::tsp))
    20842084
     
    21822182;;; to do the memory reference than it would be to keep track of the size
    21832183;;; of each frame.
    2184 (define-ppc32-vinsn discard-c-frame (()
    2185                                      ())
     2184(define-ppc32-vinsn (discard-c-frame :csp :pop :discard) (()
     2185                                                          ())
    21862186  (lwz ppc::sp 0 ppc::sp))
    21872187
     
    23082308  (clrrwi ppc::allocptr ppc::allocptr ppc32::ntagbits))
    23092309
    2310 (define-ppc32-vinsn vstack-discard (()
    2311                                     ((nwords :u32const)))
     2310(define-ppc32-vinsn (vstack-discard :vsp :pop :discard) (()
     2311                                                         ((nwords :u32const)))
    23122312  ((:not (:pred = nwords 0))
    23132313   (la ppc::vsp (:apply ash nwords ppc32::word-shift) ppc::vsp)))
  • trunk/source/compiler/PPC/PPC64/ppc64-vinsns.lisp

    r11317 r11475  
    21362136
    21372137
    2138 (define-ppc64-vinsn discard-temp-frame (()
    2139                                         ())
     2138(define-ppc64-vinsn (discard-temp-frame :tsp :pop :discard) (()
     2139                                                             ())
    21402140  (ld ppc::tsp 0 ppc::tsp))
    21412141
     
    21962196;;; to do the memory reference than it would be to keep track of the size
    21972197;;; of each frame.
    2198 (define-ppc64-vinsn discard-c-frame (()
     2198(define-ppc64-vinsn (discard-c-frame :csp :pop :discard) (()
    21992199                                     ())
    22002200  (ld ppc::sp 0 ppc::sp))
     
    23042304  (rldicr ppc::allocptr ppc::allocptr 0 (- 63 ppc64::ntagbits)))
    23052305
    2306 (define-ppc64-vinsn vstack-discard (()
     2306(define-ppc64-vinsn (vstack-discard :vsp :pop :discard) (()
    23072307                                    ((nwords :u32const)))
    23082308  ((:not (:pred = nwords 0))
Note: See TracChangeset for help on using the changeset viewer.