Subversion Repositories Kolibri OS

Rev

Blame | Last modification | View Log | RSS feed

  1. /* Copyright (C) 1995 DJ Delorie, see COPYING.DJ for details */
  2. #include "libc/asm.h"
  3.         .data
  4. LCW1:
  5.         .word   0
  6. LCW2:
  7.         .word   0
  8. LC0:
  9.         .double 0d1.0e+00
  10.  
  11.         .text
  12.  
  13. MK_C_SYM(__pow2)
  14. MK_C_SYM(pow2)
  15.         fldl    4(%esp)
  16.         fstcw   LCW1
  17.         fstcw   LCW2
  18.         fwait
  19.         andw    $0xf3ff,LCW2
  20.         orw     $0x0400,LCW2
  21.         fldcw   LCW2
  22.         fldl    %st(0)
  23.         frndint
  24.         fldcw   LCW1
  25.         fxch    %st(1)
  26.         fsub    %st(1),%st
  27.         f2xm1
  28.         faddl   LC0
  29.         fscale
  30.         fstp    %st(1)
  31.         ret
  32.