diff --git a/compiler/nutils.pas b/compiler/nutils.pas index 6b2c0c3b54..b4dbdba1ca 100644 --- a/compiler/nutils.pas +++ b/compiler/nutils.pas @@ -130,6 +130,10 @@ implementation raisen: { frame tree } 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: begin for i := 0 to tcasenode(n).blocks.count-1 do @@ -209,6 +213,10 @@ implementation raisen: { frame tree } 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: begin for i := 0 to tcasenode(n).blocks.count-1 do