SCCS-vsn: usr.bin/f77/libU77/fgetc_.c 1.5
SCCS-vsn: usr.bin/f77/libU77/getc_.c 1.4
/*
-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
*
clearerr(lu->ufd);
return((long)i);
}
- *c = i & 0177;
+ *c = i;
return(0L);
}
/*
-char id_getc[] = "@(#)getc_.c 1.3";
+char id_getc[] = "@(#)getc_.c 1.4";
*
* get a character from the standard input
*
clearerr(lu->ufd);
return((long)i);
}
- *c = i & 0177;
+ *c = i;
return(0L);
}