BSD 4_3 release

[unix-history] / usr / src / usr.lib / libmp / mout.c

diff --git a/usr/src/usr.lib/libmp/mout.c b/usr/src/usr.lib/libmp/mout.c
index c074d94..e002c8f 100644 (file)
--- a/usr/src/usr.lib/libmp/mout.c
+++ b/usr/src/usr.lib/libmp/mout.c
@@ -1,4 +1,6 @@
-/*     @(#)mout.c      4.2     6/14/83 */
+#ifndef lint
+static char sccsid[] = "@(#)mout.c     5.3 (Berkeley) 3/2/87";
+#endif not lint

 
 #include <stdio.h>
 #include <mp.h>
 
 #include <stdio.h>
 #include <mp.h>


@@ -17,7 +19,7 @@ m_in(a,b,f) MINT *a; FILE *f;
        while((c=getc(f))!=EOF)
        switch(c)
        {
        while((c=getc(f))!=EOF)
        switch(c)
        {

-       case '\\':      getc(f);
+       case '\\':      (void)getc(f);

                continue;
        case '\t':
        case '\n': a->len *= sign;
                continue;
        case '\t':
        case '\n': a->len *= sign;


@@ -46,7 +48,7 @@ m_out(a,b,f) MINT *a; FILE *f;
 {      int sign,xlen,i;
        short r;
        MINT x;
 {      int sign,xlen,i;
        short r;
        MINT x;

-       char *obuf;
+       char *obuf, *malloc();

        register char *bp;
        sign=1;
        xlen=a->len;
        register char *bp;
        sign=1;
        xlen=a->len;


@@ -61,12 +63,12 @@ m_out(a,b,f) MINT *a; FILE *f;
        x.len=xlen;
        x.val=xalloc(xlen,"m_out");
        for(i=0;i<xlen;i++) x.val[i]=a->val[i];
        x.len=xlen;
        x.val=xalloc(xlen,"m_out");
        for(i=0;i<xlen;i++) x.val[i]=a->val[i];

-       obuf=(char *)malloc(7*xlen);
+       obuf=malloc(7*(unsigned)xlen);

        bp=obuf+7*xlen-1;
        *bp--=0;
        while(x.len>0)
        {       for(i=0;i<10&&x.len>0;i++)
        bp=obuf+7*xlen-1;
        *bp--=0;
        while(x.len>0)
        {       for(i=0;i<10&&x.len>0;i++)

-               {       sdiv(&x,b,&x,&r);
+               {       sdiv(&x,(short)b,&x,&r);

                        *bp--=r+'0';
                }
                if(x.len>0) *bp--=' ';
                        *bp--=r+'0';
                }
                if(x.len>0) *bp--=' ';


@@ -77,7 +79,7 @@ m_out(a,b,f) MINT *a; FILE *f;
        FREE(x)
        return;
 }
        FREE(x)
        return;
 }

-sdiv(a,n,q,r) MINT *a,*q; short *r;
+sdiv(a,n,q,r) MINT *a,*q; short n; short *r;

 {      MINT x,y;
        int sign;
        sign=1;
 {      MINT x,y;
        int sign;
        sign=1;


@@ -98,7 +100,7 @@ sdiv(a,n,q,r) MINT *a,*q; short *r;
        *r = *r*sign;
        return;
 }
        *r = *r*sign;
        return;
 }

-s_div(a,n,q,r) MINT *a,*q; short *r;
+s_div(a,n,q,r) MINT *a,*q; short n; short *r;

 {      int qlen,i;
        long int x;
        short *qval;
 {      int qlen,i;
        long int x;
        short *qval;