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