[Bug modula2/119192] ICE if TBITSIZE is used in an expression

[cvs-commit at gcc dot gnu.org via Gcc-bugs]

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

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

https://gcc.gnu.org/g:40a4f3dead623db86bc8f7255cbe524701f4aeb0

commit r15-7931-g40a4f3dead623db86bc8f7255cbe524701f4aeb0
Author: Gaius Mulley <gaiusm...@gmail.com>
Date:   Mon Mar 10 17:37:41 2025 +0000

    PR modula2/119192 ICE if TBITSIZE is used in an expression

    This patch fixes an ICE which will occur is TBITSIZE is used
    within an expression.

    gcc/m2/ChangeLog:

            PR modula2/119192
            * gm2-compiler/M2GCCDeclare.def (TryDeclareType): New procedure.
            * gm2-compiler/M2GCCDeclare.mod (IsAnyType): New procedure.
            (TryDeclareType): Ditto.
            * gm2-compiler/M2GenGCC.mod (FoldTBitsize): New procedure.
            (FoldStandardFunction): Call FoldTBitsize.
            * gm2-gcc/m2expr.cc (BuildTBitSize): Improve comment.
            (m2expr_BuildSystemTBitSize): New function.
            * gm2-gcc/m2expr.def (BuildSystemTBitSize): New procedure
            function.
            * gm2-gcc/m2expr.h (m2expr_BuildSystemTBitSize): New function
            prototype.

    gcc/testsuite/ChangeLog:

            PR modula2/119192
            * gm2/sets/run/pass/simplepacked.mod: Uncomment asserts.

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