reactos/lib/sdk/crt/math/i386/log10_asm.s

   1
   2  /*
   3  * COPYRIGHT:         See COPYING in the top level directory
   4  * PROJECT:           ReactOS kernel
   5  * PURPOSE:
   6  * FILE:
   7  * PROGRAMER:         Magnus Olsen (magnus@greatlord.com)
   8  *
   9  */
  10
  11 .globl _log10
  12
  13 .intel_syntax noprefix
  14
  15 /* FUNCTIONS ***************************************************************/
  16
  17 _log10:
  18
  19     push    ebp
  20     mov     ebp,esp
  21     fld     qword ptr [ebp+8]       // Load real from stack
  22     fldlg2                          // Load log base 10 of 2
  23     fxch    st(1)                   // Exchange st, st(1)
  24     fyl2x                           // Compute the log base 10(x)
  25     pop     ebp
  26     ret
  27