Added largest() and smallest() for type t-nat_natural_arr.

libraries/base/common/src/vhdl/common_pkg.vhd

@@ -212,9 +212,11 @@ PACKAGE common_pkg IS
   FUNCTION smallest(n, m    : INTEGER)       RETURN INTEGER;
   FUNCTION smallest(n, m, l : INTEGER)       RETURN INTEGER;
   FUNCTION smallest(n       : t_natural_arr) RETURN NATURAL;
+  FUNCTION smallest(n       : t_nat_natural_arr) RETURN NATURAL;
 
   FUNCTION largest(n, m : INTEGER)       RETURN INTEGER;
   FUNCTION largest(n    : t_natural_arr) RETURN NATURAL;
+  FUNCTION largest(n    : t_nat_natural_arr) RETURN NATURAL;
   
   FUNCTION func_sum(    n : t_natural_arr)     RETURN NATURAL;      -- sum     of all elements in array
   FUNCTION func_sum(    n : t_nat_natural_arr) RETURN NATURAL;
@@ -793,6 +795,17 @@ PACKAGE BODY common_pkg IS
     RETURN m;
   END;
   
+  FUNCTION smallest(n : t_nat_natural_arr) RETURN NATURAL IS
+    VARIABLE m : NATURAL := 0;
+  BEGIN
+    FOR I IN n'RANGE LOOP
+      IF n(I) < m THEN
+        m := n(I);
+      END IF;
+    END LOOP;
+    RETURN m;
+  END;
+  
   FUNCTION largest(n, m : INTEGER) RETURN INTEGER IS
   BEGIN
     IF n > m THEN
@@ -813,6 +826,17 @@ PACKAGE BODY common_pkg IS
     RETURN m;
   END;
   
+  FUNCTION largest(n : t_nat_natural_arr) RETURN NATURAL IS
+    VARIABLE m : NATURAL := 0;
+  BEGIN
+    FOR I IN n'RANGE LOOP
+      IF n(I) > m THEN
+        m := n(I);
+      END IF;
+    END LOOP;
+    RETURN m;
+  END;
+  
   FUNCTION func_sum(n : t_natural_arr) RETURN NATURAL IS
     VARIABLE vS : NATURAL;
   BEGIN