From 7721995c71a089a8796aac9c6570dd6eed606d20 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Tue, 27 Apr 2021 14:20:09 +0000
Subject: [PATCH]  Make sure nf_usercode_entry get transferred inside firstpass
 procedure

git-svn-id: trunk@49279 -
---
 compiler/pass_1.pas | 1 +
 1 file changed, 1 insertion(+)

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;