paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 13:49:12 +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

10
compiler/ncal.pas
View File

@ -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