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

+ foreachnode* must also iterate through the new introduced temp. initialization field

Browse Source 
git-svn-id: trunk@14764 -
This commit is contained in:
florian 2010-01-21 19:00:42 +00:00
parent ea6c6631a4
commit 69a23fe32a
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/nutils.pas
View File

@ -130,6 +130,10 @@ implementation
raisen: raisen:
{ frame tree } { frame tree }
result := foreachnode(traisenode(n).third,f,arg) or result; result := foreachnode(traisenode(n).third,f,arg) or result;
tempcreaten:
{ temp. initialization code }
if assigned(ttempcreatenode(n).tempinfo^.tempinitcode) then
result := foreachnode(ttempcreatenode(n).tempinfo^.tempinitcode,f,arg) or result;
casen: casen:
begin begin
for i := 0 to tcasenode(n).blocks.count-1 do for i := 0 to tcasenode(n).blocks.count-1 do
@ -209,6 +213,10 @@ implementation
raisen: raisen:
{ frame tree } { frame tree }
result := foreachnodestatic(traisenode(n).third,f,arg) or result; result := foreachnodestatic(traisenode(n).third,f,arg) or result;
tempcreaten:
{ temp. initialization code }
if assigned(ttempcreatenode(n).tempinfo^.tempinitcode) then
result := foreachnodestatic(ttempcreatenode(n).tempinfo^.tempinitcode,f,arg) or result;
casen: casen:
begin begin
for i := 0 to tcasenode(n).blocks.count-1 do for i := 0 to tcasenode(n).blocks.count-1 do