lib/libm/arch/i387/s_scalbnf.S

   1 /*
   2  * Written by J.T. Conklin <jtc@NetBSD.org>.
   3  * Public domain.
   4  */
   5
   6 #include <machine/asm.h>
   7
   8 RCSID("$NetBSD: s_scalbnf.S,v 1.6 2003/07/26 19:25:03 salo Exp $")
   9
  10 ENTRY(scalbnf)
  11 #ifdef __x86_64__
  12         movl %edi,-8(%rsp)
  13         fildl -8(%rsp)
  14         movss %xmm0,-4(%rsp)
  15         flds -4(%rsp)
  16         fscale
  17         fstps -4(%rsp)
  18         movss -4(%rsp),%xmm0
  19         fstp %st(0)
  20 #else
  21         fildl 8(%esp)
  22         flds 4(%esp)
  23         fscale
  24         fstp %st(1)             /* clean up stack */
  25 #endif
  26         ret