mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-27 20:11:02 +02:00
* cast raise node only to a tertiary node in foreach, makes adding more tertiary nodes easier
git-svn-id: trunk@22096 -
This commit is contained in:
parent
b78f9826fb
commit
41e8da998c
@ -153,7 +153,7 @@ implementation
|
||||
end;
|
||||
raisen:
|
||||
{ frame tree }
|
||||
result := foreachnode(traisenode(n).third,f,arg) or result;
|
||||
result := foreachnode(ttertiarynode(n).third,f,arg) or result;
|
||||
tempcreaten:
|
||||
{ temp. initialization code }
|
||||
if assigned(ttempcreatenode(n).tempinfo^.tempinitcode) then
|
||||
@ -250,7 +250,7 @@ implementation
|
||||
end;
|
||||
raisen:
|
||||
{ frame tree }
|
||||
result := foreachnodestatic(traisenode(n).third,f,arg) or result;
|
||||
result := foreachnodestatic(ttertiarynode(n).third,f,arg) or result;
|
||||
tempcreaten:
|
||||
{ temp. initialization code }
|
||||
if assigned(ttempcreatenode(n).tempinfo^.tempinitcode) then
|
||||
|
Loading…
Reference in New Issue
Block a user