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 9RCSID("$NetBSD: $") 10 11ENTRY(__floorl) 12 fldt 4(%esp) 13 subl $8,%esp 14 15 fstcw 4(%esp) /* store fpu control word */ 16 17 /* We use here %edx although only the low 1 bits are defined. 18 But none of the operations should care and they are faster 19 than the 16 bit operations. */ 20 movl $0x400,%edx /* round towards -oo */ 21 orl 4(%esp),%edx 22 andl $0xf7ff,%edx 23 movl %edx,(%esp) 24 fldcw (%esp) /* load modified control word */ 25 26 frndint /* round */ 27 28 fldcw 4(%esp) /* restore original control word */ 29 30 addl $8,%esp 31 ret 32END (__floorl) 33weak_alias (__floorl, floorl) 34