Project

General

Profile

Revision d4c98bae src/tools/importer/vhdl_to_lustre.ml

View differences:

src/tools/importer/vhdl_to_lustre.ml
482 482
        { name; generics; ports; declaration; stmts }
483 483

  
484 484
    method vhdl_package_t : vhdl_package_t -> vhdl_package_t=
485
      fun { name; shared_defs; shared_decls }  ->
485
      fun { name; shared_defs; shared_decls; shared_uses }  ->
486 486
        let name = self#vhdl_name_t name  in
487 487
        let shared_defs = self#list self#vhdl_definition_t shared_defs  in
488 488
        let shared_decls = self#list self#vhdl_declaration_t shared_decls  in
489
        { name; shared_defs; shared_decls }
489
        let shared_uses = self#list self#vhdl_load_t shared_uses  in
490
        { name; shared_defs; shared_decls; shared_uses }
490 491

  
491 492
    method vhdl_load_t : vhdl_load_t -> vhdl_load_t=
492 493
      fun x  ->

Also available in: Unified diff