Mirrors_Framework/paparazzi
1
0
Fork 0
mirror of https://github.com/paparazzi/paparazzi.git synced 2026-06-06 07:53:43 +08:00
Code Issues Actions 26 Packages Projects Releases Wiki Activity

fix bug in exception handling

Browse Source
This commit is contained in:
Pascal Brisset
2009-09-01 12:47:30 +00:00
parent aa08800701
commit dbcd44de6d
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
sw/tools/gen_flight_plan.ml
+3 -3
View File
@@ -139,14 +139,14 @@ let index_of_blocks = ref []
let get_index_block = fun x ->
try
string_of_int (List.assoc x !index_of_blocks)
List.assoc x !index_of_blocks
with
Not_found -> failwith (sprintf "Unknown block: '%s'" x)
let print_exception = fun x ->
let i = get_index_block (ExtXml.attrib x "deroute") in
let c = parsed_attrib x "cond" in
lprintf "if ((nav_block != %s) && %s) { GotoBlock(%s); return; }\n" c i i
lprintf "if ((nav_block != %d) && %s) { GotoBlock(%d); return; }\n" i c i
let element = fun a b c -> Xml.Element (a, b, c)
let goto l = element "goto" ["name",l] []
@@ -281,7 +281,7 @@ let rec print_stage = fun index_of_waypoints x ->
lprintf "Goto(%s)\n" (name_of x)
| "deroute" ->
stage ();
lprintf "GotoBlock(%s);\n" (get_index_block (ExtXml.attrib x "block"));
lprintf "GotoBlock(%d);\n" (get_index_block (ExtXml.attrib x "block"));
lprintf "break;\n"
| "exit_block" ->
stage ();