kolibrios/programs/develop/ktcc/trunk/libc/math/log10.asm

 
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
release ktcc 0.9.26 git-svn-id: svn://kolibrios.org@6424 a494cfbc-eb01-0410-851d-a64ba20cac60 2016-05-11 16:53:54 +02:00
			`format ELF`
Make libck project self-containing. git-svn-id: svn://kolibrios.org@7855 a494cfbc-eb01-0410-851d-a64ba20cac60 2020-05-03 10:09:36 +02:00			`include '../proc32.inc'`
release ktcc 0.9.26 git-svn-id: svn://kolibrios.org@6424 a494cfbc-eb01-0410-851d-a64ba20cac60 2016-05-11 16:53:54 +02:00			`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`