Changeset 8588


Ignore:
Timestamp:
Feb 25, 2008, 11:53:19 AM (12 years ago)
Author:
gb
Message:

ppc2-%new-ptr; same nonsense.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/PPC/ppc2.lisp

    r8402 r8588  
    90719071;------
    90729072
    9073 #+not-yet
    9074 (progn
    9075 
    9076 
    9077 ;Make a gcable macptr.
    9078 (defppc2 ppc2-%new-ptr %new-ptr (b vreg xfer size clear-p )
    9079   (declare (ignore b vreg xfer size clear-p))
    9080   (error "%New-ptr is a waste of precious silicon."))
    9081 
    9082 
    9083 
    9084 )
     9073
     9074;;;Make a gcable macptr.
     9075(defppc2 ppc2-%new-ptr %new-ptr (seg vreg xfer size clear-p )
     9076  (ppc2-call-fn seg
     9077                vreg
     9078                xfer
     9079                (make-acode (%nx1-operator immediate)
     9080                            '%new-gcable-ptr)
     9081                (list nil (list clear-p size))
     9082                nil))
     9083
Note: See TracChangeset for help on using the changeset viewer.