mingwrt/mingwex/math/remainderl.s

   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