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

* Clarity over blocknode and VMT flags. nf_usercode_entry doesn't need to be cascaded in "firstpass" as TBlockNode.Simplify already does this

Browse Source
This commit is contained in:
J. Gareth "Curious Kit" Moreton 2024-03-01 00:09:14 +00:00 committed by florian
parent 1bba83cebb
commit 5ea60b97b1
2 changed files with 6 additions and 4 deletions

9
compiler/node.pas
View File

@ -228,7 +228,9 @@ interface
{ Node cannot be assigned to }
nf_no_lvalue,
{ this node is the user code entry, if a node with this flag is removed
during simplify, the flag must be moved to another node }
during simplify, the flag must be moved to another node. Though
normally applicable to block nodes, they can also appear on asm nodes
in the case of pure assembly routines }
nf_usercode_entry,
{ tderefnode }
@ -268,10 +270,11 @@ interface
{ tasmnode }
nf_get_asm_position,
{ tblocknode }
{ tblocknode / this is not node-specific because it can also appear on
implicit try/finally nodes }
nf_block_with_exit,
{ tloadvmtaddrnode }
{ tloadvmtaddrnode / tisnode }
nf_ignore_for_wpo, { we know that this loadvmtaddrnode cannot be used to construct a class instance }
{ node is derived from generic parameter }

1
compiler/pass_1.pas
View File

@ -196,7 +196,6 @@ 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;