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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [newlib-1.17.0/] [newlib/] [libm/] [math/] [wf_cabs.c] - Diff between revs 148 and 158

Rev 148	Rev 158
`/*`	`/*`
`* cabsf() wrapper for hypotf().`	`* cabsf() wrapper for hypotf().`
`*`	`*`
`* Written by J.T. Conklin, <jtc@wimsey.com>`	`* Written by J.T. Conklin, <jtc@wimsey.com>`
`* Placed into the Public Domain, 1994.`	`* Placed into the Public Domain, 1994.`
`*/`	`*/`

`#include "fdlibm.h"`	`#include "fdlibm.h"`

`struct complex {`	`struct complex {`
`float x;`	`float x;`
`float y;`	`float y;`
`};`	`};`

`float`	`float`
`cabsf(z)`	`cabsf(z)`
`struct complex z;`	`struct complex z;`
`{`	`{`
`return hypotf(z.x, z.y);`	`return hypotf(z.x, z.y);`
`}`	`}`