URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [newlib-1.18.0/] [newlib-1.18.0-or32-1.0rc1/] [newlib/] [libc/] [machine/] [i386/] [f_log10.S] - Diff between revs 207 and 345

Rev 207	Rev 345
`/*`	`/*`
`* ====================================================`	`* ====================================================`
`* Copyright (C) 1998, 2002 by Red Hat Inc. All rights reserved.`	`* Copyright (C) 1998, 2002 by Red Hat Inc. All rights reserved.`
`*`	`*`
`* Permission to use, copy, modify, and distribute this`	`* Permission to use, copy, modify, and distribute this`
`* software is freely granted, provided that this notice`	`* software is freely granted, provided that this notice`
`* is preserved.`	`* is preserved.`
`* ====================================================`	`* ====================================================`
`*/`	`*/`

`#if !defined(_SOFT_FLOAT)`	`#if !defined(_SOFT_FLOAT)`

`/*`	`/*`
`Fast version of log10 using Intel float instructions.`	`Fast version of log10 using Intel float instructions.`

`double _f_log10 (double x);`	`double _f_log10 (double x);`

`Function calculates the log base 10 of x.`	`Function calculates the log base 10 of x.`
`There is no error checking or setting of errno.`	`There is no error checking or setting of errno.`
`*/`	`*/`

`#include "i386mach.h"`	`#include "i386mach.h"`

`.global SYM (_f_log10)`	`.global SYM (_f_log10)`
`SOTYPE_FUNCTION(_f_log10)`	`SOTYPE_FUNCTION(_f_log10)`

`SYM (_f_log10):`	`SYM (_f_log10):`
`pushl ebp`	`pushl ebp`
`movl esp,ebp`	`movl esp,ebp`

`fld1`	`fld1`
`fldl2t`	`fldl2t`
`fdivrp`	`fdivrp`
`fldl 8(ebp)`	`fldl 8(ebp)`
`fyl2x`	`fyl2x`

`leave`	`leave`
`ret`	`ret`

`#endif`	`#endif`