Changeset 5880

Timestamp:

Feb 10, 2007, 9:26:47 PM (18 years ago)

Author:

Gary Byers

Message:

Pretty much commited to the new FF-CALL expansion ...

File:

• trunk/ccl/lib/foreign-types.lisp (modified) (1 diff)

trunk/ccl/lib/foreign-types.lisp

@@ -1340 +1340 @@
 result-type-specifer is :VOID or NIL"
   (funcall (ftd-ff-call-expand-function *target-ftd*)
-           `(%ff-call ,entry) args)
-  #+nil          
-  (let* ((monitor (eq (car args) :monitor-exception-ports)))
-    (when monitor
-      (setq args (cdr args)))
-    (collect ((representation nil))
-      (when monitor
-        (representation :monitor-exception-ports))
-      (do* ((a args (cddr a)))
-           ((null (cdr a))
-            (if (null a) (representation :void)
-              (let* ((rettype (car a)))
-                (representation (foreign-type-to-representation-type
-                                 rettype)))))
-        (let* ((spec (car a))
-               (val (cadr a)))
-          (if (eq spec :registers)
-            (representation spec)
-            (representation (foreign-type-to-representation-type spec)))
-        (representation val)))
-    `(%ff-call ,entry ,@(representation)))))
+           `(%ff-call ,entry) args))