Project

General

Profile

Revision 3d099916 src/backends/VHDL/vhdl_ast_map.ml

View differences:

src/backends/VHDL/vhdl_ast_map.ml
289 289

  
290 290
    method vhdl_subprogram_spec_t :
291 291
      vhdl_subprogram_spec_t -> vhdl_subprogram_spec_t=
292
      fun { name; typeMark; parameters; isPure }  ->
292
      fun { name; subprogram_type; typeMark; parameters; isPure }  ->
293 293
        let name = self#string name  in
294
        let subprogram_type = self#string subprogram_type  in
294 295
        let typeMark = self#vhdl_name_t typeMark  in
295 296
        let parameters = self#list self#vhdl_parameter_t parameters  in
296 297
        let isPure = self#bool isPure  in
297
        { name; typeMark; parameters; isPure }
298
        { name; subprogram_type; typeMark; parameters; isPure }
298 299

  
299 300
    method vhdl_sequential_stmt_t :
300 301
      vhdl_sequential_stmt_t -> vhdl_sequential_stmt_t=
......
374 375
            let generics = self#list self#vhdl_port_t generics  in
375 376
            let ports = self#list self#vhdl_port_t ports  in
376 377
            ComponentDecl { name; generics; ports }
377
        | Subprogram { name; kind; spec; decl_part; stmts } ->
378
            let name = self#string name  in
379
            let kind = self#string kind  in
380
            let spec = self#option self#vhdl_subprogram_spec_t spec  in
378
        | Subprogram { spec; decl_part; stmts } ->
379
            let spec = self#vhdl_subprogram_spec_t spec  in
381 380
            let decl_part = self#list self#vhdl_declaration_t decl_part  in
382 381
            let stmts = self#list self#vhdl_sequential_stmt_t stmts  in
383
            Subprogram { name; kind; spec; decl_part; stmts }
382
            Subprogram { spec; decl_part; stmts }
384 383

  
385 384
    method vhdl_declarative_item_t :
386 385
      vhdl_declarative_item_t -> vhdl_declarative_item_t=

Also available in: Unified diff