Project

General

Profile

Revision 8446bf03 src/backends/C/c_backend_header.ml

View differences:

src/backends/C/c_backend_header.ml
10 10
(********************************************************************)
11 11

  
12 12
open Format 
13
open LustreSpec
13
open Lustre_types
14 14
open Corelang
15 15
open Machine_code
16 16
open C_backend_common
......
51 51
  end
52 52

  
53 53
let rec print_static_val pp_var fmt v =
54
  let open Machine_code_types in
54 55
  match v.value_desc with
55 56
  | Cst c         -> pp_c_const fmt c
56 57
  | LocalVar v    -> pp_var fmt v

Also available in: Unified diff