Changeset 14740

Timestamp:

Apr 27, 2011, 3:53:19 PM (14 years ago)

Author:

Gary Byers

Message:

Wrap a THE around the acode generated for FF-CALL.

File:

• trunk/source/compiler/nx1.lisp (modified) (1 diff)

trunk/source/compiler/nx1.lisp

@@ -1538 +1538 @@
                 (memq result-spec *arg-spec-keywords*))
       (error "Unknown result spec: ~s" result-spec))
-    (make-acode operator
-                (nx1-form address-expression)
-                (nreverse specs)
-                (mapcar #'nx1-form (nreverse vals))
-                result-spec
-                nil)))
+    (make-acode (%nx1-operator typed-form)
+                (case result-spec
+                  (:double-float 'double-float)
+                  (:single-float 'single-float)
+                  (:address 'macptr)
+                  (:signed-doubleword '(signed-byte 64))
+                  (:unsigned-doubleword '(unsigned-byte 64))
+                  (:signed-fullword '(signed-byte 32))
+                  (:unsigned-fullword '(unsigned-byte 32))
+                  (:signed-halfword '(signed-byte 16))
+                  (:unsigned-halfword '(unsigned-byte 16))
+                  (:signed-byte '(signed-byte 8))
+                  (:unsigned-byte '(unsigned-byte 8))
+                  (t t))
+                (make-acode operator
+                            (nx1-form address-expression)
+                            (nreverse specs)
+                            (mapcar #'nx1-form (nreverse vals))
+                            result-spec
+                            nil)
+                nil)))
   
 (defnx1 nx1-block block (blockname &body forms)