Skip to content
Snippets Groups Projects
Commit f1f1bc47 authored by dtc's avatar dtc
Browse files

Add alien single-float return-tn support; from Raymond Toy.

parent 8c0f56ae
No related branches found
No related tags found
No related merge requests found
......@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/c-call.lisp,v 1.12 1998/03/21 08:05:21 dtc Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/c-call.lisp,v 1.13 1998/06/18 07:02:34 dtc Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -62,6 +62,10 @@
(declare (ignore type))
(my-make-wired-tn 'double-float 'double-reg 0))
(def-alien-type-method (single-float :result-tn) (type)
(declare (ignore type))
(my-make-wired-tn 'single-float 'single-reg 0))
#+long-float
(def-alien-type-method (long-float :result-tn) (type)
(declare (ignore type))
......
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