paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 19:49:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

* do not insert the $result symbol again when the VMT for the capturer is built

Browse Source
This commit is contained in:
Sven/Sarah Barth 2022-02-06 13:03:32 +01:00
parent 9aac622dc9
commit 749faa42ee
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/pparautl.pas
View File

@ -84,12 +84,14 @@ implementation
if not(pd.proctypeoption in [potype_constructor,potype_destructor]) and if not(pd.proctypeoption in [potype_constructor,potype_destructor]) and
not is_void(pd.returndef) and not is_void(pd.returndef) and
not (df_generic in pd.defoptions) 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 paramanager.ret_in_param(pd.returndef,pd) then
begin begin
storepos:=current_tokenpos; storepos:=current_tokenpos;
if pd.typ=procdef then if pd.typ=procdef then
current_tokenpos:=tprocdef(pd).fileinfo; current_tokenpos:=tprocdef(pd).fileinfo;
{$if defined(i386)} {$if defined(i386)}
{ For left to right add it at the end to be delphi compatible. { For left to right add it at the end to be delphi compatible.
In the case of safecalls with safecal-exceptions support the In the case of safecalls with safecal-exceptions support the