revert renaming 'value' to 'val'

Author: umarcor

vunit/vhdl/data_types/src/string_ptr_pkg-body-200x.vhd

@@ -9,7 +9,7 @@ package body string_ptr_pkg is
     impure function new_vector (
       length : natural := 0;
       id     : integer := 0;
-      val    : val_t   := val_t'low
+      value  : val_t   := val_t'low
     ) return natural;
 
     impure function is_external (
@@ -44,7 +44,7 @@ package body string_ptr_pkg is
       ref    : natural;
       length : natural;
       drop   : natural := 0;
-      val    : val_t   := val_t'low
+      value  : val_t   := val_t'low
     );
 
     impure function to_string (
@@ -122,14 +122,14 @@ package body string_ptr_pkg is
     impure function new_vector (
       length : natural := 0;
       id     : integer := 0;
-      val    : val_t   := val_t'low
+      value  : val_t   := val_t'low
     ) return natural is begin
       reallocate_ids(st.ids, st.id);
       if id = 0 then
         st.ids(st.id) := (id => st.ptr, length => 0);
 
         reallocate_ptrs(st.ptrs, st.ptr);
-        st.ptrs(st.ptr) := new vec_t'(1 to length => val);
+        st.ptrs(st.ptr) := new vec_t'(1 to length => value);
         st.ptr := st.ptr + 1;
       else
         assert length>0 report "Length of external memory cannot be 0" severity error;
@@ -246,7 +246,7 @@ package body string_ptr_pkg is
       ref    : natural;
       length : natural;
       drop   : natural := 0;
-      val    : val_t   := val_t'low
+      value  : val_t   := val_t'low
     ) is
       variable oldp, newp : string_access_t;
       variable min_len : natural := length;
@@ -256,7 +256,7 @@ package body string_ptr_pkg is
         -- @TODO Implement resize for external models
         check_external(ref, "resize");
       else
-        newp := new vec_t'(1 to length => val);
+        newp := new vec_t'(1 to length => value);
         oldp := st.ptrs(s.id);
         if min_len > oldp'length - drop then
           min_len := oldp'length - drop;
@@ -302,24 +302,24 @@ package body string_ptr_pkg is
   impure function new_string_ptr (
     length : natural := 0;
     id     : integer := 0;
-    val    : val_t   := val_t'low
+    value  : val_t   := val_t'low
   ) return ptr_t is begin
     return (ref => vec_ptr_storage.new_vector(
       length => length,
-      val    => val,
+      value  => value,
       id     => id
     ));
   end;
 
   impure function new_string_ptr (
     length : natural := 0;
     id     : integer := 0;
-    val    : natural
+    value  : natural
   ) return ptr_t is begin
     return (ref => vec_ptr_storage.new_vector(
       length => length,
-      val => character'val(val),
-      id  => id
+      value  => character'val(value),
+      id     => id
     ));
   end;
 
@@ -394,9 +394,9 @@ package body string_ptr_pkg is
   procedure reallocate (
     ptr    : ptr_t;
     length : natural;
-    val    : val_t := val_t'low
+    value  : val_t := val_t'low
   ) is
-    variable n_value : string(1 to length) := (1 to length => val);
+    variable n_value : string(1 to length) := (1 to length => value);
   begin
     vec_ptr_storage.reallocate(ptr.ref, n_value);
   end;
@@ -413,18 +413,18 @@ package body string_ptr_pkg is
     ptr    : ptr_t;
     length : natural;
     drop   : natural := 0;
-    val    : val_t   := val_t'low
+    value  : val_t   := val_t'low
   ) is begin
-    vec_ptr_storage.resize(ptr.ref, length, drop, val);
+    vec_ptr_storage.resize(ptr.ref, length, drop, value);
   end;
 
   procedure resize (
     ptr    : ptr_t;
     length : natural;
     drop   : natural := 0;
-    val    : natural
+    value  : natural
   ) is begin
-    vec_ptr_storage.resize(ptr.ref, length, drop, character'val(val));
+    vec_ptr_storage.resize(ptr.ref, length, drop, character'val(value));
   end;
 
   impure function to_string (

vunit/vhdl/data_types/src/string_ptr_pkg-body-93.vhd

@@ -74,14 +74,14 @@ package body string_ptr_pkg is
   impure function new_string_ptr (
     length : natural := 0;
     id     : integer := 0;
-    val    : val_t   := val_t'low
+    value  : val_t   := val_t'low
   ) return ptr_t is begin
     reallocate_ids(st.ids, st.id);
     if id = 0 then
       st.ids(st.id) := (id => st.ptr, length => 0);
 
       reallocate_ptrs(st.ptrs, st.ptr);
-      st.ptrs(st.ptr) := new vec_t'(1 to length => val);
+      st.ptrs(st.ptr) := new vec_t'(1 to length => value);
       st.ptr := st.ptr + 1;
     else
       assert length>0 report "Length of external memory cannot be 0" severity error;
@@ -102,11 +102,11 @@ package body string_ptr_pkg is
   impure function new_string_ptr (
     length : natural := 0;
     id     : integer := 0;
-    val    : natural
+    value  : natural
   ) return ptr_t is begin
     return new_string_ptr(
       length => length,
-      val    => character'val(val),
+      value  => character'val(value),
       id     => id
     );
   end;
@@ -237,9 +237,9 @@ package body string_ptr_pkg is
   procedure reallocate (
     ptr    : ptr_t;
     length : natural;
-    val    : val_t := val_t'low
+    value  : val_t := val_t'low
   ) is
-    variable n_value : string(1 to length) := (1 to length => val);
+    variable n_value : string(1 to length) := (1 to length => value);
   begin
     reallocate(ptr, n_value);
   end;
@@ -256,7 +256,7 @@ package body string_ptr_pkg is
     ptr    : ptr_t;
     length : natural;
     drop   : natural := 0;
-    val    : val_t   := val_t'low
+    value  : val_t   := val_t'low
   ) is
     variable oldp, newp : string_access_t;
     variable min_len : natural := length;
@@ -266,7 +266,7 @@ package body string_ptr_pkg is
       -- @TODO Implement resize for external models
       check_external(ptr, "resize");
     else
-      newp := new vec_t'(1 to length => val);
+      newp := new vec_t'(1 to length => value);
       oldp := st.ptrs(s.id);
       if min_len > oldp'length - drop then
         min_len := oldp'length - drop;
@@ -283,9 +283,9 @@ package body string_ptr_pkg is
     ptr    : ptr_t;
     length : natural;
     drop   : natural := 0;
-    val    : natural
+    value  : natural
   ) is begin
-    resize(ptr, length, drop, character'val(val));
+    resize(ptr, length, drop, character'val(value));
   end;
 
   impure function to_string (

vunit/vhdl/data_types/src/string_ptr_pkg.vhd

@@ -44,13 +44,13 @@ package string_ptr_pkg is
   impure function new_string_ptr (
     length : natural := 0;
     id     : integer := 0;
-    val    : val_t   := val_t'low
+    value  : val_t   := val_t'low
   ) return ptr_t;
 
   impure function new_string_ptr (
     length : natural := 0;
     id     : integer := 0;
-    val    : natural
+    value  : natural
   ) return ptr_t;
 
   impure function new_string_ptr (
@@ -100,7 +100,7 @@ package string_ptr_pkg is
   procedure reallocate (
     ptr    : ptr_t;
     length : natural;
-    val    : val_t := val_t'low
+    value  : val_t := val_t'low
   );
 
   procedure reallocate (
@@ -113,14 +113,14 @@ package string_ptr_pkg is
     ptr    : ptr_t;
     length : natural;
     drop   : natural := 0;
-    val    : val_t   := val_t'low
+    value  : val_t   := val_t'low
   );
 
   procedure resize (
     ptr    : ptr_t;
     length : natural;
     drop   : natural := 0;
-    val    : natural
+    value  : natural
   );
 
   impure function to_string (