[Openmcl-cvs-notifications] r10981 - /trunk/source/compiler/PPC/ppc-lap.lisp

[gb at clozure.com]

Author: gb
Date: Sat Oct  4 22:55:22 2008
New Revision: 10981

Log:
Remove duplicate definition of PPC-VR, which is used by disassembler
but doesn't seem to be used here.

Modified:
    trunk/source/compiler/PPC/ppc-lap.lisp

Modified: trunk/source/compiler/PPC/ppc-lap.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/compiler/PPC/ppc-lap.lisp (original)
+++ trunk/source/compiler/PPC/ppc-lap.lisp Sat Oct  4 22:55:22 2008
@@ -520,9 +520,6 @@
   (or (ppc-vr-name-p x)
       (ppc-lap-evaluated-expression x)))
 =

-(defun ppc-vr (r)
-  (svref ppc::*vector-register-names* r))
-
 =

 (defparameter *ppc-cr-field-names* #(:crf0 :crf1 :crf2 :crf3 :crf4 :crf5 :=
crf6 :crf7))
 (defparameter *ppc-cr-names* #(:cr0 :cr1 :cr2 :cr3 :cr4 :cr5 :cr6 :cr7))