[Bug modula2/110631] Bug in FIO.WriteCardinal

[cvs-commit at gcc dot gnu.org]

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

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

https://gcc.gnu.org/g:d1611c51dd7ce054eceb19fda3be72c2164aaa71

commit r13-7658-gd1611c51dd7ce054eceb19fda3be72c2164aaa71
Author: Gaius Mulley <gaiusmod2@gmail.com>
Date:   Sun Jul 30 21:44:49 2023 +0100

    PR modula2/110631 Bugfix to FIO WriteCardinal

    FIO.WriteCardinal fails to write binary data.  This patch fixes two
    bugs in FIO.mod and provides a testcase which writes and reads binary
    cardinals.  There was an off by one error when using HIGH (a) to
    determine the number of bytes and the dest/src pointers were switched
    when calling memcpy.

    gcc/m2/ChangeLog:

            PR modula2/110631
            * gm2-libs/FIO.def (ReadAny): Correct comment as
            HIGH (a) + 1 is number of bytes.
            (WriteAny): Correct comment as HIGH (a) + 1 is number of
            bytes.
            * gm2-libs/FIO.mod (ReadAny): Correct comment as
            HIGH (a) + 1 is number of bytes.  Also pass HIGH (a) + 1
            to BufferedRead.
            (WriteAny): Correct comment as HIGH (a) + 1 is number of
            bytes.  Also pass HIGH (a) + 1 to BufferedWrite.
            (BufferedWrite): Rename parameter a to src, rename variable
            t to dest.  Correct parameter order to memcpy.

    gcc/testsuite/ChangeLog:

            PR modula2/110631
            * gm2/pimlib/run/pass/testfiobinary.mod: New test.

    (cherry picked from commit 73cc6ce1294ec35e9322b1bbc91009cfc76f732b)

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