From 213e61eae58e445390abea5db965ed7a9c7b2b4d Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Tue, 3 Apr 2018 15:28:27 +0000
Subject: [PATCH] + introduce the anf_ofs address node flag - indicates that
 the node was   generated by ofs()

git-svn-id: trunk@38670 -
---
 compiler/nmem.pas  | 5 ++---
 compiler/pexpr.pas | 1 +
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/compiler/nmem.pas b/compiler/nmem.pas
index 66d11b9102..cdee3e3fdb 100644
--- a/compiler/nmem.pas
+++ b/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;
 
diff --git a/compiler/pexpr.pas b/compiler/pexpr.pas
index 3938a66037..b7155c5820 100644
--- a/compiler/pexpr.pas
+++ b/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);