type __ghdl_file_index_ptr is access;

type __ghdl_file_index is unsigned (32);

type __ghdl_file_index_ptr is access __ghdl_file_index;

public var acc1 : __ghdl_file_index_ptr;

public function Get () return __ghdl_file_index
declare
begin
  --  return __ghdl_file_index'[0];
  return acc1.all;
end;