diff --git a/sw/tools/gen_flight_plan.ml b/sw/tools/gen_flight_plan.ml index 2f27190e76..68949cce5b 100644 --- a/sw/tools/gen_flight_plan.ml +++ b/sw/tools/gen_flight_plan.ml @@ -486,7 +486,7 @@ let print_block = fun index_of_waypoints (b:Xml.xml) block_num -> let n = name_of b in (* Block entry *) lprintf "Block(%d) // %s\n" block_num n; - lprintf "%s // pre_call\n" (ExtXml.attrib_or_default b "pre_call" ""); + lprintf "%s; // pre_call\n" (ExtXml.attrib_or_default b "pre_call" ""); let excpts, stages = List.partition (fun x -> Xml.tag x = "exception") (Xml.children b) in @@ -504,7 +504,7 @@ let print_block = fun index_of_waypoints (b:Xml.xml) block_num -> lprintf "}\n"; (* Block exit *) - lprintf "%s // post_call\n" (ExtXml.attrib_or_default b "post_call" ""); + lprintf "%s; // post_call\n" (ExtXml.attrib_or_default b "post_call" ""); lprintf "break;\n\n"