kolibrios-gitea/programs/develop/ktcc/trunk/libc/math/log10.asm
siemargl af35cc6783 release ktcc 0.9.26
git-svn-id: svn://kolibrios.org@6424 a494cfbc-eb01-0410-851d-a64ba20cac60
2016-05-11 14:53:54 +00:00

19 lines
280 B
NASM

format ELF
include 'proc32.inc'
section '.text' executable
public log10_ as "log10"
log10_:
; ln(x) = lg(x)/lg(e).
fld qword[esp+4]
fld1
fxch
fyl2x ;Compute 1*lg(x).
fldl2t ;Load lg(10).
fdivp st1, st0 ;Compute lg(x)/lg(10).
ret