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

compiler: fix translate_disp_call for cases with method calling with no arguments

Browse Source 
git-svn-id: trunk@14746 -
This commit is contained in:
paul 2010-01-19 09:50:25 +00:00
parent 7e0578c569
commit b16653e099
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/ncal.pas
View File

@ -327,9 +327,13 @@ implementation
paramssize:=0; paramssize:=0;
while assigned(para) do while assigned(para) do
begin begin
inc(paracount);
typecheckpass(para.left); typecheckpass(para.left);
{ if it is not a parameter then break the loop }
if para.left.nodetype=nothingn then
break;
inc(paracount);
{ insert some extra casts } { insert some extra casts }
if is_constintnode(para.left) and not(is_64bitint(para.left.resultdef)) then if is_constintnode(para.left) and not(is_64bitint(para.left.resultdef)) then
begin begin