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

Subversion Repositories openrisc_me

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

Rev 148	Rev 158
`/* Copyright (C) 2002 by Red Hat, Incorporated. All rights reserved.`	`/* Copyright (C) 2002 by Red Hat, Incorporated. All rights reserved.`
`*`	`*`
`* Permission to use, copy, modify, and distribute this software`	`* Permission to use, copy, modify, and distribute this software`
`* is freely granted, provided that this notice is preserved.`	`* is freely granted, provided that this notice is preserved.`
`*/`	`*/`

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

`#ifndef _DOUBLE_IS_32BITS`	`#ifndef _DOUBLE_IS_32BITS`

`#ifdef __STDC__`	`#ifdef __STDC__`
`double fdim(double x, double y)`	`double fdim(double x, double y)`
`#else`	`#else`
`double fdim(x,y)`	`double fdim(x,y)`
`double x;`	`double x;`
`double y;`	`double y;`
`#endif`	`#endif`
`{`	`{`
`int c = __fpclassifyd(x);`	`int c = __fpclassifyd(x);`
`if (c == FP_NAN \|\| c == FP_INFINITE)`	`if (c == FP_NAN \|\| c == FP_INFINITE)`
`return HUGE_VAL;`	`return HUGE_VAL;`

`return x > y ? x - y : 0.0;`	`return x > y ? x - y : 0.0;`
`}`	`}`

`#endif /* _DOUBLE_IS_32BITS */`	`#endif /* _DOUBLE_IS_32BITS */`