newlib/winsup/mingw/mingwex/math/scalbnf.S

20 lines
272 B
ArmAsm
Raw Normal View History

/*
* Written by J.T. Conklin <jtc@netbsd.org>.
* Public domain.
*/
.file "scalbnf.S"
.text
.align 4
.globl _scalbnf
.def _scalbnf; .scl 2; .type 32; .endef
_scalbnf:
fildl 8(%esp)
flds 4(%esp)
fscale
fstp %st(1)
ret
.globl _scalblnf
.set _scalblnf,_scalbnf