paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 20:11:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Str returns a nicer error (and corrects the position) if a non-ordinal type is passed into it

Browse Source
This commit is contained in:
J. Gareth "Curious Kit" Moreton 2025-05-06 16:46:37 +01:00 committed by FPK
parent 1a1ca72067
commit 95993ea7a4
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/ninl.pas
View File

@ -328,7 +328,8 @@ implementation
not(is_real or is_enum or not(is_real or is_enum or
(source.left.resultdef.typ=orddef)) then (source.left.resultdef.typ=orddef)) then
begin begin
CGMessagePos(fileinfo,parser_e_illegal_expression); CGMessagePos1(source.fileinfo,
type_e_integer_expr_expected,source.resultdef.typename);
exit; exit;
end; end;