paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 05:09:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

Make sure nf_usercode_entry get transferred inside firstpass procedure

Browse Source 
git-svn-id: trunk@49279 -
This commit is contained in:
pierre 2021-04-27 14:20:09 +00:00
parent 423940afd7
commit 7721995c71
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/pass_1.pas
View File

@ -189,6 +189,7 @@ implementation
{ should the node be replaced? } { should the node be replaced? }
if assigned(hp) then if assigned(hp) then
begin begin
hp.flags := hp.flags + (p.flags * [nf_usercode_entry]);
p.free; p.free;
{ switch to new node } { switch to new node }
p:=hp; p:=hp;