Project

General

Profile

Revision 99ac6a26 src/backends/VHDL/vhdl_ast.ml

View differences:

src/backends/VHDL/vhdl_ast.ml
147 147
  {
148 148
    name: string [@default ""];
149 149
    typeMark: vhdl_name_t [@default NoName];
150
    parameters: vhdl_parameter_t list;
150
    parameters: vhdl_parameter_t list [@default []];
151 151
    isPure: bool [@default false];
152 152
  }
153 153
[@@deriving show { with_path = false }, yojson {strict = false}];;
......
169 169
  | Case of { label: vhdl_name_t [@default NoName]; guard: vhdl_expr_t; branches: vhdl_case_item_t list } [@name "CASE_STATEMENT_TREE"]
170 170
  | Exit of { label: vhdl_name_t [@default NoName]; loop_label: string option [@default Some ""]; condition: vhdl_expr_t option [@default Some IsNull]} [@name "EXIT_STATEMENT"]
171 171
  | Assert of { label: vhdl_name_t [@default NoName]; cond: vhdl_expr_t; report: vhdl_expr_t [@default IsNull]; severity: vhdl_expr_t [@default IsNull]} [@name "ASSERTION_STATEMENT"]
172
  | ProcedureCall of { label: vhdl_name_t [@default NoName]; name: vhdl_name_t; assocs: vhdl_assoc_element_t list } [@name "PROCEDURE_CALL_STATEMENT"]
172
  | ProcedureCall of { label: vhdl_name_t [@default NoName]; name: vhdl_name_t; assocs: vhdl_assoc_element_t list [@default []] } [@name "PROCEDURE_CALL_STATEMENT"]
173 173
  | Wait [@name "WAIT_STATEMENT"]
174 174
  | Null of { label: vhdl_name_t [@default NoName]} [@name "NULL_STATEMENT"]
175 175
  | Return of { label: vhdl_name_t [@default NoName]} [@name "RETURN_STATEMENT"]

Also available in: Unified diff