Skip to content
Snippets Groups Projects
Commit d0e1e129 authored by Gaius Mulley's avatar Gaius Mulley
Browse files

PR modula2/114836 Avoid concatenation of error strings to aid error locale translation


This patch avoids a concatenation of error strings making locale
translation of the error message easier.

gcc/m2/ChangeLog:

	PR modula2/114836
	* gm2-compiler/M2Range.mod (FoldTypeAssign): Avoid error
	string concatenation.

Signed-off-by: default avatarGaius Mulley <gaiusmod2@gmail.com>
parent c96c2a30
No related branches found
No related tags found
No related merge requests found
...@@ -1706,20 +1706,17 @@ BEGIN ...@@ -1706,20 +1706,17 @@ BEGIN
THEN THEN
(* Expression type compatibility rules for pass by reference parameters. *) (* Expression type compatibility rules for pass by reference parameters. *)
compatible := ParameterTypeCompatible (tokenNo, compatible := ParameterTypeCompatible (tokenNo,
'{%4EN} parameter failure due to expression incompatibility ' + '{%4EN} parameter failure due to expression incompatibility between actual parameter {%3ad} and the {%4N} formal {%2ad} parameter in procedure {%1ad}',
'between actual parameter {%3ad} and the {%4N} formal {%2ad} parameter in procedure {%1ad}',
procedure, formal, actual, paramNo, TRUE) procedure, formal, actual, paramNo, TRUE)
ELSIF GetPIM () ELSIF GetPIM ()
THEN THEN
(* Assignment type compatibility rules for pass by value PIM parameters. *) (* Assignment type compatibility rules for pass by value PIM parameters. *)
compatible := ParameterTypeCompatible (tokenNo, compatible := ParameterTypeCompatible (tokenNo,
'{%4EN} parameter failure due to assignment incompatibility ' + '{%4EN} parameter failure due to assignment incompatibility between actual parameter {%3ad} and the {%4N} formal {%2ad} parameter in procedure {%1ad}',
'between actual parameter {%3ad} and the {%4N} formal {%2ad} parameter in procedure {%1ad}',
procedure, formal, actual, paramNo, FALSE) procedure, formal, actual, paramNo, FALSE)
ELSE ELSE
compatible := ParameterTypeCompatible (tokenNo, compatible := ParameterTypeCompatible (tokenNo,
'{%4EN} parameter failure due to parameter incompatibility ' + '{%4EN} parameter failure due to parameter incompatibility between actual parameter {%3ad} and the {%4N} formal {%2ad} parameter in procedure {%1ad}',
'between actual parameter {%3ad} and the {%4N} formal {%2ad} parameter in procedure {%1ad}',
procedure, formal, actual, paramNo, FALSE) procedure, formal, actual, paramNo, FALSE)
END ; END ;
IF compatible IF compatible
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment