Project

General

Profile

Revision 1f593d5d src/backends/VHDL/vhdl_ast_map.ml

View differences:

src/backends/VHDL/vhdl_ast_map.ml
406 406
      vhdl_signal_condition_t -> vhdl_signal_condition_t=
407 407
      fun { expr; cond }  ->
408 408
        let expr = self#list self#vhdl_waveform_element_t expr  in
409
        let cond = self#vhdl_expr_t cond  in { expr; cond }
409
        let cond = self#option self#vhdl_expr_t cond  in { expr; cond }
410 410

  
411 411
    method vhdl_signal_selection_t :
412 412
      vhdl_signal_selection_t -> vhdl_signal_selection_t=
......
417 417

  
418 418
    method vhdl_conditional_signal_t :
419 419
      vhdl_conditional_signal_t -> vhdl_conditional_signal_t=
420
      fun { postponed; label; lhs; rhs; cond; delay }  ->
420
      fun { postponed; label; lhs; rhs; delay }  ->
421 421
        let postponed = self#bool postponed  in
422 422
        let label = self#vhdl_name_t label  in
423 423
        let lhs = self#vhdl_name_t lhs  in
424 424
        let rhs = self#list self#vhdl_signal_condition_t rhs  in
425
        let cond = self#vhdl_expr_t cond  in
426 425
        let delay = self#vhdl_expr_t delay  in
427
        { postponed; label; lhs; rhs; cond; delay }
428

  
426
        { postponed; label; lhs; rhs; delay }
429 427

  
430 428
    method vhdl_process_t : vhdl_process_t -> vhdl_process_t=
431 429
      fun { id; declarations; active_sigs; body }  ->

Also available in: Unified diff