FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
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: Gaius Mulley <gaiusmod2@gmail.com>
This commit is contained in:
Gaius Mulley 2024-04-25 18:31:55 +01:00
parent c96c2a304b
commit d0e1e1291b
1 changed files with 3 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
gcc/m2/gm2-compiler/M2Range.mod
View file

@ -1706,20 +1706,17 @@ BEGIN
THEN
(* Expression type compatibility rules for pass by reference parameters. *)
compatible := ParameterTypeCompatible (tokenNo,
'{%4EN} parameter failure due to expression incompatibility ' +
'between actual parameter {%3ad} and the {%4N} formal {%2ad} parameter in procedure {%1ad}',
'{%4EN} parameter failure due to expression incompatibility between actual parameter {%3ad} and the {%4N} formal {%2ad} parameter in procedure {%1ad}',
procedure, formal, actual, paramNo, TRUE)
ELSIF GetPIM ()
THEN
(* Assignment type compatibility rules for pass by value PIM parameters. *)
compatible := ParameterTypeCompatible (tokenNo,
'{%4EN} parameter failure due to assignment incompatibility ' +
'between actual parameter {%3ad} and the {%4N} formal {%2ad} parameter in procedure {%1ad}',
'{%4EN} parameter failure due to assignment incompatibility between actual parameter {%3ad} and the {%4N} formal {%2ad} parameter in procedure {%1ad}',
procedure, formal, actual, paramNo, FALSE)
ELSE
compatible := ParameterTypeCompatible (tokenNo,
'{%4EN} parameter failure due to parameter incompatibility ' +
'between actual parameter {%3ad} and the {%4N} formal {%2ad} parameter in procedure {%1ad}',
'{%4EN} parameter failure due to parameter incompatibility between actual parameter {%3ad} and the {%4N} formal {%2ad} parameter in procedure {%1ad}',
procedure, formal, actual, paramNo, FALSE)
END ;
IF compatible