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

* clarify/ensure intended order of evaluation

Browse Source 
git-svn-id: trunk@35138 -
This commit is contained in:
Jonas Maebe 2016-12-16 22:38:04 +00:00
parent b936d8f012
commit 5bd03651a9
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/paramgr.pas
View File

@ -611,8 +611,8 @@ implementation
is always returned in param. is always returned in param.
Furthermore, any managed type is returned in param, in order to avoid Furthermore, any managed type is returned in param, in order to avoid
its finalization on exception at callee side. } its finalization on exception at callee side. }
if (tf_safecall_exceptions in target_info.flags) and if ((tf_safecall_exceptions in target_info.flags) and
(pd.proccalloption=pocall_safecall) or (pd.proccalloption=pocall_safecall)) or
( (
(pd.proctypeoption=potype_constructor)and (pd.proctypeoption=potype_constructor)and
( (