1TYPE __ghdl_index_type IS UNSIGNED (32);
2
3TYPE __ghdl_char IS UNSIGNED (8);
4
5TYPE __ghdl_chararray IS ARRAY [__ghdl_index_type] OF __ghdl_char;
6
7TYPE __ghdl_char_ptr IS ACCESS __ghdl_chararray;
8
9TYPE __ghdl_char_ptr_array IS ARRAY [__ghdl_index_type] OF __ghdl_char_ptr;
10
11TYPE __ghdl_str_len IS RECORD
12  str: __ghdl_char_ptr;
13  len: __ghdl_index_type;
14END RECORD;
15
16TYPE ghdl_str_len_acc IS ACCESS __ghdl_str_len;
17
18PUBLIC VAR var1 : ghdl_str_len_acc;
19
20PUBLIC FUNCTION get_len () RETURN __ghdl_index_type
21DECLARE
22BEGIN
23  RETURN var1.ALL.len;
24END;
25