Changeset 5626

Timestamp:

Dec 16, 2006, 4:28:01 AM (18 years ago)

Author:

Gary Byers

Message:

Recognize that fsqrt/fsqrts instructions have a minor opcode in frb
and only have one source operand.

File:

• trunk/ccl/level-0/PPC/ppc-float.lisp (modified) (2 diffs)

trunk/ccl/level-0/PPC/ppc-float.lisp

@@ -485 +485 @@
 (defun %fp-error-from-status (status-bits control-bits operation &rest operands)
   (declare (type (unsigned-byte 16) status-bits))
+  (case operation
+    (sqrt (setq operands (cdr operands))))
   (let* ((condition-class (fp-condition-from-fpscr status-bits control-bits)))
     (if condition-class
@@ -497 +499 @@
     (20 '-)
     (21 '+)
+    (22 'sqrt)
     (t 'unknown)))