* also firstpass funcretrefnode if available. This was breaking the

asnode compilerproc code
This commit is contained in:
peter 2002-08-23 16:13:16 +00:00
parent 9b960198d0
commit 770b338833

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