Skip to content
Snippets Groups Projects
Commit bcad1399 authored by Loïc Correnson's avatar Loïc Correnson Committed by Virgile Prevosto
Browse files

[mdr] fix typos in alarm table

parent 89bb9467
No related branches found
No related tags found
No related merge requests found
...@@ -455,10 +455,10 @@ let gen_section_alarms env = ...@@ -455,10 +455,10 @@ let gen_section_alarms env =
let kind = Alarms.get_name alarm in let kind = Alarms.get_name alarm in
let label = "Alarm-" ^ string_of_int i in let label = "Alarm-" ^ string_of_int i in
let link = link ~text:(format "%d" i) ~name:label () in let link = link ~text:(format "%d" i) ~name:label () in
let func = plain (Kernel_function.get_name kf) in let func = code (Kernel_function.get_name kf) in
let loc = string_of_loc (Cil_datatype.Stmt.loc s) in let loc = string_of_loc (Cil_datatype.Stmt.loc s) in
let loc_text = plain loc in let loc_text = plain loc in
let emitter = plain (Emitter.get_name e) in let emitter = code (Emitter.get_name e) in
let descr = codeblock "acsl" Printer.pp_code_annotation annot in let descr = codeblock "acsl" Printer.pp_code_annotation annot in
let sec_title = format "Alarm %d at %s" i loc in let sec_title = format "Alarm %d at %s" i loc in
let sec_content = let sec_content =
...@@ -474,7 +474,7 @@ let gen_section_alarms env = ...@@ -474,7 +474,7 @@ let gen_section_alarms env =
in in
(i+1, (i+1,
sec @ H2 (sec_title, Some label) :: sec_content, sec @ H2 (sec_title, Some label) :: sec_content,
[ link; plain kind; emitter; func; loc_text ] :: content) [ link; code kind; emitter; func; loc_text ] :: content)
in in
let _,sections, content = Alarms.fold treat_alarm (0,[],[]) in let _,sections, content = Alarms.fold treat_alarm (0,[],[]) in
let content = List.rev content in let content = List.rev content in
......
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