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

* also firstpass funcretrefnode if available. This was breaking the

Browse Source 
asnode compilerproc code
This commit is contained in:
peter 2002-08-23 16:13:16 +00:00
parent 9b960198d0
commit 770b338833
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/ncal.pas
View File

@ -1093,7 +1093,7 @@ implementation
The first criterium is the candidate that has the least
convertlevel 2 parameters. The next criterium is
the candidate that has the most exact parameters, next
criterium is the least ordinal space and
criterium is the least ordinal space and
the last criterium is the most equal parameters. (DM)}
if candidates_left>1 then
begin
@ -2221,6 +2221,10 @@ implementation
if assigned(left) then
tcallparanode(left).det_registers;
{ return node }
if assigned(funcretrefnode) then
firstpass(funcretrefnode);
if assigned(procdefinition) and
(procdefinition.proccalloption=pocall_inline) then
begin
@ -2583,7 +2587,11 @@ begin
end.
{
$Log$
Revision 1.88 2002-08-20 10:31:26 daniel
Revision 1.89 2002-08-23 16:13:16 peter
* also firstpass funcretrefnode if available. This was breaking the
asnode compilerproc code
Revision 1.88 2002/08/20 10:31:26 daniel
* Tcallnode.det_resulttype rewritten
Revision 1.87 2002/08/19 19:36:42 peter