paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-12 20:33:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Corrected setting of the flag.

Browse Source
This commit is contained in:
Yuriy Sydorov 2021-11-02 20:33:34 +02:00
parent b78761efd3
commit 5b32c81bef
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/nflw.pas
View File

@ -2584,7 +2584,7 @@ implementation
begin
third:=cinlinenode.create(in_get_frame,false,nil);
current_addr:=clabelnode.create(cnothingnode.create,clabelsym.create('$raiseaddr'));
current_addr.toggleflag(nf_internal);
include(current_addr.flags,nf_internal);
addstatement(statements,current_addr);
right:=caddrnode.create(cloadnode.create(current_addr.labsym,current_addr.labsym.owner));