paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-30 15:40:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ introduce the anf_ofs address node flag - indicates that the node was

Browse Source 
generated by ofs()

git-svn-id: trunk@38670 -
This commit is contained in:
nickysn 2018-04-03 15:28:27 +00:00
parent c9aecb8e94
commit 213e61eae5
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/nmem.pas
View File

@ -69,9 +69,8 @@ interface
tloadparentfpnodeclass = class of tloadparentfpnode; tloadparentfpnodeclass = class of tloadparentfpnode;
taddrnodeflag = ( taddrnodeflag = (
anf_dummyflag { todo: remove this, when the first real addrnode flag { generated by the Ofs() internal function }
is added (this is just a dummy element, because the anf_ofs
enum cannot be empty) }
); );
taddrnodeflags = set of taddrnodeflag; taddrnodeflags = set of taddrnodeflag;

1
compiler/pexpr.pas
View File

@ -626,6 +626,7 @@ implementation
if token<>_RKLAMMER then if token<>_RKLAMMER then
p1:=sub_expr(opcompare,[ef_accept_equal],p1); p1:=sub_expr(opcompare,[ef_accept_equal],p1);
p1:=caddrnode.create(p1); p1:=caddrnode.create(p1);
include(taddrnode(p1).addrnodeflags,anf_ofs);
got_addrn:=false; got_addrn:=false;
{ Ofs() returns a cardinal/qword, not a pointer } { Ofs() returns a cardinal/qword, not a pointer }
inserttypeconv_internal(p1,uinttype); inserttypeconv_internal(p1,uinttype);