paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-07 01:59:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

* check the amount of paras for Str()

Browse Source
This commit is contained in:
peter 1998-12-30 22:13:13 +00:00
parent c6cf158f60
commit f73ad7cb37
1 changed files with 81 additions and 76 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/tcinl.pas
View File

@ -647,10 +647,15 @@ implementation
begin
procinfo.flags:=procinfo.flags or pi_do_call;
p^.resulttype:=voiddef;
if assigned(p^.left) then
{ check the amount of parameters }
if not(assigned(p^.left)) or
not(assigned(p^.left^.right)) then
begin
hp:=p^.left^.right;
CGMessage(parser_e_wrong_parameter_size);
exit;
end;
{ first pass just the string for first local use }
hp:=p^.left^.right;
must_be_valid:=false;
count_ref:=true;
p^.left^.right:=nil;
@ -725,9 +730,6 @@ implementation
{ for first local use }
must_be_valid:=false;
count_ref:=true;
end
else
CGMessage(parser_e_illegal_parameter_list);
{ pass all parameters again for the typeconversions }
if codegenerror then
exit;
@ -891,7 +893,10 @@ implementation
end.
{
$Log$
Revision 1.12 1998-12-15 10:23:31 peter
Revision 1.13 1998-12-30 22:13:13 peter
* check the amount of paras for Str()
Revision 1.12 1998/12/15 10:23:31 peter
+ -iSO, -iSP, -iTO, -iTP
Revision 1.11 1998/12/11 23:36:08 florian