Subversion Repositories Kolibri OS

Rev

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

  1. /*
  2.  * Written by J.T. Conklin <jtc@netbsd.org>.
  3.  * Public domain.
  4.  * Adapted for `long double' by Ulrich Drepper <drepper@cygnus.com>.
  5.  * Removed header file dependency for use in libmingwex.a by
  6.  *   Danny Smith <dannysmith@users.sourceforge.net>
  7.  */
  8.  
  9.         .file   "remainderl.S"
  10.         .text
  11.         .align 4
  12. .globl _remainderl
  13.         .def    _remainderl;    .scl    2;      .type   32;     .endef
  14. _remainderl:
  15.         fldt    16(%esp)
  16.         fldt    4(%esp)
  17. 1:      fprem1
  18.         fstsw   %ax
  19.         sahf
  20.         jp      1b
  21.         fstp    %st(1)
  22.         ret
  23.