ソースを参照

* clarify/ensure intended order of evaluation

git-svn-id: trunk@35138 -
Jonas Maebe 9 年 前
コミット
5bd03651a9
1 ファイル変更2 行追加2 行削除
  1. 2 2
      compiler/paramgr.pas

+ 2 - 2
compiler/paramgr.pas

@@ -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
-           (pd.proccalloption=pocall_safecall) or
+        if ((tf_safecall_exceptions in target_info.flags) and
+            (pd.proccalloption=pocall_safecall)) or
            (
            (
              (pd.proctypeoption=potype_constructor)and
              (pd.proctypeoption=potype_constructor)and
              (
              (