mingwrt/mingwex/math/remainderf.s

   1 /*
   2  * Written by J.T. Conklin <jtc@netbsd.org>.
   3  * Public domain.
   4  */
   5
   6         .file   "remainderf.s"
   7         .text
   8         .align 4
   9 .globl _remainder
  10         .def    _remainderf;    .scl    2;      .type   32;     .endef
  11 _remainderf:
  12         flds    8(%esp)
  13         flds    4(%esp)
  14 1:      fprem1
  15         fstsw   %ax
  16         sahf
  17         jp      1b
  18         fstp    %st(1)
  19         ret