printing hex string instead of binary ones in std_logic_vector versions of assert_(un)qual() procedures

sim/AssertP.vhd

@@ -97,7 +97,7 @@ package body AssertP is
   begin
     if (str'length = 0) then
       assert a = b
-        report "FAILURE: " & to_string(a) & " should be equal to " & to_string(b)
+        report "FAILURE: 0x" & to_hstring(a) & " should be equal to 0x" & to_hstring(b)
         severity level;
     else
       assert a = b
@@ -145,7 +145,7 @@ package body AssertP is
   begin
     if (str'length = 0) then
       assert a /= b
-        report "FAILURE: " & to_string(a) & " should not be equal to " & to_string(b)
+        report "FAILURE: " & to_hstring(a) & " should not be equal to " & to_hstring(b)
         severity level;
     else
       assert a /= b