https://gcc.gnu.org/g:2724766a111e3e422dda4fa94bca9e754af02af8
commit r17-4793-g2724766a111e3e422dda4fa94bca9e754af02af8 Author: Xavier Del Campo Romero <[email protected]> Date: Tue Sep 29 23:45:09 2026 +0200 cobol: Remove unused argument ERRNO-VAL This was a leftover from previous iterations of the COBRT-FILE-STATUS function. libgcobol/ChangeLog: * compat/gnu/cpy/cblproto.cpy: Remove unused parameter. * compat/gnu/lib/CBL_CLOSE_FILE.cbl: Likewise. * compat/gnu/lib/CBL_CREATE_FILE.cbl: Likewise. * compat/gnu/lib/CBL_DELETE_FILE.cbl: Likewise. * compat/gnu/lib/CBL_READ_FILE.cbl: Likewise. * compat/gnu/lib/CBL_WRITE_FILE.cbl: Likewise. * compat/gnu/lib/cobrt-file-status.cbl: Likewise. Diff: --- libgcobol/compat/gnu/cpy/cblproto.cpy | 1 - libgcobol/compat/gnu/lib/CBL_CLOSE_FILE.cbl | 1 - libgcobol/compat/gnu/lib/CBL_CREATE_FILE.cbl | 1 - libgcobol/compat/gnu/lib/CBL_DELETE_FILE.cbl | 1 - libgcobol/compat/gnu/lib/CBL_READ_FILE.cbl | 1 - libgcobol/compat/gnu/lib/CBL_WRITE_FILE.cbl | 1 - libgcobol/compat/gnu/lib/cobrt-file-status.cbl | 1 - 7 files changed, 7 deletions(-) diff --git a/libgcobol/compat/gnu/cpy/cblproto.cpy b/libgcobol/compat/gnu/cpy/cblproto.cpy index b63a44c7bac1..74eed80900dd 100644 --- a/libgcobol/compat/gnu/cpy/cblproto.cpy +++ b/libgcobol/compat/gnu/cpy/cblproto.cpy @@ -144,7 +144,6 @@ Function-Id. COBRT-FILE-STATUS prototype. Data Division. Linkage Section. - 01 ERRNO BINARY-LONG. 01 FILE-STATUS PIC X(2) COMP-5. Procedure Division diff --git a/libgcobol/compat/gnu/lib/CBL_CLOSE_FILE.cbl b/libgcobol/compat/gnu/lib/CBL_CLOSE_FILE.cbl index 8379d356f54f..4eaee3a9ac00 100644 --- a/libgcobol/compat/gnu/lib/CBL_CLOSE_FILE.cbl +++ b/libgcobol/compat/gnu/lib/CBL_CLOSE_FILE.cbl @@ -44,7 +44,6 @@ DATA DIVISION. WORKING-STORAGE SECTION. 77 FUNC-RETURN-VALUE Binary-Long. - 77 errno-val Binary-Long. LINKAGE SECTION. 01 file-handle PIC X(4) COMP-5. diff --git a/libgcobol/compat/gnu/lib/CBL_CREATE_FILE.cbl b/libgcobol/compat/gnu/lib/CBL_CREATE_FILE.cbl index 15b44cd3c85f..d3b8c7e90b17 100644 --- a/libgcobol/compat/gnu/lib/CBL_CREATE_FILE.cbl +++ b/libgcobol/compat/gnu/lib/CBL_CREATE_FILE.cbl @@ -45,7 +45,6 @@ DATA DIVISION. WORKING-STORAGE SECTION. 77 func-ret Binary-Long. - 77 errno-val Binary-Long. 77 lk-mode PIC 9(8) COMP-5. 01 ws-access-mode PIC 9(8) COMP-5. diff --git a/libgcobol/compat/gnu/lib/CBL_DELETE_FILE.cbl b/libgcobol/compat/gnu/lib/CBL_DELETE_FILE.cbl index 288f5eb57810..2f2709f6241f 100644 --- a/libgcobol/compat/gnu/lib/CBL_DELETE_FILE.cbl +++ b/libgcobol/compat/gnu/lib/CBL_DELETE_FILE.cbl @@ -38,7 +38,6 @@ DATA DIVISION. WORKING-STORAGE SECTION. 01 FUNC-RETURN-VAL USAGE IS BINARY-LONG. - 01 ERRNO-VAL USAGE IS BINARY-LONG. LINKAGE SECTION. 77 RETCODE PIC X(2) COMP-5. 01 FILE-PATH PIC X ANY LENGTH. diff --git a/libgcobol/compat/gnu/lib/CBL_READ_FILE.cbl b/libgcobol/compat/gnu/lib/CBL_READ_FILE.cbl index b3f5309160d9..8c331aa27e4f 100644 --- a/libgcobol/compat/gnu/lib/CBL_READ_FILE.cbl +++ b/libgcobol/compat/gnu/lib/CBL_READ_FILE.cbl @@ -50,7 +50,6 @@ 77 remaining-bytes Binary-Long. 77 bytes-read Binary-Long. 77 Lk-whence PIC S9(9) USAGE COMP-5 VALUE 0. - 77 errno-val Binary-Long. 01 statbuf. COPY statbuf. diff --git a/libgcobol/compat/gnu/lib/CBL_WRITE_FILE.cbl b/libgcobol/compat/gnu/lib/CBL_WRITE_FILE.cbl index c875b1e8ca11..60e3f66fd60b 100644 --- a/libgcobol/compat/gnu/lib/CBL_WRITE_FILE.cbl +++ b/libgcobol/compat/gnu/lib/CBL_WRITE_FILE.cbl @@ -50,7 +50,6 @@ 77 file-size Binary-Long. 77 Lk-whence PIC S9(9) USAGE COMP-5 VALUE 0. 77 func-return Binary-Long. - 77 errno-val Binary-Long. 77 remaining-bytes Binary-Long. 77 bytes-written Binary-Long. diff --git a/libgcobol/compat/gnu/lib/cobrt-file-status.cbl b/libgcobol/compat/gnu/lib/cobrt-file-status.cbl index 148ff7a9c7f0..757e508e40eb 100644 --- a/libgcobol/compat/gnu/lib/cobrt-file-status.cbl +++ b/libgcobol/compat/gnu/lib/cobrt-file-status.cbl @@ -6,7 +6,6 @@ WORKING-STORAGE SECTION. 01 FsErrno CONSTANT 1000000. LINKAGE SECTION. - 01 ERRNO BINARY-LONG. 01 FILE-STATUS PIC X(2) COMP-5. 01 REDEFINES FILE-STATUS. 03 MSB PIC X.
