arch/i386-all/stdc/math/s_floorl.s

   1 /*
   2  * Based on code written by J.T. Conklin <jtc@NetBSD.org>.
   3  * Public domain.
   4  */
   5
   6         #include "aros/i386/asm.h"
   7
   8         .text
   9         _ALIGNMENT
  10         .globl  AROS_CDEFNAME(floorl)
  11         _FUNCTION(AROS_CDEFNAME(floorl))
  12
  13         .set    FirstArg, 4 /* Skip Return-Adress */
  14         .set    arg_x, FirstArg
  15
  16 AROS_CDEFNAME(floorl):
  17         pushl   %ebp
  18         movl    %esp,%ebp
  19         subl    $8,%esp
  20
  21         fstcw   -4(%ebp)                /* store fpu control word */
  22         movw    -4(%ebp),%dx
  23         orw     $0x0400,%dx             /* round towards -oo */
  24         andw    $0xf7ff,%dx
  25         movw    %dx,-8(%ebp)
  26         fldcw   -8(%ebp)                /* load modfied control word */
  27
  28         fldt    8(%ebp)                 /* round */
  29         frndint
  30
  31         fldcw   -4(%ebp)                /* restore original control word */
  32
  33         leave
  34         ret