a few ppc{32|64}-target typos

"bryan o'connor" <[email protected]> Wed, 22 Jun 2005 18:08:26 -0700

Newsgroups	gmane.lisp.openmcl.bugs
Message-ID	<[email protected]>

cvs server wouldn't let me commit these.

a handful of typos that broke some math functions.

     ...bryan

_______________________________________________
Bug-openmcl mailing list
[email protected]
http://clozure.com/mailman/listinfo/bug-openmcl

typo.patch.txt (text/plain, 1.5 KB)

Index: level-0/l0-float.lisp
===================================================================
RCS file: /usr/local/tmpcvs/ccl-0.14-dev/ccl/level-0/l0-float.lisp,v
retrieving revision 1.19
diff -u -c -r1.19 l0-float.lisp
*** level-0/l0-float.lisp	16 Jun 2005 11:44:22 -0000	1.19
--- level-0/l0-float.lisp	23 Jun 2005 01:04:21 -0000
***************
*** 722,731 ****
                 (* (sin r) (sinh i))))
      (if (typep x 'double-float)
        (%double-float-cos! x (%make-dfloat))
!       #+ppc32
        (ppc32::with-stack-short-floats ((sx x))
          (%single-float-cos! sx (%make-sfloat)))
!       #+ppc64
        (%single-float-cos (%short-float x)))))
  
  (defun tan (x)
--- 722,731 ----
                 (* (sin r) (sinh i))))
      (if (typep x 'double-float)
        (%double-float-cos! x (%make-dfloat))
!       #+ppc32-target
        (ppc32::with-stack-short-floats ((sx x))
          (%single-float-cos! sx (%make-sfloat)))
!       #+ppc64-target
        (%single-float-cos (%short-float x)))))
  
  (defun tan (x)
***************
*** 948,954 ****
  	 (%double-float-acos! x (%make-dfloat))
  	 (- double-float-half-pi (asin x)))))
      ((short-float rational)
!      #+ppc32-tarrget
       (ppc32::with-stack-short-floats ((sx x))
  	(locally
  	    (declare (type short-float sx))
--- 948,954 ----
  	 (%double-float-acos! x (%make-dfloat))
  	 (- double-float-half-pi (asin x)))))
      ((short-float rational)
!      #+ppc32-target
       (ppc32::with-stack-short-floats ((sx x))
  	(locally
  	    (declare (type short-float sx))