Blame view

Modif/epsilon-master/liba/src/external/openbsd/w_lgammaf.c 634 Bytes
6663b6c9   adorian   projet complet av...
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
  /* w_lgammaf.c -- float version of w_lgamma.c.
   * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
   */
  
  /*
   * ====================================================
   * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
   *
   * Developed at SunPro, a Sun Microsystems, Inc. business.
   * Permission to use, copy, modify, and distribute this
   * software is freely granted, provided that this notice 
   * is preserved.
   * ====================================================
   */
  
  #include "math.h"
  #include "math_private.h"
  
  extern int signgam;
  
  float
  lgammaf(float x)
  {
  	return lgammaf_r(x,&signgam);
  }