Subversion Repositories Kolibri OS

Rev

Go to most recent revision | Blame | Last modification | View Log | Download | RSS feed

  1. /*
  2.  * Written by Ulrich Drepper <drepper@cygnus.com>.
  3.  * Based on e_remainder by J.T. Conklin <jtc@netbsd.org>.
  4.  * Removed header file dependency for use in libmingwex.a by
  5.  *   Danny Smith <dannysmith@users.sourceforge.net>
  6.  * Public domain.
  7.  */
  8.         .text
  9.         .align 4;
  10. .globl _remquol;
  11.  _remquol:
  12.         fldt 4 +12(%esp)
  13.         fldt 4(%esp)
  14. 1:      fprem1
  15.         fstsw %ax
  16.         sahf
  17.         jp 1b
  18.         fstp %st(1)
  19.         movl %eax, %ecx
  20.         shrl $8, %eax
  21.         shrl $12, %ecx
  22.         andl $4, %ecx
  23.         andl $3, %eax
  24.         orl %eax, %ecx
  25.         movl $0xef2960, %eax
  26.         shrl %cl, %eax
  27.         andl $3, %eax
  28.         movl 4 +12 +12(%esp), %ecx      
  29.         movl 4 +8(%esp), %edx
  30.         xorl 4 +12 +8(%esp), %edx
  31.         testl $0x8000, %edx
  32.         jz 1f
  33.         negl %eax
  34. 1:      movl %eax, (%ecx)
  35.      
  36.         ret
  37.