From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <gcc-bugzilla@gcc.gnu.org>
Received: by sourceware.org (Postfix, from userid 48)
	id 40BB53857038; Tue,  9 May 2023 17:17:37 +0000 (GMT)
DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 40BB53857038
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gcc.gnu.org;
	s=default; t=1683652658;
	bh=1NyQNCOwer00OcG+WIUFFX7mITXW0wFx1nKMUg++6sk=;
	h=From:To:Subject:Date:In-Reply-To:References:From;
	b=SWXLR29PyCANpKHF4QnbKVu7Co8FSOlC5/w19ZTTpbESLgJR7l3ZgwMRJxqZA/Ylw
	 mNnGbgPtOaBkKTI7H8RB7Ke0Xun0gJo/a7CIs6QJ7YeaV4tB0kDGyvzEjd7ClLp+NX
	 1SdwhBphkPRNw3W6KdgTTUk2Jx4AQbHIL14AB5yI=
From: "cvs-commit at gcc dot gnu.org" <gcc-bugzilla@gcc.gnu.org>
To: gcc-bugs@gcc.gnu.org
Subject: [Bug modula2/109779] isolib SkipLine skips the first character of
 the successive line
Date: Tue, 09 May 2023 17:17:36 +0000
X-Bugzilla-Reason: CC
X-Bugzilla-Type: changed
X-Bugzilla-Watch-Reason: None
X-Bugzilla-Product: gcc
X-Bugzilla-Component: modula2
X-Bugzilla-Version: 14.0
X-Bugzilla-Keywords: 
X-Bugzilla-Severity: normal
X-Bugzilla-Who: cvs-commit at gcc dot gnu.org
X-Bugzilla-Status: ASSIGNED
X-Bugzilla-Resolution: 
X-Bugzilla-Priority: P3
X-Bugzilla-Assigned-To: gaius at gcc dot gnu.org
X-Bugzilla-Target-Milestone: ---
X-Bugzilla-Flags: 
X-Bugzilla-Changed-Fields: 
Message-ID: <bug-109779-4-cSkKBoyj4L@http.gcc.gnu.org/bugzilla/>
In-Reply-To: <bug-109779-4@http.gcc.gnu.org/bugzilla/>
References: <bug-109779-4@http.gcc.gnu.org/bugzilla/>
Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable
X-Bugzilla-URL: http://gcc.gnu.org/bugzilla/
Auto-Submitted: auto-generated
MIME-Version: 1.0
List-Id: <gcc-bugs.sourceware.org>

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=3D109779

--- Comment #3 from CVS Commits <cvs-commit at gcc dot gnu.org> ---
The master branch has been updated by Gaius Mulley <gaius@gcc.gnu.org>:

https://gcc.gnu.org/g:434dade5a11f63533cbf6059a862856c9b11c711

commit r14-620-g434dade5a11f63533cbf6059a862856c9b11c711
Author: Gaius Mulley <gaiusmod2@gmail.com>
Date:   Tue May 9 18:17:13 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.

    Signed-off-by: Gaius Mulley <gaiusmod2@gmail.com>=