Subversion Repositories Kolibri OS

Rev

Go to most recent revision | Blame | Last modification | View Log | Download | RSS feed

  1. /* Copyright (C) 1995 DJ Delorie, see COPYING.DJ for details */
  2.  
  3. .global floor;
  4.  
  5. floor:
  6.         pushl   %ebp
  7.         movl    %esp,%ebp
  8.         subl    $8,%esp        
  9.  
  10.         fstcw   -4(%ebp)
  11.         fwait
  12.         movw    -4(%ebp),%ax
  13.         andw    $0xf3ff,%ax
  14.         orw     $0x0400,%ax
  15.         movw    %ax,-2(%ebp)
  16.         fldcw   -2(%ebp)
  17.  
  18.         fldl    8(%ebp)
  19.         frndint
  20.  
  21.         fldcw   -4(%ebp)
  22.  
  23.         movl    %ebp,%esp
  24.         popl    %ebp
  25.         ret
  26.  
  27.