paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-31 01:11:29 +01:00
Code Issues Packages Projects Releases Wiki Activity

* tp procvar support for ifn,whilerepeatn

Browse Source 
git-svn-id: trunk@707 -
This commit is contained in:
peter 2005-07-20 06:49:14 +00:00
parent 376865d041
commit e64cc2fbbd
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/nflw.pas
View File

@ -227,7 +227,7 @@ implementation
globtype,systems, globtype,systems,
cutils,verbose,globals, cutils,verbose,globals,
symconst,paramgr,defcmp,defutil,htypechk,pass_1, symconst,paramgr,defcmp,defutil,htypechk,pass_1,
ncal,nadd,ncon,nmem,nld,ncnv,nbas,cgobj, ncal,nadd,ncon,nmem,nld,ncnv,nbas,cgobj,nutils,
{$ifdef state_tracking} {$ifdef state_tracking}
nstate, nstate,
{$endif} {$endif}
@ -364,6 +364,10 @@ implementation
resulttype:=voidtype; resulttype:=voidtype;
resulttypepass(left); resulttypepass(left);
{ tp procvar support }
maybe_call_procvar(left,true);
{A not node can be removed.} {A not node can be removed.}
if left.nodetype=notn then if left.nodetype=notn then
begin begin
@ -545,6 +549,10 @@ implementation
resulttype:=voidtype; resulttype:=voidtype;
resulttypepass(left); resulttypepass(left);
{ tp procvar support }
maybe_call_procvar(left,true);
{ if path } { if path }
if assigned(right) then if assigned(right) then
resulttypepass(right); resulttypepass(right);