Strona główna Odkrywaj Pomoc
Zaloguj się
DragonOS-Community
/
relibc_openlibm
kopia lustrzana https://gitlab.redox-os.org/redox-os/openlibm.git
2
0
Forkuj 0
Pliki Problemy 0 Wiki
Drzewo: aba7ae910f
Gałęzie Tagi
relibc_openlibm
/
amd64
/
s_remquol.S

s_remquol.S 2.1 KB
Historia Czysty

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364 
  1. /*-
    2. 

  2.  * Copyright (c) 2005-2008 David Schultz <das@FreeBSD.ORG>
    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.  *
    14. 

  14.  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
    15. 

  15.  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
    16. 

  16.  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
    17. 

  17.  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
    18. 

  18.  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
    19. 

  19.  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
    20. 

  20.  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
    21. 

  21.  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
    22. 

  22.  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
    23. 

  23.  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
    24. 

  24.  * SUCH DAMAGE.
    25. 

  25.  */
    26. 

  26. 

  27. /*
    28. 

  28.  * Based on public-domain remainder routine by J.T. Conklin <jtc@NetBSD.org>.
    29. 

  29.  */
    30. 

  30. 

  31. #include <machine/asm.h>
    32. 

  32. __FBSDID("$FreeBSD: src/lib/msun/amd64/s_remquol.S,v 1.2 2011/01/07 16:13:12 kib Exp $"); 
    33. 

  33. 	
    34. 

  34. ENTRY(remquol)
    35. 

  35. 	fldt    24(%rsp)
    36. 

  36. 	fldt    8(%rsp)
    37. 

  37. 1:	fprem1
    38. 

  38. 	fstsw	%ax
    39. 

  39. 	btw	$10,%ax
    40. 

  40. 	jc	1b
    41. 

  41. 	fstp	%st(1)
    42. 

  42. /* Extract the three low-order bits of the quotient from C0,C3,C1. */
    43. 

  43. 	shrl	$6,%eax
    44. 

  44. 	movl	%eax,%ecx
    45. 

  45. 	andl	$0x108,%eax
    46. 

  46. 	rorl	$7,%eax
    47. 

  47. 	orl	%eax,%ecx
    48. 

  48. 	roll	$4,%eax
    49. 

  49. 	orl	%ecx,%eax
    50. 

  50. 	andl	$7,%eax
    51. 

  51. /* Negate the quotient bits if x*y<0.  Avoid using an unpredictable branch. */
    52. 

  52. 	movl	32(%rsp),%ecx
    53. 

  53. 	xorl	16(%rsp),%ecx
    54. 

  54. 	movsx	%cx,%ecx
    55. 

  55. 	sarl	$16,%ecx
    56. 

  56. 	sarl	$16,%ecx
    57. 

  57. 	xorl	%ecx,%eax
    58. 

  58. 	andl	$1,%ecx
    59. 

  59. 	addl	%ecx,%eax
    60. 

  60. /* Store the quotient and return. */
    61. 

  61. 	movl	%eax,(%rdi)
    62. 

  62. 	ret
    63. 

  63. 

  64. 	.section .note.GNU-stack,"",%progbits
    65.