Aren/NetBSD
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix a bunch of thinkos.

Browse Source
This commit is contained in:
mycroft 1993-08-14 19:31:23 +00:00
parent 791d253a44
commit a2da492c01
6 changed files with 11 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/libm/common_source/exp.c
View File

@ -33,7 +33,7 @@
#ifndef lint
/*static char sccsid[] = "from: @(#)exp.c 5.7 (Berkeley) 12/2/92";*/
static char rcsid[] = "$Id: exp.c,v 1.4 1993/08/14 19:21:14 mycroft Exp $";
static char rcsid[] = "$Id: exp.c,v 1.5 1993/08/14 19:31:23 mycroft Exp $";
#endif /* not lint */
/* EXP(X)
@ -159,7 +159,7 @@ double x;
else
/* exp(INF) is INF, exp(+big#) overflows to INF */
if (finite(x))
return(scalb(1.0, 5000);
return(scalb(1.0, 5000));
else
return(x);
}

4
lib/libm/common_source/exp__D.c
View File

@ -33,7 +33,7 @@
#ifndef lint
/*static char sccsid[] = "from: @(#)exp.c 5.7 (Berkeley) 12/2/92";*/
static char rcsid[] = "$Id: exp__D.c,v 1.1 1993/08/14 19:21:37 mycroft Exp $";
static char rcsid[] = "$Id: exp__D.c,v 1.2 1993/08/14 19:31:25 mycroft Exp $";
#endif /* not lint */
/* EXP(X)
@ -161,7 +161,7 @@ double x, c;
else
/* exp(INF) is INF, exp(+big#) overflows to INF */
if (finite(x))
return(scalb(1.0, 5000);
return(scalb(1.0, 5000));
else
return(x);
}

3
lib/libm/common_source/log.c
View File

@ -33,13 +33,12 @@
#ifndef lint
/*static char sccsid[] = "from: @(#)log.c 5.10 (Berkeley) 1/10/93";*/
static char rcsid[] = "$Id: log.c,v 1.4 1993/08/14 19:21:15 mycroft Exp $";
static char rcsid[] = "$Id: log.c,v 1.5 1993/08/14 19:31:25 mycroft Exp $";
#endif /* not lint */
#include <math.h>
#include <errno.h>
#include "mathimpl.h"
#include "log.h"
/* Table-driven natural logarithm.

8
lib/libm/common_source/log.h
View File

@ -29,13 +29,11 @@
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
* SUCH DAMAGE.
*
* from: @(#)log.c 5.10 (Berkeley) 1/10/93
* $Id: log.h,v 1.2 1993/08/14 19:31:26 mycroft Exp $
*/
#ifndef lint
/*static char sccsid[] = "from: @(#)log.c 5.10 (Berkeley) 1/10/93";*/
static char rcsid[] = "$Id: log.h,v 1.1 1993/08/14 19:21:39 mycroft Exp $";
#endif /* not lint */
#include <math.h>
#include <errno.h>

4
lib/libm/common_source/log__D.c
View File

@ -33,13 +33,12 @@
#ifndef lint
/*static char sccsid[] = "from: @(#)log.c 5.10 (Berkeley) 1/10/93";*/
static char rcsid[] = "$Id: log__D.c,v 1.1 1993/08/14 19:21:40 mycroft Exp $";
static char rcsid[] = "$Id: log__D.c,v 1.2 1993/08/14 19:31:27 mycroft Exp $";
#endif /* not lint */
#include <math.h>
#include <errno.h>
#include "mathimpl.h"
#include "log.h"
/* Table-driven natural logarithm.
@ -90,6 +89,7 @@ log__D(x) double x;
{
int m, j;
double F, f, g, q, u, u2, v, zero = 0.0, one = 1.0;
struct Double r;
double logb(), ldexp();
volatile double u1;

3
lib/libm/common_source/logtab.c
View File

@ -33,13 +33,12 @@
#ifndef lint
/*static char sccsid[] = "from: @(#)log.c 5.10 (Berkeley) 1/10/93";*/
static char rcsid[] = "$Id: logtab.c,v 1.1 1993/08/14 19:21:41 mycroft Exp $";
static char rcsid[] = "$Id: logtab.c,v 1.2 1993/08/14 19:31:28 mycroft Exp $";
#endif /* not lint */
#include <math.h>
#include <errno.h>
#include "mathimpl.h"
#include "log.h"
/* Table-driven natural logarithm.