From 749faa42eed7c49def6323af3412831cf1e6adb8 Mon Sep 17 00:00:00 2001 From: Sven/Sarah Barth Date: Sun, 6 Feb 2022 13:03:32 +0100 Subject: [PATCH] * do not insert the $result symbol again when the VMT for the capturer is built --- compiler/pparautl.pas | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/compiler/pparautl.pas b/compiler/pparautl.pas index 4412c7cab1..d3df0fbde5 100644 --- a/compiler/pparautl.pas +++ b/compiler/pparautl.pas @@ -84,12 +84,14 @@ implementation if not(pd.proctypeoption in [potype_constructor,potype_destructor]) and not is_void(pd.returndef) and not (df_generic in pd.defoptions) and + { if this was originally an anonymous function then this was already + done earlier } + not ((pd.typ=procdef) and tprocdef(pd).was_anonymous) and paramanager.ret_in_param(pd.returndef,pd) then begin storepos:=current_tokenpos; if pd.typ=procdef then current_tokenpos:=tprocdef(pd).fileinfo; - {$if defined(i386)} { For left to right add it at the end to be delphi compatible. In the case of safecalls with safecal-exceptions support the