-Added sel_a_b to select a severity level to report.

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

@@ -250,6 +250,7 @@ PACKAGE common_pkg IS
   FUNCTION sel_a_b(sel : BOOLEAN; a, b : STRING)            RETURN STRING;
   FUNCTION sel_a_b(sel : INTEGER; a, b : STRING)            RETURN STRING;
   FUNCTION sel_a_b(sel : BOOLEAN; a, b : TIME)              RETURN TIME;
+  FUNCTION sel_a_b(sel : BOOLEAN; a, b : SEVERITY_LEVEL)    RETURN SEVERITY_LEVEL;
   
   -- sel_n() index sel = 0, 1, 2, ... will return a, b, c, ...
   FUNCTION sel_n(sel : NATURAL; a, b, c                      : BOOLEAN) RETURN BOOLEAN;  --  3
@@ -1130,7 +1131,16 @@ PACKAGE BODY common_pkg IS
       RETURN b;
     END IF;
   END;
- 
+
+  FUNCTION sel_a_b(sel : BOOLEAN; a, b : SEVERITY_LEVEL) RETURN SEVERITY_LEVEL IS
+  BEGIN
+    IF sel = TRUE THEN
+      RETURN a;
+    ELSE
+      RETURN b;
+    END IF;
+  END;
+  
   -- sel_n : boolean
   FUNCTION sel_n(sel : NATURAL; a, b, c : BOOLEAN) RETURN BOOLEAN IS
     CONSTANT c_arr : t_nat_boolean_arr := (a, b, c);