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

generated by ofs()

git-svn-id: trunk@38670 -

compiler/nmem.pas

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

compiler/pexpr.pas

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