Changeset 10896 for trunk/source/level1/l1numbers.lisp
 Timestamp:
 Sep 27, 2008, 6:51:51 AM (11 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

trunk/source/level1/l1numbers.lisp
r10633 r10896 469 469 (%setfdoublefloat result TEMP))) 470 470 471 #+ 32bittarget471 #+(and 32bittarget (not win32target)) 472 472 (defun %singlefloatexpt! (b e result) 473 473 (declare (singlefloat b e result)) … … 476 476 (%sfcheckexception2 'expt b e (%ffiexceptionstatus)) 477 477 (%setfshortfloat result TEMP))) 478 479 #+win32target 480 (defun %singlefloatexpt! (b e result) 481 (declare (singlefloat b e result)) 482 (withstackdoublefloats ((temp) (db b) (de e)) 483 (%setfdoublefloat temp (#_pow db de)) 484 (%dfcheckexception2 'expt b e (%ffiexceptionstatus)) 485 (%doublefloat>shortfloat temp result))) 478 486 479 487 #+64bittarget … … 579 587 (%setfdoublefloat result TEMP))) 580 588 581 #+ 32bittarget589 #+(and 32bittarget (not win32target)) 582 590 (defun %singlefloatcosh! (n result) 583 591 (declare (singlefloat n result)) … … 689 697 (%setfdoublefloat result TEMP))) 690 698 691 #+ 32bittarget699 #+(and 32bittarget (not windows target)) 692 700 (defun %singlefloatexp! (n result) 693 701 (declare (singlefloat n result)) … … 711 719 (%setfdoublefloat result TEMP))) 712 720 713 #+ 32bittarget721 #+(and 32bittarget (not windowstarget)) 714 722 (defun %singlefloatsinh! (n result) 715 723 (declare (singlefloat n result)) … … 733 741 (%setfdoublefloat result TEMP))) 734 742 735 #+ 32bittarget743 #+(and 32bittarget (not windowstarget)) 736 744 (defun %singlefloattanh! (n result) 737 745 (declare (singlefloat n result))
Note: See TracChangeset
for help on using the changeset viewer.