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