浏览代码

Ignore redundant parenthesis

Hugh Sanderson 15 年之前
父节点
当前提交
9f2d61aefd
共有 1 个文件被更改,包括 3 次插入1 次删除
  1. 3 1
      gencpp.ml

+ 3 - 1
gencpp.ml

@@ -1216,7 +1216,9 @@ and gen_expression ctx retval expression =
 	| TClosure (expr,name)
 	| TClosure (expr,name)
 	| TField (expr,name) ->
 	| TField (expr,name) ->
 		gen_member_access expr name (is_function_member expression) expression.etype
 		gen_member_access expr name (is_function_member expression) expression.etype
-	| TParenthesis expr -> output "("; gen_expression ctx true expr; output ")"
+	| TParenthesis expr when not retval ->
+			gen_expression ctx retval expr;
+	| TParenthesis expr -> output "("; gen_expression ctx retval expr; output ")"
 	| TObjectDecl decl_list ->
 	| TObjectDecl decl_list ->
 		let func_name = use_anon_function_name ctx in
 		let func_name = use_anon_function_name ctx in
 		(try output ( func_name ^ "::Block(" ^
 		(try output ( func_name ^ "::Block(" ^