https://gcc.gnu.org/g:db8b92d8d61de408e14a4aebf5a777734936699d
commit r16-2442-gdb8b92d8d61de408e14a4aebf5a777734936699d
Author: Gaius Mulley <gaiusm...@gmail.com>
Date: Wed Jul 23 10:30:35 2025 +0100
[modula2] Add return to remove build warning
This patch adds a return statement to M2Exception which removes a
build warning.
gcc/m2/ChangeLog:
* gm2-libs/M2EXCEPTION.mod (M2Exception): Add return
exException in case Raise completes.
Signed-off-by: Gaius Mulley <gaiusm...@gmail.com>
Diff:
---
gcc/m2/gm2-libs/M2EXCEPTION.mod | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/gcc/m2/gm2-libs/M2EXCEPTION.mod b/gcc/m2/gm2-libs/M2EXCEPTION.mod
index a17310f5fe3c..e92b16d406ab 100644
--- a/gcc/m2/gm2-libs/M2EXCEPTION.mod
+++ b/gcc/m2/gm2-libs/M2EXCEPTION.mod
@@ -33,7 +33,7 @@ FROM RTExceptions IMPORT EHBlock, GetExceptionBlock,
GetNumber, Raise,
(* If the program or coroutine is in the exception state then return the
enumeration
value representing the exception cause. If it is not in the exception
state then
- raises and exception (exException). *)
+ raises an exException exception. *)
PROCEDURE M2Exception () : M2Exceptions;
VAR
@@ -45,7 +45,8 @@ BEGIN
IF n = MAX (CARDINAL)
THEN
Raise (ORD (exException), ADR (__FILE__), __LINE__, __COLUMN__, ADR
(__FUNCTION__),
- ADR ('current coroutine is not in the exceptional execution
state'))
+ ADR ('current coroutine is not in the exceptional execution
state')) ;
+ RETURN exException
ELSE
RETURN VAL (M2Exceptions, n)
END
