]> git.ipfire.org Git - thirdparty/glibc.git/blob - sysdeps/libm-i387/s_ilogbf.S
update from main archive 961005
[thirdparty/glibc.git] / sysdeps / libm-i387 / s_ilogbf.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_ilogbf.S,v 1.4 1995/10/22 20:32:43 pk Exp $")
9
10 ENTRY(__ilogbf)
11 pushl %ebp
12 movl %esp,%ebp
13 subl $4,%esp
14
15 flds 8(%ebp)
16 fxtract
17 fstpl %st
18
19 fistpl -4(%ebp)
20 movl -4(%ebp),%eax
21
22 leave
23 ret
24 PSEUDO_END (__ilogbf)
25 weak_alias (__ilogbf, ilogbf)