Ignore:
Timestamp:
Apr 27, 2011, 10:53:19 PM (9 years ago)
Author:
gb
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/nx1.lisp

    r14507 r14740  
    15381538                (memq result-spec *arg-spec-keywords*))
    15391539      (error "Unknown result spec: ~s" result-spec))
    1540     (make-acode operator
    1541                 (nx1-form address-expression)
    1542                 (nreverse specs)
    1543                 (mapcar #'nx1-form (nreverse vals))
    1544                 result-spec
    1545                 nil)))
     1540    (make-acode (%nx1-operator typed-form)
     1541                (case result-spec
     1542                  (:double-float 'double-float)
     1543                  (:single-float 'single-float)
     1544                  (:address 'macptr)
     1545                  (:signed-doubleword '(signed-byte 64))
     1546                  (:unsigned-doubleword '(unsigned-byte 64))
     1547                  (:signed-fullword '(signed-byte 32))
     1548                  (:unsigned-fullword '(unsigned-byte 32))
     1549                  (:signed-halfword '(signed-byte 16))
     1550                  (:unsigned-halfword '(unsigned-byte 16))
     1551                  (:signed-byte '(signed-byte 8))
     1552                  (:unsigned-byte '(unsigned-byte 8))
     1553                  (t t))
     1554                (make-acode operator
     1555                            (nx1-form address-expression)
     1556                            (nreverse specs)
     1557                            (mapcar #'nx1-form (nreverse vals))
     1558                            result-spec
     1559                            nil)
     1560                nil)))
    15461561 
    15471562(defnx1 nx1-block block (blockname &body forms)
Note: See TracChangeset for help on using the changeset viewer.