diff options
author | pierre <pierre@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2021-04-27 14:20:09 +0000 |
---|---|---|
committer | pierre <pierre@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2021-04-27 14:20:09 +0000 |
commit | 1cf576df7b09c8e02c6608281807fd95b6813160 (patch) | |
tree | c6ebfd9bc47d29f3e8ded602c0cce7d1898fef02 | |
parent | 140cd7445bcd9103090414e9223d11354a8de1c9 (diff) | |
download | fpc-1cf576df7b09c8e02c6608281807fd95b6813160.tar.gz |
Make sure nf_usercode_entry get transferred inside firstpass procedure
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@49279 3ad0048d-3df7-0310-abae-a5850022a9f2
-rw-r--r-- | compiler/pass_1.pas | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/compiler/pass_1.pas b/compiler/pass_1.pas index 2ac00dbc43..4d543a8e31 100644 --- a/compiler/pass_1.pas +++ b/compiler/pass_1.pas @@ -189,6 +189,7 @@ implementation { should the node be replaced? } if assigned(hp) then begin + hp.flags := hp.flags + (p.flags * [nf_usercode_entry]); p.free; { switch to new node } p:=hp; |