Project

General

Profile

Revision 6d3b5007 src/backends/VHDL/vhdl_ast_map.ml

View differences:

src/backends/VHDL/vhdl_ast_map.ml
313 313
            let report = self#vhdl_expr_t report  in
314 314
            let severity = self#vhdl_expr_t severity  in
315 315
            Assert { label; cond; report; severity }
316
        | ProcedureCall { label; name; assocs } ->
317
            let label = self#vhdl_name_t label  in
318
            let name = self#vhdl_name_t name  in
319
            let assocs = self#list self#vhdl_assoc_element_t assocs  in
320
            ProcedureCall { label; name; assocs }
316 321
        | Wait  -> Wait
317 322
        | Null { label } ->
318 323
            let label = self#vhdl_name_t label  in Null { label }

Also available in: Unified diff