Added largest() and smallest() for REAL

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

@@ -220,11 +220,13 @@ PACKAGE common_pkg IS
   FUNCTION matrix_or( mat : t_sl_matrix; wi, wj : NATURAL) RETURN STD_LOGIC;  -- '0' when all matrix bits are '0' else '1'
   
   FUNCTION smallest(n, m    : INTEGER)       RETURN INTEGER;
+  FUNCTION smallest(n, m    : REAL)          RETURN REAL;
   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, m : REAL)          RETURN REAL;
   FUNCTION largest(n    : t_natural_arr) RETURN NATURAL;
   FUNCTION largest(n    : t_nat_natural_arr) RETURN NATURAL;
   
@@ -835,6 +837,15 @@ PACKAGE BODY common_pkg IS
     END IF;
   END;
   
+  FUNCTION smallest(n, m : REAL) RETURN REAL IS
+  BEGIN
+    IF n < m THEN
+      RETURN n;
+    ELSE
+      RETURN m;
+    END IF;
+  END;
+  
   FUNCTION smallest(n, m, l : INTEGER) RETURN INTEGER IS
     VARIABLE v : NATURAL;
   BEGIN
@@ -875,6 +886,15 @@ PACKAGE BODY common_pkg IS
     END IF;
   END;
   
+  FUNCTION largest(n, m : REAL) RETURN REAL IS
+  BEGIN
+    IF n > m THEN
+      RETURN n;
+    ELSE
+      RETURN m;
+    END IF;
+  END;
+  
   FUNCTION largest(n : t_natural_arr) RETURN NATURAL IS
     VARIABLE m : NATURAL := 0;
   BEGIN