From 8815f490b3a5982c1af1d97604a88efdab7cddc3 Mon Sep 17 00:00:00 2001 From: dtc <dtc> Date: Sat, 21 Mar 1998 10:27:41 +0000 Subject: [PATCH] Alien long-float type is 128 bits on the sparc. --- code/alieneval.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/code/alieneval.lisp b/code/alieneval.lisp index e1e6a31b3..fe273a24a 100644 --- a/code/alieneval.lisp +++ b/code/alieneval.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/code/alieneval.lisp,v 1.46 1998/03/21 08:11:47 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/alieneval.lisp,v 1.47 1998/03/21 10:27:41 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -850,7 +850,7 @@ #+long-float -(def-alien-type-class (long-float :include (float (:bits 96)) +(def-alien-type-class (long-float :include (float (:bits #+x86 96 #+sparc 128)) :include-args (type))) #+long-float -- GitLab