File: sf_fdim.c

package info (click to toggle)
picolibc 1.8-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm
  • size: 31,616 kB
  • sloc: ansic: 312,308; asm: 22,739; perl: 2,414; sh: 1,619; python: 1,019; pascal: 329; exp: 287; makefile: 164; xml: 40; cpp: 10
file content (19 lines) | stat: -rw-r--r-- 429 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
/* 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"

float fdimf(float x, float y)
{
  if (isnanf(x) || isnanf(y)) return(x+y);

  float z = x > y ? x - y : 0.0f;
  if (!isinf(x) && !isinf(y))
    z = check_oflowf(z);
  return z;
}

_MATH_ALIAS_f_ff(fdim)