Project

General

Profile

« Previous | Next » 

Revision 7f55f63f

Added by Arnaud Dieumegard over 3 years ago

Default value corrections

View differences:

src/tools/importer/vhdl_to_lustre.ml
377 377
            let ports = self#list self#vhdl_port_t ports  in
378 378
            ComponentDecl { name; generics; ports }
379 379
        | Subprogram { name; kind; spec; decl_part; stmts } ->
380
            let name = self#vhdl_name_t name  in
380
            let name = self#string name  in
381 381
            let kind = self#string kind  in
382
            let spec = self#vhdl_subprogram_spec_t spec  in
382
            let spec = self#option self#vhdl_subprogram_spec_t spec  in
383 383
            let decl_part = self#list self#vhdl_declaration_t decl_part  in
384 384
            let stmts = self#list self#vhdl_sequential_stmt_t stmts  in
385 385
            Subprogram { name; kind; spec; decl_part; stmts }
......
466 466
        let name = self#vhdl_name_t name  in
467 467
        let generics = self#list self#vhdl_port_t generics  in
468 468
        let ports = self#list self#vhdl_port_t ports  in
469
        let declaration = self#list self#vhdl_declaration_t declaration  in
469
        let declaration = self#list self#vhdl_declarative_item_t declaration
470
           in
470 471
        let stmts = self#list self#vhdl_concurrent_stmt_t stmts  in
471 472
        { name; generics; ports; declaration; stmts }
472 473

  

Also available in: Unified diff