paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 11:29:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

* nicer error message

Browse Source
This commit is contained in:
florian 2022-10-02 20:46:56 +02:00
parent 7dc2a61788
commit 9a760db573
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/htypechk.pas
View File

@ -937,7 +937,7 @@ implementation
{ exit when no overloads are found } { exit when no overloads are found }
if (result=0) and generror then if (result=0) and generror then
begin begin
CGMessage3(parser_e_operator_not_overloaded_3,ld.typename,arraytokeninfo[optoken].str,rd.typename); CGMessage3(parser_e_operator_not_overloaded_3,ld.GetTypeName,arraytokeninfo[optoken].str,rd.GetTypeName);
candidates.free; candidates.free;
ppn.free; ppn.free;
ppn:=nil; ppn:=nil;