sysdeps/i386/fpu/s_scalbnf.S

   1 /*
   2  * Public domain.
   3  */
   4
   5 #include <machine/asm.h>
   6 #include <i386-math-asm.h>
   7
   8 RCSID("$NetBSD: s_scalbnf.S,v 1.3 1995/05/09 00:19:59 jtc Exp $")
   9
  10 ENTRY(__scalbnf)
  11         fildl   8(%esp)
  12         flds    4(%esp)
  13         fscale
  14         fstp    %st(1)
  15         FLT_NARROW_EVAL
  16         ret
  17 END (__scalbnf)
  18 strong_alias (__scalbnf, __scalblnf)
  19
  20 #include <shlib-compat.h>
  21 #if SHLIB_COMPAT (libc, GLIBC_2_1, GLIBC_2_20)
  22 compat_symbol (libc, __scalbnf, scalblnf, GLIBC_2_1);
  23 #endif