sortix-mirror/libm/arch/i387/s_ceil.S
Jonas 'Sortie' Termansen 5980be9b3c Add Sortix Math Library.
This work is based in part on code from NetBSD libm, libc and kernel.

The library is partly public domain and partly BSD-style licensed.
2013-12-17 14:30:39 +01:00

46 lines
773 B
ArmAsm

/*
* Written by J.T. Conklin <jtc@NetBSD.org>.
* Public domain.
*/
#include <machine/asm.h>
#include "abi.h"
RCSID("$NetBSD: s_ceil.S,v 1.8 2011/06/18 21:24:51 joerg Exp $")
ENTRY(ceil)
#ifdef __i386__
pushl %ebp
movl %esp,%ebp
subl $8,%esp
fstcw -4(%ebp) /* store fpu control word */
movw -4(%ebp),%dx
orw $0x0800,%dx /* round towards +oo */
andw $0xfbff,%dx
movw %dx,-8(%ebp)
fldcw -8(%ebp) /* load modfied control word */
fldl 8(%ebp) /* round */
frndint
fldcw -4(%ebp) /* restore original control word */
leave
#else
fstcw -12(%rsp)
movw -12(%rsp),%dx
orw $0x0800,%dx
andw $0xfbff,%dx
movw %dx,-16(%rsp)
fldcw -16(%rsp)
movsd %xmm0,-8(%rsp)
fldl -8(%rsp)
frndint
fldcw -12(%rsp)
fstpl -8(%rsp)
movsd -8(%rsp),%xmm0
#endif
ret