paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-11 10:58:23 +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.
Furthermore, any managed type is returned in param, in order to avoid
its finalization on exception at callee side. }
if (tf_safecall_exceptions in target_info.flags) and
(pd.proccalloption=pocall_safecall) or
if ((tf_safecall_exceptions in target_info.flags) and
(pd.proccalloption=pocall_safecall)) or
(
(pd.proctypeoption=potype_constructor)and
(