https://gcc.gnu.org/bugzilla/show_bug.cgi?id=109779
--- Comment #5 from CVS Commits <cvs-commit at gcc dot gnu.org> --- The releases/gcc-13 branch has been updated by Gaius Mulley <ga...@gcc.gnu.org>: https://gcc.gnu.org/g:41e3fd01c204563fc892cd2e7606d01f6467c3e5 commit r13-7623-g41e3fd01c204563fc892cd2e7606d01f6467c3e5 Author: Gaius Mulley <gaiusm...@gmail.com> Date: Fri Jul 28 17:51:53 2023 +0100 PR modula2/109779 isolib SkipLine skips the first character of the successive line This is a patch for the m2iso library to prevent SkipLine from consuming the next character on the next line. gcc/m2/ChangeLog: PR modula2/109779 * gm2-libs-iso/RTgen.mod (doLook): Remove old. Remove re-assignment of result. * gm2-libs-iso/TextIO.mod (CanRead): Rename into ... (CharAvailable): ... this. (DumpState): New procedure. (SetResult): Rename as SetNul. (WasGoodChar): Rename into ... (EofOrEoln): ... this. (SkipLine): Skip over the newline. (ReadString): Flip THEN ELSE statements after testing for EofOrEoln. (ReadRestLine): Flip THEN ELSE statements after testing for EofOrEoln. gcc/testsuite/ChangeLog: PR modula2/109779 * gm2/isolib/run/pass/skiplinetest.mod: New test. (cherry picked from commit 434dade5a11f63533cbf6059a862856c9b11c711) Signed-off-by: Gaius Mulley <gaiusm...@gmail.com>
