old assignment operator

SCCS-vsn: usr.bin/pascal/pxp/error.c 5.2
SCCS-vsn: usr.bin/pascal/pxp/yymain.c 5.3
SCCS-vsn: usr.bin/pascal/pxp/pmon.c 5.2
SCCS-vsn: usr.bin/pascal/src/error.c 5.2
SCCS-vsn: usr.bin/pascal/src/string.c 5.4
SCCS-vsn: old/lex/sub1.c 4.3

diff --git a/usr/src/old/lex/sub1.c b/usr/src/old/lex/sub1.c
index ab75f6b..18c60cf 100644 (file)
--- a/usr/src/old/lex/sub1.c
+++ b/usr/src/old/lex/sub1.c
@@ -1,5 +1,5 @@
 #ifndef lint
 #ifndef lint

-static char sccsid[] = "@(#)sub1.c     4.2 (Berkeley) %G%";
+static char sccsid[] = "@(#)sub1.c     4.3 (Berkeley) %G%";

 #endif
 
 # include "ldefs.c"
 #endif
 
 # include "ldefs.c"


@@ -564,7 +564,7 @@ allprint(c)
                default:
                        if(!printable(c)){
                                printf("\\%-3o",c);
                default:
                        if(!printable(c)){
                                printf("\\%-3o",c);

-                               charc =+ 3;
+                               charc += 3;

                                }
                        else 
                                putchar(c);
                                }
                        else 
                                putchar(c);

diff --git a/usr/src/usr.bin/pascal/pxp/error.c b/usr/src/usr.bin/pascal/pxp/error.c
index 6887b39..9b84f95 100644 (file)
--- a/usr/src/usr.bin/pascal/pxp/error.c
+++ b/usr/src/usr.bin/pascal/pxp/error.c
@@ -5,7 +5,7 @@
  */
 
 #ifndef lint
  */
 
 #ifndef lint

-static char sccsid[] = "@(#)error.c    5.1 (Berkeley) %G%";
+static char sccsid[] = "@(#)error.c    5.2 (Berkeley) %G%";

 #endif not lint
 
 /*
 #endif not lint
 
 /*


@@ -100,7 +100,7 @@ error(a1, a2, a3, a4)
 #ifdef PI
        if (errpfx == ' ') {
                printf("  ");
 #ifdef PI
        if (errpfx == ' ') {
                printf("  ");

-               for (i = line; i >= 10; i =/ 10)
+               for (i = line; i >= 10; i /= 10)

                        putchar(' ');
                printf("... ");
        } else if (Enoline)
                        putchar(' ');
                printf("... ");
        } else if (Enoline)

diff --git a/usr/src/usr.bin/pascal/pxp/pmon.c b/usr/src/usr.bin/pascal/pxp/pmon.c
index f3b8e5a..125d0ba 100644 (file)
--- a/usr/src/usr.bin/pascal/pxp/pmon.c
+++ b/usr/src/usr.bin/pascal/pxp/pmon.c
@@ -5,7 +5,7 @@
  */
 
 #ifndef lint
  */
 
 #ifndef lint

-static char sccsid[] = "@(#)pmon.c     5.1 (Berkeley) %G%";
+static char sccsid[] = "@(#)pmon.c     5.2 (Berkeley) %G%";

 #endif not lint
 
 /*
 #endif not lint
 
 /*


@@ -137,7 +137,7 @@ getcore(fp)
        if (inf.type != 0 && inf.type != 1)
                goto format;
        if (inf.type)
        if (inf.type != 0 && inf.type != 1)
                goto format;
        if (inf.type)

-               inf.bp =- inf.off;
+               inf.bp -= inf.off;

        if (lseek(zfil, inf.bp + 02000, 0) < 0)
                goto format;
        if (read(zfil, &pxp, sizeof pxp) != sizeof pxp)
        if (lseek(zfil, inf.bp + 02000, 0) < 0)
                goto format;
        if (read(zfil, &pxp, sizeof pxp) != sizeof pxp)


@@ -147,7 +147,7 @@ getcore(fp)
                exit(1);
        }
        if (inf.type)
                exit(1);
        }
        if (inf.type)

-               pxp.buf =- inf.off;
+               pxp.buf -= inf.off;

        if (lseek(zfil, pxp.buf + 02000, 0) < 0)
                goto format;
        if (pmread() < 0)
        if (lseek(zfil, pxp.buf + 02000, 0) < 0)
                goto format;
        if (pmread() < 0)

diff --git a/usr/src/usr.bin/pascal/pxp/yymain.c b/usr/src/usr.bin/pascal/pxp/yymain.c
index 047bd23..48fb76e 100644 (file)
--- a/usr/src/usr.bin/pascal/pxp/yymain.c
+++ b/usr/src/usr.bin/pascal/pxp/yymain.c
@@ -5,7 +5,7 @@
  */
 
 #ifndef lint
  */
 
 #ifndef lint

-static char sccsid[] = "@(#)yymain.c   5.2 (Berkeley) %G%";
+static char sccsid[] = "@(#)yymain.c   5.3 (Berkeley) %G%";

 #endif not lint
 
 /*
 #endif not lint
 
 /*


@@ -166,7 +166,7 @@ magic2()
        pflush();
        lseek(ofil, 0l, 0);
        header.data_size = ( unsigned ) lc - header.txt_size;
        pflush();
        lseek(ofil, 0l, 0);
        header.data_size = ( unsigned ) lc - header.txt_size;

-       header.data_size =- sizeof header;
+       header.data_size -= sizeof header;

        write(ofil, &header, sizeof header);
        lseek(ofil, ( long ) ( HEAD_BYTES - sizeof ( short ) ) , 0);
        i = ( ( unsigned ) lc) - HEAD_BYTES;
        write(ofil, &header, sizeof header);
        lseek(ofil, ( long ) ( HEAD_BYTES - sizeof ( short ) ) , 0);
        i = ( ( unsigned ) lc) - HEAD_BYTES;

diff --git a/usr/src/usr.bin/pascal/src/error.c b/usr/src/usr.bin/pascal/src/error.c
index 6e14e69..cec2da6 100644 (file)
--- a/usr/src/usr.bin/pascal/src/error.c
+++ b/usr/src/usr.bin/pascal/src/error.c
@@ -5,7 +5,7 @@
  */
 
 #ifndef lint
  */
 
 #ifndef lint

-static char sccsid[] = "@(#)error.c    5.1 (Berkeley) %G%";
+static char sccsid[] = "@(#)error.c    5.2 (Berkeley) %G%";

 #endif not lint
 
 #include "whoami.h"
 #endif not lint
 
 #include "whoami.h"


@@ -135,7 +135,7 @@ yysetfile(name)
 
        if (lastname == name)
                return;
 
        if (lastname == name)
                return;

-       printed =| 1;
+       printed |= 1;

        gettime( name );
        printf("%s  %s:\n" , myctime( &tvec ) , name );
        lastname = name;
        gettime( name );
        printf("%s  %s:\n" , myctime( &tvec ) , name );
        lastname = name;

diff --git a/usr/src/usr.bin/pascal/src/string.c b/usr/src/usr.bin/pascal/src/string.c
index f324b2d..5508fd3 100644 (file)
--- a/usr/src/usr.bin/pascal/src/string.c
+++ b/usr/src/usr.bin/pascal/src/string.c
@@ -5,7 +5,7 @@
  */
 
 #ifndef lint
  */
 
 #ifndef lint

-static char sccsid[] = "@(#)string.c   5.3 (Berkeley) %G%";
+static char sccsid[] = "@(#)string.c   5.4 (Berkeley) %G%";

 #endif not lint
 
 #include "whoami.h"
 #endif not lint
 
 #include "whoami.h"


@@ -78,7 +78,7 @@ savestr(cp)
 #ifndef PI01
 #ifndef PXP
                *stract++ = strngp;
 #ifndef PI01
 #ifndef PXP
                *stract++ = strngp;

-               strmax =+ STRINC;
+               strmax += STRINC;

 #endif
 #endif
                strng = strngp;
 #endif
 #endif
                strng = strngp;


@@ -121,7 +121,7 @@ soffset(cp)
        for (i = STRINC, sp = strp; sp < stract; sp++) {
                if (cp >= *sp && cp < (*sp + STRINC))
                        return (i + (cp - *sp));
        for (i = STRINC, sp = strp; sp < stract; sp++) {
                if (cp >= *sp && cp < (*sp + STRINC))
                        return (i + (cp - *sp));

-               i =+ STRINC;
+               i += STRINC;

        }
        i = nlfund(cp);
        if (i != 0)
        }
        i = nlfund(cp);
        if (i != 0)