paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 10:09:20 +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 The first criterium is the candidate that has the least
convertlevel 2 parameters. The next criterium is convertlevel 2 parameters. The next criterium is
the candidate that has the most exact parameters, next 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)} the last criterium is the most equal parameters. (DM)}
if candidates_left>1 then if candidates_left>1 then
begin begin
@ -2221,6 +2221,10 @@ implementation
if assigned(left) then if assigned(left) then
tcallparanode(left).det_registers; tcallparanode(left).det_registers;
{ return node }
if assigned(funcretrefnode) then
firstpass(funcretrefnode);
if assigned(procdefinition) and if assigned(procdefinition) and
(procdefinition.proccalloption=pocall_inline) then (procdefinition.proccalloption=pocall_inline) then
begin begin
@ -2583,7 +2587,11 @@ begin
end. end.
{ {
$Log$ $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 * Tcallnode.det_resulttype rewritten
Revision 1.87 2002/08/19 19:36:42 peter Revision 1.87 2002/08/19 19:36:42 peter