sysdeps/libm-i387/s_scalbnl.S

   1 /*
   2  * Written by J.T. Conklin <jtc@netbsd.org>.
   3  * Changes for long double by Ulrich Drepper <drepper@cygnus.com>
   4  * Public domain.
   5  */
   6
   7 #include <machine/asm.h>
   8
   9 RCSID("$NetBSD: $")
  10
  11 ENTRY(__scalbnl)
  12         fildl   16(%esp)
  13         fldt    4(%esp)
  14         fscale
  15         fstp    %st(1)
  16         ret
  17 END (__scalbnl)
  18 weak_alias (__scalbnl, scalbnl)
  19 strong_alias (__scalbnl, __scalblnl)
  20 weak_alias (__scalbnl, scalblnl)