diff --git a/compiler/sparc/c-call.lisp b/compiler/sparc/c-call.lisp
index 2ba303ffbe610561ffcd8998ca9dab9a8e423cd4..8b57f80710dffbce88657ed44ac3f4b8e2f68251 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))