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

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;