Project

General

Profile

« Previous | Next » 

Revision 57c96fb7

Added by LĂ©lio Brun 11 months ago

setup tests for dune

View differences:

src/backends/C/c_backend_header.ml
280 280
		| _        -> ()) type_table
281 281

  
282 282
let reset_type_definitions, print_type_definition_from_header =
283
  let cpt_type =ref 0 in
284
  ((fun () -> cpt_type := 0),
285
   (fun fmt typ filename ->
286
    fprintf fmt "typedef %a;@.@."
287
	(pp_c_type_decl filename cpt_type typ.tydef_id) typ.tydef_desc))
283
  let cpt_type = ref 0 in
284
  (fun () -> cpt_type := 0),
285
  (fun fmt typ filename ->
286
     fprintf fmt "typedef %a;@.@."
287
	     (pp_c_type_decl filename cpt_type typ.tydef_id) typ.tydef_desc)
288 288

  
289 289
(********************************************************************************************)
290 290
(*                         MAIN Header Printing functions                                   *)

Also available in: Unified diff