Changeset 5711

Timestamp:

Jan 18, 2007, 2:50:29 AM (18 years ago)

Author:

Gary Byers

Message:

Support :registers <exp> in %ff-call; when supported, backend will
return all (potential) result registers in buffer at <exp>.

File:

• trunk/ccl/compiler/nx1.lisp (modified) (2 diffs)

trunk/ccl/compiler/nx1.lisp

@@ -1334 +1334 @@
 
 (defun nx1-ff-call-internal (address-expression arg-specs-and-result-spec operator )
-  (let* ((specs ())
+  (let* ((specs ())         
          (vals ())
+         (register-spec-seen nil)
          (darwin-target-p (or (eql operator (%nx1-operator poweropen-syscall))
                               (eql operator (%nx1-operator poweropen-ff-call))))
@@ -1355 +1356 @@
             (push arg-keyword specs)
             (push value vals))
-           (error "Unknown argument spec: ~s" arg-keyword))))
+          (if (eq arg-keyword :registers)
+            (if register-spec-seen
+              (error "duplicate :registers in ~s" arg-specs-and-result-spec)
+              (progn
+                (setq register-spec-seen t)
+                (push arg-keyword specs)
+                (push value vals)))
+            (error "Unknown argument spec: ~s" arg-keyword)))))
     (unless (or (eq result-spec :void)
                 (memq result-spec *arg-spec-keywords*))