From f1f1bc47e6efa79575dce40269a846db015aff95 Mon Sep 17 00:00:00 2001 From: dtc <dtc> Date: Thu, 18 Jun 1998 07:02:34 +0000 Subject: [PATCH] Add alien single-float return-tn support; from Raymond Toy. --- compiler/sparc/c-call.lisp | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/compiler/sparc/c-call.lisp b/compiler/sparc/c-call.lisp index 2ba303ffb..8b57f8071 100644 --- a/compiler/sparc/c-call.lisp +++ b/compiler/sparc/c-call.lisp @@ -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)) -- GitLab