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

Correct some typos

Browse Source
This commit is contained in:
Benjamin Loison
2022-12-18 14:31:56 +01:00
parent 1491e279f7
commit c3a64a2bae
4 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/cprint.ml
View File

@@ -3,7 +3,7 @@ open Intermediate_ast
open Ast
open Cast
(** This file contains extrimely simple functions printing C code. *)
(** This file contains extremely simple functions printing C code. *)
let rec cp_includes fmt = function
| [] -> ()
@@ -77,7 +77,7 @@ let rec cp_varlist fmt vl =
let cp_prototype fmt (node, h): unit =
match Hashtbl.find_opt h node.in_name with
| None -> failwith "This should not happend!"
| None -> failwith "This should not happened!"
| Some nst ->
begin
Format.fprintf fmt "void fn_%s (%s *state, %a)"
@@ -164,7 +164,7 @@ and cp_expression fmt (expr, hloc) =
Format.fprintf fmt "%sstate->%s[%d] = %a;\n"
prefix arr idx cp_value (value, hloc)
end
| CAssign (CVInput _, _) -> failwith "should not happend."
| CAssign (CVInput _, _) -> failwith "should not happened."
| CSeq (e, e') ->
Format.fprintf fmt "%a%a"
cp_expression (e, hloc)