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/] [libm/] [mathfp/] [w_cabs.c] - Diff between revs 207 and 345

Rev 207	Rev 345
`/*`	`/*`
`* 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);`
`}`	`}`