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_atan2.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 atan2 using Intel float instructions.`	`Fast version of atan2 using Intel float instructions.`

`double _f_atan2 (double y, double x);`	`double _f_atan2 (double y, double x);`

`Function computes arctan ( y / x ).`	`Function computes arctan ( y / 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_atan2)`	`.global SYM (_f_atan2)`
`SOTYPE_FUNCTION(_f_atan2)`	`SOTYPE_FUNCTION(_f_atan2)`

`SYM (_f_atan2):`	`SYM (_f_atan2):`
`pushl ebp`	`pushl ebp`
`movl esp,ebp`	`movl esp,ebp`
`fldl 8(ebp)`	`fldl 8(ebp)`
`fldl 16(ebp)`	`fldl 16(ebp)`
`fpatan`	`fpatan`

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

`#endif`	`#endif`