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

* the checks for no parameters are not needed for Insert() and Delete() as they take care of that themselves with an overload listing

Browse Source 
git-svn-id: trunk@37428 -
This commit is contained in:
svenbarth 2017-10-08 10:37:30 +00:00
parent 9d32f87ebb
commit c01b36a2fa
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/pinline.pas
View File

@ -632,7 +632,7 @@ implementation
end;
function inline_copy_insert_delete(nr:tinlinenumber;name:string) : tnode;
function inline_copy_insert_delete(nr:tinlinenumber;name:string;checkempty:boolean) : tnode;
var
paras : tnode;
{ for easy exiting if something goes wrong }
@ -642,7 +642,7 @@ implementation
consume(_LKLAMMER);
paras:=parse_paras(false,false,_RKLAMMER);
consume(_RKLAMMER);
if not assigned(paras) then
if not assigned(paras) and checkempty then
begin
CGMessage1(parser_e_wrong_parameter_size,name);
exit;
@ -654,19 +654,19 @@ implementation
function inline_copy: tnode;
begin
result:=inline_copy_insert_delete(in_copy_x,'Copy');
result:=inline_copy_insert_delete(in_copy_x,'Copy',true);
end;
function inline_insert: tnode;
begin
result:=inline_copy_insert_delete(in_insert_x_y_z,'Insert');
result:=inline_copy_insert_delete(in_insert_x_y_z,'Insert',false);
end;
function inline_delete: tnode;
begin
result:=inline_copy_insert_delete(in_delete_x_y_z,'Delete');
result:=inline_copy_insert_delete(in_delete_x_y_z,'Delete',false);
end;