Mentions légales du service

Skip to content
Snippets Groups Projects
Verified Commit 361be733 authored by Thierry Martinez's avatar Thierry Martinez
Browse files

Simplify do { } while (0)

parent e6889aa3
No related branches found
No related tags found
No related merge requests found
Pipeline #855900 failed
...@@ -211,6 +211,8 @@ with type 'a Applicative.t = 'a Applicative.t = struct ...@@ -211,6 +211,8 @@ with type 'a Applicative.t = 'a Applicative.t = struct
(Clang.Ast.DeclRef (Clang.Ast.identifier_name var_name)); (Clang.Ast.DeclRef (Clang.Ast.identifier_name var_name));
kind = Assign; rhs = init }}} in kind = Assign; rhs = init }}} in
close_stmts init_stmts [decl; init] close_stmts init_stmts [decl; init]
| { desc = Do { body; cond = { desc = IntegerLiteral (Int 0); _ }; _ }; _} ->
[ close_node (Visit.visit [%refl: Clang.Ast.stmt] [] body env) ]
| { desc = Do { body; cond; _ }; _} -> | { desc = Do { body; cond; _ }; _} ->
let cond, cond_stmts = let cond, cond_stmts =
Visit.visit [%refl: Clang.Ast.expr] [] Visit.visit [%refl: Clang.Ast.expr] []
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment