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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [newlib-1.17.0/] [newlib/] [libm/] [common/] [s_fdim.c] - Blame information for rev 855

Go to most recent revision | Details | Compare with Previous | View Log


/* Copyright (C) 2002 by  Red Hat, Incorporated. All rights reserved.
 *
 * Permission to use, copy, modify, and distribute this software
 * is freely granted, provided that this notice is preserved.
 */
 
#include "fdlibm.h"
 
#ifndef _DOUBLE_IS_32BITS
 
#ifdef __STDC__
        double fdim(double x, double y)
#else
        double fdim(x,y)
        double x;
        double y;
#endif
{
  int c = __fpclassifyd(x);
  if (c == FP_NAN || c == FP_INFINITE)
    return HUGE_VAL;
 
  return x > y ? x - y : 0.0;
}
 
#endif /* _DOUBLE_IS_32BITS */

Line No.	Rev	Author	Line
1	148	jeremybenn	`/* Copyright (C) 2002 by Red Hat, Incorporated. All rights reserved.`
2			`*`
3			`* Permission to use, copy, modify, and distribute this software`
4			`* is freely granted, provided that this notice is preserved.`
5			`*/`
6
7			`#include "fdlibm.h"`
8
9			`#ifndef _DOUBLE_IS_32BITS`
10
11			`#ifdef __STDC__`
12			`double fdim(double x, double y)`
13			`#else`
14			`double fdim(x,y)`
15			`double x;`
16			`double y;`
17			`#endif`
18			`{`
19			`int c = __fpclassifyd(x);`
20			`if (c == FP_NAN \|\| c == FP_INFINITE)`
21			`return HUGE_VAL;`
22
23			`return x > y ? x - y : 0.0;`
24			`}`
25
26			`#endif /* _DOUBLE_IS_32BITS */`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [newlib-1.17.0/] [newlib/] [libm/] [common/] [s_fdim.c] - Blame information for rev 855