Página Principal Explorar Ajuda
Iniciar Sessão
DragonOS-Community
/
relibc_openlibm
mirror de https://gitlab.redox-os.org/redox-os/openlibm.git
2
0
Fork 0
Ficheiros Problemas 0 Wiki
Árvore: 16b9264f9d
Ramos Etiquetas
relibc_openlibm
/
i387
/
s_tan.S

s_tan.S 2.1 KB
Histórico Em bruto

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960 
  1. /*
    2. 

  2.  * Copyright (c) 1994 Winning Strategies, Inc.
    3. 

  3.  * All rights reserved.
    4. 

  4.  *
    5. 

  5.  * Redistribution and use in source and binary forms, with or without
    6. 

  6.  * modification, are permitted provided that the following conditions
    7. 

  7.  * are met:
    8. 

  8.  * 1. Redistributions of source code must retain the above copyright
    9. 

  9.  *    notice, this list of conditions and the following disclaimer.
    10. 

  10.  * 2. Redistributions in binary form must reproduce the above copyright
    11. 

  11.  *    notice, this list of conditions and the following disclaimer in the
    12. 

  12.  *    documentation and/or other materials provided with the distribution.
    13. 

  13.  * 3. All advertising materials mentioning features or use of this software
    14. 

  14.  *    must display the following acknowledgement:
    15. 

  15.  *      This product includes software developed by Winning Strategies, Inc.
    16. 

  16.  * 4. The name of the author may not be used to endorse or promote products
    17. 

  17.  *    derived from this software without specific prior written permission.
    18. 

  18.  *
    19. 

  19.  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
    20. 

  20.  * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
    21. 

  21.  * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
    22. 

  22.  * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
    23. 

  23.  * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
    24. 

  24.  * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
    25. 

  25.  * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
    26. 

  26.  * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
    27. 

  27.  * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
    28. 

  28.  * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
    29. 

  29.  */
    30. 

  30. 

  31. /*
    32. 

  32.  * Written by:
    33. 

  33.  *	J.T. Conklin (jtc@wimsey.com), Winning Strategies, Inc.
    34. 

  34.  */
    35. 

  35. 

  36. #include <machine/asm.h>
    37. 

  37. __FBSDID("$FreeBSD: src/lib/msun/i387/s_tan.S,v 1.9 2011/01/07 16:13:12 kib Exp $")
    38. 

  38. 

  39. ENTRY(tan)
    40. 

  40. 	fldl	4(%esp)
    41. 

  41. 	fptan
    42. 

  42. 	fnstsw	%ax
    43. 

  43. 	andw	$0x400,%ax
    44. 

  44. 	jnz	1f
    45. 

  45. 	fstp	%st(0)
    46. 

  46. 	ret
    47. 

  47. 1:	fldpi
    48. 

  48. 	fadd	%st(0)
    49. 

  49. 	fxch	%st(1)
    50. 

  50. 2:	fprem1
    51. 

  51. 	fstsw	%ax
    52. 

  52. 	andw	$0x400,%ax
    53. 

  53. 	jnz	2b
    54. 

  54. 	fstp	%st(1)
    55. 

  55. 	fptan
    56. 

  56. 	fstp	%st(0)
    57. 

  57. 	ret
    58. 

  58. END(tan)
    59. 

  59. 

  60. 	.section .note.GNU-stack,"",%progbits
    61.