mingwrt/mingwex/math/scalbn.s

   1 /*
   2  * Written by J.T. Conklin <jtc@netbsd.org>.
   3  * Public domain.
   4  */
   5
   6         .file   "scalbn.s"
   7         .text
   8         .align 4
   9 .globl _scalbn
  10         .def    _scalbn;        .scl    2;      .type   32;     .endef
  11 _scalbn:
  12         fildl   12(%esp)
  13         fldl    4(%esp)
  14         fscale
  15         fstp    %st(1)
  16         ret
  17
  18 .globl _scalbln
  19         .set    _scalbln,_scalbn