arch/i386-all/stdc/math/s_scalbnf.s

   1 /*
   2  * Written by J.T. Conklin <jtc@netbsd.org>.
   3  * Public domain.
   4  */
   5
   6         #include "aros/i386/asm.h"
   7
   8         .text
   9         _ALIGNMENT
  10         .globl  AROS_CDEFNAME(scalbnf)
  11         _FUNCTION(AROS_CDEFNAME(scalbnf))
  12
  13         .set    FirstArg, 4 /* Skip Return-Adress */
  14         .set    arg_x, FirstArg
  15
  16         .set    SecondArg, 8 /* Skip FirstArg */
  17         .set    arg_n, SecondArg
  18
  19 AROS_CDEFNAME(scalbnf):
  20         fildl   arg_n(%esp)
  21         flds    arg_x(%esp)
  22         fscale
  23         fstp    %st(1)          /* bug fix for fp stack overflow */
  24         ret
  25
  26 .globl AROS_CDEFNAME(ldexpf)
  27 .set    AROS_CDEFNAME(ldexpf),AROS_CDEFNAME(scalbnf)