Changeset 5854

Timestamp:

Jan 31, 2007, 9:44:53 PM (18 years ago)

Author:

Gary Byers

Message:

Runtime version of 64-bit %ff-call accepts :registers.

File:

• trunk/ccl/level-0/PPC/ppc-def.lisp (modified) (5 diffs)

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

@@ -1006 +1006 @@
 
   ;;; This is just here so that we can jump to a subprim from lisp.
-    (defppclapfunction %do-ff-call ((monitor arg_y) (entry arg_z))
-      (cmpdi monitor nil)
-      (beqa .SPpoweropen-ffcall)
+    (defppclapfunction %do-ff-call ((monitor arg_x) (regbuf arg_y) (entry arg_z))
+      (cmpdi cr0 regbuf nil)
+      (cmpdi cr1 monitor nil)
+      (bnea cr0 .SPpoweropen-ffcall-return-registers)
+      (beqa cr1 .SPpoweropen-ffcall)
       (ba .SPpoweropen-ffcallx))
   
@@ -1015 +1017 @@
       (let* ((len (length specs-and-vals))
              (total-words 0)
-             (monitor (eq (car specs-and-vals) :monitor-exception-ports)))
+             (monitor (eq (car specs-and-vals) :monitor-exception-ports))
+             (registers nil))
         (declare (fixnum len total-words))
         (when monitor
@@ -1036 +1039 @@
                (declare (fixnum i))
                (case spec
+                 (:registers nil)
                  ((:address :unsigned-doubleword :signed-doubleword
                             :single-float :double-float
@@ -1060 +1064 @@
                          (declare (fixnum i))
                          (case spec
+                           (:registers (setq registers val))
                            (:address (setf (%get-ptr argptr offset) val)
                                      (incf offset 8))
@@ -1090 +1095 @@
                                 (incf offset 8))))))
                        (%load-fp-arg-regs n-fp-args fp-args)
-                       (%do-ff-call monitor entry)
+                       (%do-ff-call monitor registers entry)
                        (values (%%ff-result result-spec)))))))))))