URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [newlib-1.18.0/] [newlib/] [libm/] [common/] [sf_fdim.c] - Rev 298
Go to most recent revision | Compare with Previous | Blame | 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" #ifdef __STDC__ float fdimf(float x, float y) #else float fdimf(x,y) float x; float y; #endif { int c = __fpclassifyf(x); if (c == FP_NAN) return(x); if (__fpclassifyf(y) == FP_NAN) return(y); if (c == FP_INFINITE) return HUGE_VALF; return x > y ? x - y : 0.0; } #ifdef _DOUBLE_IS_32BITS #ifdef __STDC__ double fdim(double x, double y) #else double fdim(x,y) double x; double y; #endif { return (double) fdimf((float) x, (float) y); } #endif /* defined(_DOUBLE_IS_32BITS) */
Go to most recent revision | Compare with Previous | Blame | View Log