URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [newlib-1.18.0/] [newlib-1.18.0-or32-1.0rc1/] [newlib/] [libc/] [machine/] [i386/] [f_tan.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 tan using Intel float instructions.`	`Fast version of tan using Intel float instructions.`

`double _f_tan (double x);`	`double _f_tan (double x);`

`Function calculates the tangent of x.`	`Function calculates the tangent 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_tan)`	`.global SYM (_f_tan)`
`SOTYPE_FUNCTION(_f_tan)`	`SOTYPE_FUNCTION(_f_tan)`

`SYM (_f_tan):`	`SYM (_f_tan):`
`pushl ebp`	`pushl ebp`
`movl esp,ebp`	`movl esp,ebp`
`fldl 8(ebp)`	`fldl 8(ebp)`
`fptan`	`fptan`
`fincstp`	`fincstp`

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

`#endif`	`#endif`