paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 00:47:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

* addendum for Mantis #34333: also complain about number of arguments with the maximum number of arguments for Copy ( = 3 ) is exceeded

Browse Source 
git-svn-id: trunk@39836 -
This commit is contained in:
svenbarth 2018-09-27 19:44:35 +00:00
parent b886ee8d2c
commit d5f0d8e306
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

@ -1841,6 +1841,7 @@ implementation
{ the string variants all require 2 or 3 args, only the array one allows less }
minargs:=2;
maxargs:=3;
func:='';
if is_ansistring(paradef) then
begin
// set resultdef to argument def
@ -1884,7 +1885,7 @@ implementation
resultdef:=cshortstringtype;
func:='fpc_shortstr_copy';
end
else
else if counter<=maxargs then
begin
do_error(true,'',ppn.left.fileinfo);
exit(cerrornode.create);