update error messages.

SCCS-vsn: usr.bin/f77/libI77/f_errlist.c 1.6
SCCS-vsn: usr.bin/f77/libI77/f_errno.h 1.8

diff --git a/usr/src/usr.bin/f77/libI77/f_errlist.c b/usr/src/usr.bin/f77/libI77/f_errlist.c
index b235817..d4b1e52 100644 (file)
--- a/usr/src/usr.bin/f77/libI77/f_errlist.c
+++ b/usr/src/usr.bin/f77/libI77/f_errlist.c
@@ -1,5 +1,5 @@
 /*
 /*

-char id_f_errlist[] = "@(#)f_errlist.c 1.5";
+char id_f_errlist[] = "@(#)f_errlist.c 1.6";

  *
  * f77 I/O error messages
  */
  *
  * f77 I/O error messages
  */


@@ -8,10 +8,10 @@ char *f_errlist[] =
 {
 /* 100 */      "error in format",
 /* 101 */      "illegal unit number",
 {
 /* 100 */      "error in format",
 /* 101 */      "illegal unit number",

-/* 102 */      "formatted io not allowed",
-/* 103 */      "unformatted io not allowed",
-/* 104 */      "direct io not allowed",
-/* 105 */      "sequential io not allowed",
+/* 102 */      "formatted i/o not allowed",
+/* 103 */      "unformatted i/o not allowed",
+/* 104 */      "direct i/o not allowed",
+/* 105 */      "sequential i/o not allowed",

 /* 106 */      "can't backspace file",
 /* 107 */      "off beginning of record",
 /* 108 */      "can't stat file",
 /* 106 */      "can't backspace file",
 /* 107 */      "off beginning of record",
 /* 108 */      "can't stat file",


@@ -22,7 +22,7 @@ char *f_errlist[] =
 /* 113 */      "out of free space",
 /* 114 */      "unit not connected",
 /* 115 */      "invalid data for integer format term",
 /* 113 */      "out of free space",
 /* 114 */      "unit not connected",
 /* 115 */      "invalid data for integer format term",

-/* 116 */      "blank logical input field",
+/* 116 */      "invalid data for logical format term",

 /* 117 */      "'new' file exists",
 /* 118 */      "can't find 'old' file",
 /* 119 */      "opening too many files or unknown system error",
 /* 117 */      "'new' file exists",
 /* 118 */      "can't find 'old' file",
 /* 119 */      "opening too many files or unknown system error",

diff --git a/usr/src/usr.bin/f77/libI77/f_errno.h b/usr/src/usr.bin/f77/libI77/f_errno.h
index cd05d93..c8edeb4 100644 (file)
--- a/usr/src/usr.bin/f77/libI77/f_errno.h
+++ b/usr/src/usr.bin/f77/libI77/f_errno.h
@@ -1,5 +1,5 @@
 /*
 /*

-char id_f_errno[] = "@(#)f_errno.h     1.7";
+char id_f_errno[] = "@(#)f_errno.h     1.8";

  *
  * f77 I/O error definitions
  */
  *
  * f77 I/O error definitions
  */


@@ -13,10 +13,10 @@ extern int f_nerr;
 
 #define F_ERFMT                100     /* error in format */
 #define F_ERUNIT       101     /* illegal unit number */
 
 #define F_ERFMT                100     /* error in format */
 #define F_ERUNIT       101     /* illegal unit number */

-#define F_ERNOFIO      102     /* formatted io not allowed */
-#define F_ERNOUIO      103     /* unformatted io not allowed */
-#define F_ERNODIO      104     /* direct io not allowed */
-#define F_ERNOSIO      105     /* sequential io not allowed */
+#define F_ERNOFIO      102     /* formatted i/o not allowed */
+#define F_ERNOUIO      103     /* unformatted i/o not allowed */
+#define F_ERNODIO      104     /* direct i/o not allowed */
+#define F_ERNOSIO      105     /* sequential i/o not allowed */

 #define F_ERNOBKSP     106     /* can't backspace file */
 #define F_ERBREC       107     /* off beginning of record */
 #define F_ERSTAT       108     /* can't stat file */
 #define F_ERNOBKSP     106     /* can't backspace file */
 #define F_ERBREC       107     /* off beginning of record */
 #define F_ERSTAT       108     /* can't stat file */


@@ -27,7 +27,7 @@ extern int f_nerr;
 #define F_ERSPACE      113     /* out of free space */
 #define F_ERNOPEN      114     /* unit not connected */
 #define F_ERRICHR      115     /* invalid data for integer format term */
 #define F_ERSPACE      113     /* out of free space */
 #define F_ERNOPEN      114     /* unit not connected */
 #define F_ERRICHR      115     /* invalid data for integer format term */

-#define F_ERLOGIF      116     /* blank logical input field */
+#define F_ERLOGIF      116     /* invalid data for logical format term */

 #define F_ERNEWF       117     /* 'new' file exists */
 #define F_EROLDF       118     /* can't find 'old' file */
 #define F_ERSYS                119     /* opening too many files or unknown system error */
 #define F_ERNEWF       117     /* 'new' file exists */
 #define F_EROLDF       118     /* can't find 'old' file */
 #define F_ERSYS                119     /* opening too many files or unknown system error */