Benjamin_Loison/Synchronous_reactive_systems
1
0
Fork 0
Code Issues 7 Pull Requests Packages Projects Releases Wiki Activity

Simplify ETriOp case in src/ast_to_c.ml

Browse Source
This commit is contained in:
Benjamin Loison 2022-12-11 22:25:11 +01:00
parent 014110791d
commit 298e88f1a5
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/ast_to_c.ml
View File

@ -156,8 +156,7 @@ let pp_expression node_name =
pp_expression_aux arg' pp_expression_aux arg'
end end
| ETriOp (_, top, arg, arg', arg'') -> | ETriOp (_, top, arg, arg', arg'') ->
begin match top with begin
| TOp_if | TOp_merge ->
Format.fprintf fmt "%a ? %a : %a" Format.fprintf fmt "%a ? %a : %a"
pp_expression_aux arg pp_expression_aux arg
pp_expression_aux arg' pp_expression_aux arg'