From 6929af07b72731f081d446b84e32adb66477adca Mon Sep 17 00:00:00 2001 From: nickysn Date: Wed, 4 Apr 2018 14:48:12 +0000 Subject: [PATCH] + added flag tcnf_proc_2_procvar_get_offset_only git-svn-id: trunk@38680 - --- compiler/ncnv.pas | 4 +++- compiler/nmem.pas | 2 ++ 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/compiler/ncnv.pas b/compiler/ncnv.pas index 070d863539..c929fdc96b 100644 --- a/compiler/ncnv.pas +++ b/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; diff --git a/compiler/nmem.pas b/compiler/nmem.pas index b1d32e1143..24b24e0bea 100644 --- a/compiler/nmem.pas +++ b/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;