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/] [w_cabs.c] - Diff between revs 148 and 158

Rev 148	Rev 158
`/*`	`/*`
`* cabs() wrapper for hypot().`	`* cabs() wrapper for hypot().`
`*`	`*`
`* 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 {`
`double x;`	`double x;`
`double y;`	`double y;`
`};`	`};`

`double`	`double`
`cabs(z)`	`cabs(z)`
`struct complex z;`	`struct complex z;`
`{`	`{`
`return hypot(z.x, z.y);`	`return hypot(z.x, z.y);`
`}`	`}`