replace type byte_vector_ptr_t with natural; add separate array for eptrs

Author: umarcor

examples/vhdl/external_buffer/src/test/main.c

@@ -23,7 +23,7 @@ uint8_t read_byte(uint8_t id, uint32_t i) {
 
 int main(int argc, char **argv) {
 
-  const uint32_t length = 5;
+  const uint32_t length = 3;
 
   D[0] = (uint8_t *) malloc(3*length*sizeof(uint8_t));
   if ( D[0] == NULL ) {
@@ -33,7 +33,7 @@ int main(int argc, char **argv) {
 
   int i;
   for(i=0; i<length; i++) {
-    D[0][i] = (i+1)*11;
+    D[0][i] = (i+1)*10;
   }
 
   for(i=0; i<3*length; i++) {

examples/vhdl/external_buffer/src/test/tb_external_buffer.vhd

@@ -20,10 +20,10 @@ end entity;
 
 architecture tb of tb_external_buffer is
 
-  constant block_len : natural := 5;
+  constant block_len : natural := 3;
 
-  constant ebuf: byte_vector_ptr_t:= new_byte_vector_ptr( 1024, 0, -1); -- external through VHPIDIRECT functions 'read_byte' and 'write_byte'
-  constant abuf: byte_vector_ptr_t:= new_byte_vector_ptr( 1024, 0, 1);  -- external through access (required VHPIDIRECT function 'get_addr')
+  constant ebuf: natural := new_byte_vector( 1024, 0, -1); -- external through VHPIDIRECT functions 'read_byte' and 'write_byte'
+  constant abuf: natural := new_byte_vector( 1024, 0, 1);  -- external through access (required VHPIDIRECT function 'get_addr')
 
 begin
 
@@ -36,11 +36,11 @@ begin
         info("Init test");
         for x in 0 to block_len-1 loop
           val := get(ebuf, x);         --report "E get(" & to_string(x) & "): " & to_string(val) severity note;
-          set(ebuf, block_len+x, val); --report "E set(" & to_string(5+x) & "): " & to_string(val) severity note;
+          set(ebuf, block_len+x, val+1); --report "E set(" & to_string(5+x) & "): " & to_string(val) severity note;
         end loop;
         for x in block_len to 2*block_len-1 loop
           val := get(abuf, x);         --report "A get(" & to_string(x) & "): " & to_string(val) severity note;
-          set(abuf, block_len+x, val); --report "A set(" & to_string(5+x) & "): " & to_string(val) severity note;
+          set(abuf, block_len+x, val+2); --report "A set(" & to_string(5+x) & "): " & to_string(val) severity note;
         end loop;
         info("End test");
       end if;

vunit/vhdl/data_types/src/byte_vector_pkg.vhd

@@ -9,6 +9,7 @@ package byte_vector_pkg is
   type byte_vector_access_vector_t is array (natural range <>) of byte_vector_access_t;
   type byte_vector_access_vector_access_t is access byte_vector_access_vector_t;
 
-  type extbuf_t is array(integer range 0 to integer'high) of character;
-  type extbuf_access_t is access extbuf_t;
+  type extbuf_access_t is access string(1 to integer'high);
+  type extbuf_access_vector_t is array (natural range <>) of extbuf_access_t;
+  type extbuf_access_vector_access_t is access extbuf_access_vector_t;
 end package;