Subversion Repositories Kolibri OS

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
3362 Serge 1
/* 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
FUNCTION
8
<>, <>--minimum
9
INDEX
10
	fmin
11
INDEX
12
	fminf
13
 
14
ANSI_SYNOPSIS
15
	#include 
16
	double fmin(double <[x]>, double <[y]>);
17
	float fminf(float <[x]>, float <[y]>);
18
 
19
DESCRIPTION
20
The <> functions determine the minimum numeric value of their arguments.
21
NaN arguments are treated as missing data:  if one argument is a NaN and the
22
other numeric, then the <> functions choose the numeric value.
23
 
24
RETURNS
25
The <> functions return the minimum numeric value of their arguments.
26
 
27
PORTABILITY
28
ANSI C, POSIX.
29
 
30
*/
31
 
32
#include "fdlibm.h"
33
 
34
#ifndef _DOUBLE_IS_32BITS
35
 
36
#ifdef __STDC__
37
	double fmin(double x, double y)
38
#else
39
	double fmin(x,y)
40
	double x;
41
	double y;
42
#endif
43
{
44
  if (__fpclassifyd(x) == FP_NAN)
45
    return y;
46
  if (__fpclassifyd(y) == FP_NAN)
47
    return x;
48
 
49
  return x < y ? x : y;
50
}
51
 
52
#endif /* _DOUBLE_IS_32BITS */