Project

General

Profile

Revision ab6312e7 src/backends/VHDL/vhdl_ast_map.ml

View differences:

src/backends/VHDL/vhdl_ast_map.ml
166 166
      fun x  ->
167 167
        match x with
168 168
        | Call a -> let a = self#vhdl_name_t a  in Call a
169
        | Cst a -> let a = self#vhdl_cst_val_t a  in Cst a
169
        | Cst { value; unit_name } ->
170
            let value = self#vhdl_cst_val_t value  in
171
            let unit_name = self#option self#vhdl_name_t unit_name  in
172
            Cst { value; unit_name }
170 173
        | Op { id; args } ->
171 174
            let id = self#string id  in
172 175
            let args = self#list self#vhdl_expr_t args  in Op { id; args }

Also available in: Unified diff