[Openmcl-cvs-notifications] r9311 - /trunk/source/compiler/PPC/ppc-asm.lisp

[gb at clozure.com]

Author: gb
Date: Sun Apr 27 22:31:22 2008
New Revision: 9311

Log:
$mbe-aux operand type is probably unused, but shouldn't claim a width
of 32 bits in any case.

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

Modified: trunk/source/compiler/PPC/ppc-asm.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-asm.lisp (original)
+++ trunk/source/compiler/PPC/ppc-asm.lisp Sun Apr 27 22:31:22 2008
@@ -240,7 +240,7 @@
    (ppc-op $mb 5 6)
    (ppc-op $me 5 1 )
    (ppc-op $mbe 5 6 nil nil ccl::operand-optional $ppc-operand-next)
-   (ppc-op $mbe-aux 32 0 insert-mbe extract-mbe)
+   (ppc-op $mbe-aux 10 1 insert-mbe extract-mbe)
    (ppc-op $mb6 6 5 insert-mb6 extract-mb6)
    (ppc-op $nb 6 11 insert-nb extract-nb)
    (ppc-op $nsi 16 0 insert-nsi extract-nsi $ppc-operand-negative $ppc-ope=
rand-signed)