Changeset 7880
 Timestamp:
 Dec 11, 2007, 4:43:20 AM (13 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

branches/ia32/level1/l1numbers.lisp
r7811 r7880 466 466 (defun %singlefloatexpt! (b e result) 467 467 (declare (singlefloat b e result)) 468 ( withstackshortfloats ((temp))468 (target::withstackshortfloats ((temp)) 469 469 (%setfshortfloat temp (#_powf b e)) 470 470 (%sfcheckexception2 'expt b e (%ffiexceptionstatus)) … … 488 488 (defun %singlefloatsin! (n result) 489 489 (declare (singlefloat n result)) 490 ( withstackshortfloats ((temp))490 (target::withstackshortfloats ((temp)) 491 491 (%setfshortfloat TEMP (#_sinf n)) 492 492 (%sfcheckexception1 'sin n (%ffiexceptionstatus)) … … 510 510 (defun %singlefloatcos! (n result) 511 511 (declare (singlefloat n result)) 512 ( withstackshortfloats ((temp))512 (target::withstackshortfloats ((temp)) 513 513 (%setfshortfloat TEMP (#_cosf n)) 514 514 (%sfcheckexception1 'cos n (%ffiexceptionstatus)) … … 532 532 (defun %singlefloatacos! (n result) 533 533 (declare (singlefloat n result)) 534 ( withstackshortfloats ((temp))534 (target::withstackshortfloats ((temp)) 535 535 (%setfshortfloat TEMP (#_acosf n)) 536 536 (%sfcheckexception1 'acos n (%ffiexceptionstatus)) … … 554 554 (defun %singlefloatasin! (n result) 555 555 (declare (singlefloat n result)) 556 ( withstackshortfloats ((temp))556 (target::withstackshortfloats ((temp)) 557 557 (%setfshortfloat TEMP (#_asinf n)) 558 558 (%sfcheckexception1 'asin n (%ffiexceptionstatus)) … … 576 576 (defun %singlefloatcosh! (n result) 577 577 (declare (singlefloat n result)) 578 ( withstackshortfloats ((temp))578 (target::withstackshortfloats ((temp)) 579 579 (%setfshortfloat TEMP (#_coshf n)) 580 580 (%sfcheckexception1 'cosh n (%ffiexceptionstatus)) … … 598 598 (defun %singlefloatlog! (n result) 599 599 (declare (singlefloat n result)) 600 ( withstackshortfloats ((temp))600 (target::withstackshortfloats ((temp)) 601 601 (%setfshortfloat TEMP (#_logf n)) 602 602 (%sfcheckexception1 'log n (%ffiexceptionstatus)) … … 619 619 (defun %singlefloattan! (n result) 620 620 (declare (singlefloat n result)) 621 ( withstackshortfloats ((temp))621 (target::withstackshortfloats ((temp)) 622 622 (%setfshortfloat TEMP (#_tanf n)) 623 623 (%sfcheckexception1 'tan n (%ffiexceptionstatus)) … … 642 642 (defun %singlefloatatan! (n result) 643 643 (declare (singlefloat n result)) 644 ( withstackshortfloats ((temp))644 (target::withstackshortfloats ((temp)) 645 645 (%setfshortfloat TEMP (#_atanf n)) 646 646 (%sfcheckexception1 'atan n (%ffiexceptionstatus)) … … 664 664 (defun %singlefloatatan2! (x y result) 665 665 (declare (singlefloat x y result)) 666 ( withstackshortfloats ((temp))666 (target::withstackshortfloats ((temp)) 667 667 (%setfshortfloat TEMP (#_atan2f x y)) 668 668 (%sfcheckexception2 'atan2 x y (%ffiexceptionstatus)) … … 686 686 (defun %singlefloatexp! (n result) 687 687 (declare (singlefloat n result)) 688 ( withstackshortfloats ((temp))688 (target::withstackshortfloats ((temp)) 689 689 (%setfshortfloat TEMP (#_expf n)) 690 690 (%sfcheckexception1 'exp n (%ffiexceptionstatus)) … … 708 708 (defun %singlefloatsinh! (n result) 709 709 (declare (singlefloat n result)) 710 ( withstackshortfloats ((temp))710 (target::withstackshortfloats ((temp)) 711 711 (%setfshortfloat TEMP (#_sinhf n)) 712 712 (%sfcheckexception1 'sinh n (%ffiexceptionstatus)) … … 730 730 (defun %singlefloattanh! (n result) 731 731 (declare (singlefloat n result)) 732 ( withstackshortfloats ((temp))732 (target::withstackshortfloats ((temp)) 733 733 (%setfshortfloat TEMP (#_tanhf n)) 734 734 (%sfcheckexception1 'tanh n (%ffiexceptionstatus)) … … 753 753 (defun %singlefloatasinh! (n result) 754 754 (declare (singlefloat n result)) 755 ( withstackshortfloats ((temp))755 (target::withstackshortfloats ((temp)) 756 756 (%setfshortfloat TEMP (#_asinhf n)) 757 757 (%sfcheckexception1 'asinh n (%ffiexceptionstatus)) … … 775 775 (defun %singlefloatacosh! (n result) 776 776 (declare (singlefloat n result)) 777 ( withstackshortfloats ((temp))777 (target::withstackshortfloats ((temp)) 778 778 (%setfshortfloat TEMP (#_acoshf n)) 779 779 (%sfcheckexception1 'acosh n (%ffiexceptionstatus)) … … 797 797 (defun %singlefloatatanh! (n result) 798 798 (declare (singlefloat n result)) 799 ( withstackshortfloats ((temp))799 (target::withstackshortfloats ((temp)) 800 800 (%setfshortfloat TEMP (#_atanhf n)) 801 801 (%sfcheckexception1 'atanh n (%ffiexceptionstatus))
Note: See TracChangeset
for help on using the changeset viewer.