don't strip parity since its done with stdio.

SCCS-vsn: usr.bin/f77/libU77/fgetc_.c 1.5
SCCS-vsn: usr.bin/f77/libU77/getc_.c 1.4

diff --git a/usr/src/usr.bin/f77/libU77/fgetc_.c b/usr/src/usr.bin/f77/libU77/fgetc_.c
index 419842d..3835422 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/fgetc_.c
+++ b/usr/src/usr.bin/f77/libU77/fgetc_.c
@@ -1,5 +1,5 @@
 /*
 /*

-char id_fgetc[] = "@(#)fgetc_.c        1.4";
+char id_fgetc[] = "@(#)fgetc_.c        1.5";

  *
  * get a character from a logical unit bypassing formatted I/O
  *
  *
  * get a character from a logical unit bypassing formatted I/O
  *


@@ -37,6 +37,6 @@ long *u; char *c; long clen;
                clearerr(lu->ufd);
                return((long)i);
        }
                clearerr(lu->ufd);
                return((long)i);
        }

-       *c = i & 0177;
+       *c = i;

        return(0L);
 }
        return(0L);
 }

diff --git a/usr/src/usr.bin/f77/libU77/getc_.c b/usr/src/usr.bin/f77/libU77/getc_.c
index b813cf0..eddd815 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/getc_.c
+++ b/usr/src/usr.bin/f77/libU77/getc_.c
@@ -1,5 +1,5 @@
 /*
 /*

-char id_getc[] = "@(#)getc_.c  1.3";
+char id_getc[] = "@(#)getc_.c  1.4";

  *
  * get a character from the standard input
  *
  *
  * get a character from the standard input
  *


@@ -35,6 +35,6 @@ char *c; long clen;
                clearerr(lu->ufd);
                return((long)i);
        }
                clearerr(lu->ufd);
                return((long)i);
        }

-       *c = i & 0177;
+       *c = i;

        return(0L);
 }
        return(0L);
 }