mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-07 20:21:42 +02:00
* take care of tempinitcode when creating def information for tempcreatenodes
git-svn-id: trunk@26581 -
This commit is contained in:
parent
cb8100bccf
commit
c44b5d1043
@ -115,6 +115,14 @@ unit optdfa;
|
|||||||
function AddDefUse(var n: tnode; arg: pointer): foreachnoderesult;
|
function AddDefUse(var n: tnode; arg: pointer): foreachnoderesult;
|
||||||
begin
|
begin
|
||||||
case n.nodetype of
|
case n.nodetype of
|
||||||
|
tempcreaten:
|
||||||
|
begin
|
||||||
|
if assigned(ttempcreatenode(n).tempinfo^.tempinitcode) then
|
||||||
|
begin
|
||||||
|
pdfainfo(arg)^.map.Add(n);
|
||||||
|
DFASetInclude(pdfainfo(arg)^.def^,n.optinfo^.index);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
temprefn,
|
temprefn,
|
||||||
loadn:
|
loadn:
|
||||||
begin
|
begin
|
||||||
|
Loading…
Reference in New Issue
Block a user