From cc6bcf2d8bd70243bccc73c307c25f4ecc1282bd Mon Sep 17 00:00:00 2001 From: CSRG Date: Wed, 30 Mar 1983 00:21:23 -0800 Subject: [PATCH] BSD 4_2 development Work on file usr/src/usr.bin/lint/llib-lmp Work on file usr/src/usr.bin/lint/llib-lm Synthesized-from: CSRG/cd1/4.2 --- usr/src/usr.bin/lint/llib-lm | 30 +++++++++++++++++++++++++++ usr/src/usr.bin/lint/llib-lmp | 39 +++++++++++++++++++++++++++++++++++ 2 files changed, 69 insertions(+) create mode 100644 usr/src/usr.bin/lint/llib-lm create mode 100644 usr/src/usr.bin/lint/llib-lmp diff --git a/usr/src/usr.bin/lint/llib-lm b/usr/src/usr.bin/lint/llib-lm new file mode 100644 index 0000000000..26931c2ce8 --- /dev/null +++ b/usr/src/usr.bin/lint/llib-lm @@ -0,0 +1,30 @@ +/* %M% %I% %E% */ + /* LINTLIBRARY */ +double acos(x) double x; { return x; } +double asin(x) double x; { return x; } +double atan(x) double x; { return x; } +double atan2(x,y) double x,y; { return x; } +double cabs(z) struct {double x, y;} z; { return z.x; } +double ceil(x) double x; { return x; } +double cos(x) double x; { return x; } +double cosh(x) double x; { return x; } +double erf(x) double x; { return x; } +double erfc(x) double x; { return x; } +double exp(x) double x; { return x; } +double fabs(x) double x; { return x; } +double floor(x) double x; { return x; } +double gamma(x) double x; { return x; } +double hypot(x,y) double x,y; { return x; } +double j0(x) double x; { return x; } +double j1(x) double x; { return x; } +double jn(n,x) double x; { return x; } +double log(x) double x; { return x; } +double log10(x) double x; { return x; } +double pow(x,y) double x,y; { return x; } +double sin(x) double x; { return x; } +double sinh(x) double x; { return x; } +double sqrt(x) double x; { return x; } +double tanh(x) double x; { return x; } +double y0(x) double x; { return x; } +double y1(x) double x; { return x; } +double yn(n,x) double x; { return x; } diff --git a/usr/src/usr.bin/lint/llib-lmp b/usr/src/usr.bin/lint/llib-lmp new file mode 100644 index 0000000000..511daac1ee --- /dev/null +++ b/usr/src/usr.bin/lint/llib-lmp @@ -0,0 +1,39 @@ +/* %M% %I% %E% */ +/* LINTLIBRARY */ +#include +#include + gcd(a,b,c) MINT *a,*b,*c; {} + invert(a, b, c) MINT *a, *b, *c; {} + m_add(a,b,c) struct mint *a,*b,*c; {} + madd(a,b,c) struct mint *a,*b,*c; {} + m_sub(a,b,c) struct mint *a,*b,*c; {} + msub(a,b,c) struct mint *a,*b,*c; {} + mdiv(a,b,q,r) MINT *a,*b,*q,*r; {} +int m_dsb(q,n,a,b) short *a,*b; { return 0; } +long m_trq(v1,v2,u1,u2,u3) { return 0L; } + m_div(a,b,q,r) MINT *a,*b,*q,*r; {} +int m_in(a,b,f) MINT *a; FILE *f; { return EOF; } + m_out(a,b,f) MINT *a; FILE *f; {} + sdiv(a,n,q,r) MINT *a,*q; short *r; {} + s_div(a,n,q,r) MINT *a,*q; short *r; {} +int min(a) MINT *a; { return 0; } +int omin(a) MINT *a; { return 0; } + mout(a) MINT *a; {} + omout(a) MINT *a; {} + fmout(a,f) MINT *a; FILE *f; {} +int fmin(a,f) MINT *a; FILE *f; {} +int msqrt(a,b,r) MINT *a,*b,*r; { return 0; } + mult(a,b,c) struct mint *a,*b,*c; {} + m_mult(a,b,c) struct mint *a,*b,*c; {} + tradd(a,b,c) long c; int *a; union g {long xx; struct half yy;} *b; {} + pow(a,b,c,d) MINT *a,*b,*c,*d; {} + rpow(a,n,b) MINT *a,*b; {} + move(a,b) MINT *a,*b; {} + dummy(){} + /* VARARGS */ +short * xalloc(nint,s) char *s; { static short sh; return &sh; } + fatal(s) char *s; { /* NOTREACHED */ } + xfree(c) MINT *c; {} + mcan(a) MINT *a; {} +MINT * itom(n) { static MINT m; return &m; } +int mcmp(a,b) MINT *a,*b; { return 0; } -- 2.20.1