Subversion Repositories Kolibri OS

Rev

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

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