lib/libm/arch/i386/s_ceil.S

   1 /*
   2  * Written by J.T. Conklin <jtc@NetBSD.org>.
   3  * Public domain.
   4  *
   5  * $NetBSD: s_ceil.S,v 1.7 2003/07/26 19:25:00 salo Exp $
   6  * $DragonFly: src/lib/libm/arch/i386/s_ceil.S,v 1.1 2005/07/26 21:15:19 joerg Exp $
   7  */
   8
   9 #include <machine/asm.h>
  10
  11 #include "abi.h"
  12
  13 ENTRY(ceil)
  14 #ifdef __i386__
  15         pushl   %ebp
  16         movl    %esp,%ebp
  17         subl    $8,%esp
  18
  19         fstcw   -4(%ebp)                /* store fpu control word */
  20         movw    -4(%ebp),%dx
  21         orw     $0x0800,%dx             /* round towards +oo */
  22         andw    $0xfbff,%dx
  23         movw    %dx,-8(%ebp)
  24         fldcw   -8(%ebp)                /* load modfied control word */
  25
  26         fldl    8(%ebp);                /* round */
  27         frndint
  28
  29         fldcw   -4(%ebp)                /* restore original control word */
  30
  31         leave
  32 #else
  33         fstcw   -12(%rsp)
  34         movw    -12(%rsp),%dx
  35         orw     $0x0800,%dx
  36         andw    $0xfbff,%dx
  37         movw    %dx,-16(%rsp)
  38         fldcw   -16(%rsp)
  39         movsd   %xmm0,-8(%rsp)
  40         fldl    -8(%rsp)
  41         frndint
  42         fldcw   -12(%rsp)
  43         fstpl   -8(%rsp)
  44         movsd   -8(%rsp),%xmm0
  45 #endif
  46         ret