paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-04 18:50:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

* cast raise node only to a tertiary node in foreach, makes adding more tertiary nodes easier

Browse Source 
git-svn-id: trunk@22096 -
This commit is contained in:
florian 2012-08-15 18:22:47 +00:00
parent b78f9826fb
commit 41e8da998c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/nutils.pas
View File

@ -153,7 +153,7 @@ implementation
end; end;
raisen: raisen:
{ frame tree } { frame tree }
result := foreachnode(traisenode(n).third,f,arg) or result; result := foreachnode(ttertiarynode(n).third,f,arg) or result;
tempcreaten: tempcreaten:
{ temp. initialization code } { temp. initialization code }
if assigned(ttempcreatenode(n).tempinfo^.tempinitcode) then if assigned(ttempcreatenode(n).tempinfo^.tempinitcode) then
@ -250,7 +250,7 @@ implementation
end; end;
raisen: raisen:
{ frame tree } { frame tree }
result := foreachnodestatic(traisenode(n).third,f,arg) or result; result := foreachnodestatic(ttertiarynode(n).third,f,arg) or result;
tempcreaten: tempcreaten:
{ temp. initialization code } { temp. initialization code }
if assigned(ttempcreatenode(n).tempinfo^.tempinitcode) then if assigned(ttempcreatenode(n).tempinfo^.tempinitcode) then