/* $OpenBSD: s_floor.S,v 1.3 2005/08/02 11:17:31 espie Exp $ */ /* * Written by J.T. Conklin . * Public domain. */ #include ENTRY(floor) subl $8,%esp fstcw 4(%esp) /* store fpu control word */ movw 4(%esp),%dx orw $0x0400,%dx /* round towards -oo */ andw $0xf7ff,%dx movw %dx,(%esp) fldcw (%esp) /* load modfied control word */ fldl 12(%esp); /* round */ frndint fldcw 4(%esp) /* restore original control word */ addl $8,%esp ret