Subversion Repositories Kolibri OS

Rev

Rev 8687 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  1. /* Copyright (C) 1994 DJ Delorie, see COPYING.DJ for details */
  2.  
  3. .global modfl;
  4.  
  5. modfl:
  6.         pushl %ebp
  7.         movl %esp,%ebp
  8.         subl $4,%esp
  9.         fldt 8(%ebp)
  10.         movl 20(%ebp),%eax
  11.         fnstcw -2(%ebp)
  12.         movw -2(%ebp),%dx
  13.         orb $0x0c,%dh
  14.         movw %dx,-4(%ebp)
  15.         fldcw -4(%ebp)
  16.         fld %st(0)
  17.         frndint
  18.         fldcw -2(%ebp)
  19.         fld %st(0)
  20.         fstpt (%eax)
  21.         fsubrp %st,%st(1)
  22.         leave
  23.         ret
  24.