Skip to content
Snippets Groups Projects
Commit c614e7ee authored by wlott's avatar wlott
Browse files

Oops, the %ALIEN-FUNCALL derive-type optimizer was returning the

alien-function type itself, instead of extracting the result type and
returning that.
parent 7eed2b59
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/aliencomp.lisp,v 1.18 1992/02/21 23:38:42 wlott Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/aliencomp.lisp,v 1.19 1992/02/22 01:59:57 wlott Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -650,7 +650,9 @@ ...@@ -650,7 +650,9 @@
(let ((type (continuation-value type))) (let ((type (continuation-value type)))
(unless (alien-function-type-p type) (unless (alien-function-type-p type)
(error "Something is broken.")) (error "Something is broken."))
(specifier-type (compute-alien-rep-type type)))) (specifier-type
(compute-alien-rep-type
(alien-function-type-result-type type)))))
(defoptimizer (%alien-funcall ltn-annotate) (defoptimizer (%alien-funcall ltn-annotate)
((function type &rest args) node policy) ((function type &rest args) node policy)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment