2007-03-14 20:24:57 +00:00
|
|
|
|
|
|
|
/*
|
|
|
|
* COPYRIGHT: See COPYING in the top level directory
|
|
|
|
* PROJECT: ReactOS kernel
|
|
|
|
* PURPOSE:
|
|
|
|
* FILE:
|
|
|
|
* PROGRAMER: Magnus Olsen (magnus@greatlord.com)
|
|
|
|
*
|
|
|
|
*/
|
|
|
|
|
|
|
|
.globl _log10
|
|
|
|
|
|
|
|
.intel_syntax noprefix
|
|
|
|
|
|
|
|
/* FUNCTIONS ***************************************************************/
|
|
|
|
|
|
|
|
_log10:
|
2007-07-08 15:33:38 +00:00
|
|
|
|
|
|
|
push ebp
|
|
|
|
mov ebp,esp
|
2007-07-08 16:09:29 +00:00
|
|
|
fld qword ptr [ebp+8] // Load real from stack
|
|
|
|
fldlg2 // Load log base 10 of 2
|
|
|
|
fxch st(1) // Exchange st, st(1)
|
|
|
|
fyl2x // Compute the log base 10(x)
|
2007-07-08 15:33:38 +00:00
|
|
|
pop ebp
|
|
|
|
ret
|
2007-03-14 20:24:57 +00:00
|
|
|
|