+ added flag tcnf_proc_2_procvar_get_offset_only

git-svn-id: trunk@38680 -

compiler/ncnv.pas

@@ -41,7 +41,9 @@ interface
             take the address of a _near_ procedure as a void pointer (which the
             @ operator does in TP mode), but not as a procvar (in that case the
             procedure must be far). }
-          tcnf_proc_2_procvar_2_voidpointer
+          tcnf_proc_2_procvar_2_voidpointer,
+          { proc_2_procvar, generated internally by Ofs() }
+          tcnf_proc_2_procvar_get_offset_only
        );
        ttypeconvnodeflags = set of ttypeconvnodeflag;
 

compiler/nmem.pas

@@ -566,6 +566,8 @@ implementation
                 left:=ctypeconvnode.create_proc_to_procvar(left);
                 if need_conv_to_voidptr then
                   include(ttypeconvnode(left).convnodeflags,tcnf_proc_2_procvar_2_voidpointer);
+                if anf_ofs in addrnodeflags then
+                  include(ttypeconvnode(left).convnodeflags,tcnf_proc_2_procvar_get_offset_only);
                 left.fileinfo:=fileinfo;
                 typecheckpass(left);
               end;