Backport from ghdl 0.32: update libraries and ghdlfilter.

From Brian Davis.

6 files changed, 39 insertions, 39 deletions

diff --git a/libraries/ieee/numeric_bit-body.vhdl b/libraries/ieee/numeric_bit-body.vhdl
index 895594631..92d069f92 100644
--- a/libraries/ieee/numeric_bit-body.vhdl
+++ b/libraries/ieee/numeric_bit-body.vhdl
@@ -1432,7 +1432,7 @@ package body NUMERIC_BIT is
 
   --============================================================================
 
---START-V93
+--START-!V87
   ------------------------------------------------------------------------------
   -- Note : Function S.9 is not compatible with VHDL 1076-1987. Comment
   -- out the function (declaration and body) for VHDL 1076-1987 compatibility.
@@ -1545,7 +1545,7 @@ package body NUMERIC_BIT is
     end if;
   end "ror";
 
---END-V93
+--END-!V87
   --============================================================================
 
   -- Id: D.1
@@ -1724,7 +1724,7 @@ package body NUMERIC_BIT is
     return RESULT;
   end "xor";
 
---START-V93
+--START-!V87
   ------------------------------------------------------------------------------
   -- Note : Function L.7 is not compatible with VHDL 1076-1987. Comment
   -- out the function (declaration and body) for VHDL 1076-1987 compatibility.
@@ -1736,7 +1736,7 @@ package body NUMERIC_BIT is
     RESULT := UNSIGNED(BIT_VECTOR(L) xnor BIT_VECTOR(R));
     return RESULT;
   end "xnor";
---END-V93
+--END-!V87
 
   -- Id: L.8
   function "not" (L: SIGNED) return SIGNED is
@@ -1786,7 +1786,7 @@ package body NUMERIC_BIT is
     return RESULT;
   end "xor";
 
---START-V93
+--START-!V87
   ------------------------------------------------------------------------------
   -- Note : Function L.14 is not compatible with VHDL 1076-1987. Comment
   -- out the function (declaration and body) for VHDL 1076-1987 compatibility.
@@ -1798,7 +1798,7 @@ package body NUMERIC_BIT is
     RESULT := SIGNED(BIT_VECTOR(L) xnor BIT_VECTOR(R));
     return RESULT;
   end "xnor";
---END-V93
+--END-!V87
 
   --============================================================================
 
diff --git a/libraries/ieee/numeric_bit.vhdl b/libraries/ieee/numeric_bit.vhdl
index 8f049f21a..3364e3684 100644
--- a/libraries/ieee/numeric_bit.vhdl
+++ b/libraries/ieee/numeric_bit.vhdl
@@ -599,7 +599,7 @@ package NUMERIC_BIT is
   -- out the function (declaration and body) for VHDL 1076-1987 compatibility.
   ------------------------------------------------------------------------------
   -- Id: S.9
-  function "sll" (ARG: UNSIGNED; COUNT: INTEGER) return UNSIGNED; --V93
+  function "sll" (ARG: UNSIGNED; COUNT: INTEGER) return UNSIGNED; --!V87
   -- Result subtype: UNSIGNED(ARG'LENGTH-1 downto 0)
   -- Result: SHIFT_LEFT(ARG, COUNT)
 
@@ -608,7 +608,7 @@ package NUMERIC_BIT is
   -- out the function (declaration and body) for VHDL 1076-1987 compatibility.
   ------------------------------------------------------------------------------
   -- Id: S.10
-  function "sll" (ARG: SIGNED; COUNT: INTEGER) return SIGNED; --V93
+  function "sll" (ARG: SIGNED; COUNT: INTEGER) return SIGNED; --!V87
   -- Result subtype: SIGNED(ARG'LENGTH-1 downto 0)
   -- Result: SHIFT_LEFT(ARG, COUNT)
 
@@ -617,7 +617,7 @@ package NUMERIC_BIT is
   -- out the function (declaration and body) for VHDL 1076-1987 compatibility.
   ------------------------------------------------------------------------------
   -- Id: S.11
-  function "srl" (ARG: UNSIGNED; COUNT: INTEGER) return UNSIGNED; --V93
+  function "srl" (ARG: UNSIGNED; COUNT: INTEGER) return UNSIGNED; --!V87
   -- Result subtype: UNSIGNED(ARG'LENGTH-1 downto 0)
   -- Result: SHIFT_RIGHT(ARG, COUNT)
 
@@ -626,7 +626,7 @@ package NUMERIC_BIT is
   -- out the function (declaration and body) for VHDL 1076-1987 compatibility.
   ------------------------------------------------------------------------------
   -- Id: S.12
-  function "srl" (ARG: SIGNED; COUNT: INTEGER) return SIGNED; --V93
+  function "srl" (ARG: SIGNED; COUNT: INTEGER) return SIGNED; --!V87
   -- Result subtype: SIGNED(ARG'LENGTH-1 downto 0)
   -- Result: SIGNED(SHIFT_RIGHT(UNSIGNED(ARG), COUNT))
 
@@ -635,7 +635,7 @@ package NUMERIC_BIT is
   -- out the function (declaration and body) for VHDL 1076-1987 compatibility.
   ------------------------------------------------------------------------------
   -- Id: S.13
-  function "rol" (ARG: UNSIGNED; COUNT: INTEGER) return UNSIGNED; --V93
+  function "rol" (ARG: UNSIGNED; COUNT: INTEGER) return UNSIGNED; --!V87
   -- Result subtype: UNSIGNED(ARG'LENGTH-1 downto 0)
   -- Result: ROTATE_LEFT(ARG, COUNT)
 
@@ -644,7 +644,7 @@ package NUMERIC_BIT is
   -- out the function (declaration and body) for VHDL 1076-1987 compatibility.
   ------------------------------------------------------------------------------
   -- Id: S.14
-  function "rol" (ARG: SIGNED; COUNT: INTEGER) return SIGNED; --V93
+  function "rol" (ARG: SIGNED; COUNT: INTEGER) return SIGNED; --!V87
   -- Result subtype: SIGNED(ARG'LENGTH-1 downto 0)
   -- Result: ROTATE_LEFT(ARG, COUNT)
 
@@ -653,7 +653,7 @@ package NUMERIC_BIT is
   -- out the function (declaration and body) for VHDL 1076-1987 compatibility.
   ------------------------------------------------------------------------------
   -- Id: S.15
-  function "ror" (ARG: UNSIGNED; COUNT: INTEGER) return UNSIGNED; --V93
+  function "ror" (ARG: UNSIGNED; COUNT: INTEGER) return UNSIGNED; --!V87
   -- Result subtype: UNSIGNED(ARG'LENGTH-1 downto 0)
   -- Result: ROTATE_RIGHT(ARG, COUNT)
 
@@ -662,7 +662,7 @@ package NUMERIC_BIT is
   -- out the function (declaration and body) for VHDL 1076-1987 compatibility.
   ------------------------------------------------------------------------------
   -- Id: S.16
-  function "ror" (ARG: SIGNED; COUNT: INTEGER) return SIGNED; --V93
+  function "ror" (ARG: SIGNED; COUNT: INTEGER) return SIGNED; --!V87
   -- Result subtype: SIGNED(ARG'LENGTH-1 downto 0)
   -- Result: ROTATE_RIGHT(ARG, COUNT)
 
@@ -751,7 +751,7 @@ package NUMERIC_BIT is
   -- out the function (declaration and body) for VHDL 1076-1987 compatibility.
   ------------------------------------------------------------------------------
   -- Id: L.7
-  function "xnor" (L, R: UNSIGNED) return UNSIGNED; --V93
+  function "xnor" (L, R: UNSIGNED) return UNSIGNED; --!V87
   -- Result subtype: UNSIGNED(L'LENGTH-1 downto 0)
   -- Result: Vector XNOR operation
 
@@ -790,7 +790,7 @@ package NUMERIC_BIT is
   -- out the function (declaration and body) for VHDL 1076-1987 compatibility.
   ------------------------------------------------------------------------------
   -- Id: L.14
-  function "xnor" (L, R: SIGNED) return SIGNED; --V93
+  function "xnor" (L, R: SIGNED) return SIGNED; --!V87
   -- Result subtype: SIGNED(L'LENGTH-1 downto 0)
   -- Result: Vector XNOR operation
 
diff --git a/libraries/ieee/numeric_std-body.vhdl b/libraries/ieee/numeric_std-body.vhdl
index a5d609dc3..ff34e18af 100644
--- a/libraries/ieee/numeric_std-body.vhdl
+++ b/libraries/ieee/numeric_std-body.vhdl
@@ -1963,7 +1963,7 @@ package body NUMERIC_STD is
   end ROTATE_RIGHT;
 
   --============================================================================
---START-V93
+--START-!V87
 
   ------------------------------------------------------------------------------
   -- Note : Function S.9 is not compatible with VHDL 1076-1987. Comment
@@ -2077,7 +2077,7 @@ package body NUMERIC_STD is
     end if;
   end "ror";
 
---END-V93
+--END-!V87
   --============================================================================
 
   -- Id: D.1
@@ -2271,7 +2271,7 @@ package body NUMERIC_STD is
     return RESULT;
   end "xor";
 
---START-V93
+--START-!V87
   ------------------------------------------------------------------------------
   -- Note : Function L.7 is not compatible with VHDL 1076-1987. Comment
   -- out the function (declaration and body) for VHDL 1076-1987 compatibility.
@@ -2283,7 +2283,7 @@ package body NUMERIC_STD is
     RESULT := UNSIGNED(STD_LOGIC_VECTOR(L) xnor STD_LOGIC_VECTOR(R));
     return RESULT;
   end "xnor";
---END-V93
+--END-!V87
 
   -- Id: L.8
   function "not" (L: SIGNED) return SIGNED is
@@ -2333,7 +2333,7 @@ package body NUMERIC_STD is
     return RESULT;
   end "xor";
 
---START-V93
+--START-!V87
   ------------------------------------------------------------------------------
   -- Note : Function L.14 is not compatible with VHDL 1076-1987. Comment
   --   out the function (declaration and body) for VHDL 1076-1987 compatibility.
@@ -2345,7 +2345,7 @@ package body NUMERIC_STD is
     RESULT := SIGNED(STD_LOGIC_VECTOR(L) xnor STD_LOGIC_VECTOR(R));
     return RESULT;
   end "xnor";
---END-V93
+--END-!V87
 
   --============================================================================
 
diff --git a/libraries/ieee/numeric_std.vhdl b/libraries/ieee/numeric_std.vhdl
index da22c32b0..360e421c4 100644
--- a/libraries/ieee/numeric_std.vhdl
+++ b/libraries/ieee/numeric_std.vhdl
@@ -606,7 +606,7 @@ package NUMERIC_STD is
   --   out the function (declaration and body) for VHDL 1076-1987 compatibility.
   ------------------------------------------------------------------------------
   -- Id: S.9
-  function "sll" (ARG: UNSIGNED; COUNT: INTEGER) return UNSIGNED; --V93
+  function "sll" (ARG: UNSIGNED; COUNT: INTEGER) return UNSIGNED; --!V87
   -- Result subtype: UNSIGNED(ARG'LENGTH-1 downto 0)
   -- Result: SHIFT_LEFT(ARG, COUNT)
 
@@ -615,7 +615,7 @@ package NUMERIC_STD is
   --   out the function (declaration and body) for VHDL 1076-1987 compatibility.
   ------------------------------------------------------------------------------
   -- Id: S.10
-  function "sll" (ARG: SIGNED; COUNT: INTEGER) return SIGNED; --V93
+  function "sll" (ARG: SIGNED; COUNT: INTEGER) return SIGNED; --!V87
   -- Result subtype: SIGNED(ARG'LENGTH-1 downto 0)
   -- Result: SHIFT_LEFT(ARG, COUNT)
 
@@ -624,7 +624,7 @@ package NUMERIC_STD is
   --   out the function (declaration and body) for VHDL 1076-1987 compatibility.
   ------------------------------------------------------------------------------
   -- Id: S.11
-  function "srl" (ARG: UNSIGNED; COUNT: INTEGER) return UNSIGNED; --V93
+  function "srl" (ARG: UNSIGNED; COUNT: INTEGER) return UNSIGNED; --!V87
   -- Result subtype: UNSIGNED(ARG'LENGTH-1 downto 0)
   -- Result: SHIFT_RIGHT(ARG, COUNT)
 
@@ -633,7 +633,7 @@ package NUMERIC_STD is
   --   out the function (declaration and body) for VHDL 1076-1987 compatibility.
   ------------------------------------------------------------------------------
   -- Id: S.12
-  function "srl" (ARG: SIGNED; COUNT: INTEGER) return SIGNED; --V93
+  function "srl" (ARG: SIGNED; COUNT: INTEGER) return SIGNED; --!V87
   -- Result subtype: SIGNED(ARG'LENGTH-1 downto 0)
   -- Result: SIGNED(SHIFT_RIGHT(UNSIGNED(ARG), COUNT))
 
@@ -642,7 +642,7 @@ package NUMERIC_STD is
   -- out the function (declaration and body) for VHDL 1076-1987 compatibility.
   ------------------------------------------------------------------------------
   -- Id: S.13
-  function "rol" (ARG: UNSIGNED; COUNT: INTEGER) return UNSIGNED; --V93
+  function "rol" (ARG: UNSIGNED; COUNT: INTEGER) return UNSIGNED; --!V87
   -- Result subtype: UNSIGNED(ARG'LENGTH-1 downto 0)
   -- Result: ROTATE_LEFT(ARG, COUNT)
 
@@ -651,7 +651,7 @@ package NUMERIC_STD is
   --   out the function (declaration and body) for VHDL 1076-1987 compatibility.
   ------------------------------------------------------------------------------
   -- Id: S.14
-  function "rol" (ARG: SIGNED; COUNT: INTEGER) return SIGNED; --V93
+  function "rol" (ARG: SIGNED; COUNT: INTEGER) return SIGNED; --!V87
   -- Result subtype: SIGNED(ARG'LENGTH-1 downto 0)
   -- Result: ROTATE_LEFT(ARG, COUNT)
 
@@ -660,7 +660,7 @@ package NUMERIC_STD is
   --   out the function (declaration and body) for VHDL 1076-1987 compatibility.
   ------------------------------------------------------------------------------
   -- Id: S.15
-  function "ror" (ARG: UNSIGNED; COUNT: INTEGER) return UNSIGNED; --V93
+  function "ror" (ARG: UNSIGNED; COUNT: INTEGER) return UNSIGNED; --!V87
   -- Result subtype: UNSIGNED(ARG'LENGTH-1 downto 0)
   -- Result: ROTATE_RIGHT(ARG, COUNT)
 
@@ -669,7 +669,7 @@ package NUMERIC_STD is
   --   out the function (declaration and body) for VHDL 1076-1987 compatibility.
   ------------------------------------------------------------------------------
   -- Id: S.16
-  function "ror" (ARG: SIGNED; COUNT: INTEGER) return SIGNED; --V93
+  function "ror" (ARG: SIGNED; COUNT: INTEGER) return SIGNED; --!V87
   -- Result subtype: SIGNED(ARG'LENGTH-1 downto 0)
   -- Result: ROTATE_RIGHT(ARG, COUNT)
 
@@ -758,7 +758,7 @@ package NUMERIC_STD is
   -- out the function (declaration and body) for VHDL 1076-1987 compatibility.
   -- ---------------------------------------------------------------------------
   -- Id: L.7
-  function "xnor" (L, R: UNSIGNED) return UNSIGNED; --V93
+  function "xnor" (L, R: UNSIGNED) return UNSIGNED; --!V87
   -- Result subtype: UNSIGNED(L'LENGTH-1 downto 0)
   -- Result: Vector XNOR operation
 
@@ -797,7 +797,7 @@ package NUMERIC_STD is
   -- out the function (declaration and body) for VHDL 1076-1987 compatibility.
   -- ---------------------------------------------------------------------------
   -- Id: L.14
-  function "xnor" (L, R: SIGNED) return SIGNED; --V93
+  function "xnor" (L, R: SIGNED) return SIGNED; --!V87
   -- Result subtype: SIGNED(L'LENGTH-1 downto 0)
   -- Result: Vector XNOR operation
 
diff --git a/libraries/ieee/std_logic_1164.vhdl b/libraries/ieee/std_logic_1164.vhdl
index c53113be9..c1c964817 100644
--- a/libraries/ieee/std_logic_1164.vhdl
+++ b/libraries/ieee/std_logic_1164.vhdl
@@ -85,7 +85,7 @@ PACKAGE std_logic_1164 IS
     FUNCTION "or"   ( l : std_ulogic; r : std_ulogic ) RETURN UX01;
     FUNCTION "nor"  ( l : std_ulogic; r : std_ulogic ) RETURN UX01;
     FUNCTION "xor"  ( l : std_ulogic; r : std_ulogic ) RETURN UX01;
-    FUNCTION "xnor" ( l : std_ulogic; r : std_ulogic ) RETURN UX01; --V93
+    FUNCTION "xnor" ( l : std_ulogic; r : std_ulogic ) RETURN UX01; --!V87
     FUNCTION "not"  ( l : std_ulogic                 ) RETURN UX01;
 
     -------------------------------------------------------------------
@@ -115,8 +115,8 @@ PACKAGE std_logic_1164 IS
 --  the intent of this effort to provide such a function once it becomes
 --  available in the VHDL standard.
 --  -----------------------------------------------------------------------
-    FUNCTION "xnor" ( l, r : std_logic_vector  ) RETURN std_logic_vector; --V93
-    FUNCTION "xnor" ( l, r : std_ulogic_vector ) RETURN std_ulogic_vector;--V93
+    FUNCTION "xnor" ( l, r : std_logic_vector  ) RETURN std_logic_vector; --!V87
+    FUNCTION "xnor" ( l, r : std_ulogic_vector ) RETURN std_ulogic_vector;--!V87
 
     FUNCTION "not"  ( l : std_logic_vector  ) RETURN std_logic_vector;
     FUNCTION "not"  ( l : std_ulogic_vector ) RETURN std_ulogic_vector;
diff --git a/libraries/ieee/std_logic_1164_body.vhdl b/libraries/ieee/std_logic_1164_body.vhdl
index 65c5965e0..88a87482c 100644
--- a/libraries/ieee/std_logic_1164_body.vhdl
+++ b/libraries/ieee/std_logic_1164_body.vhdl
@@ -162,12 +162,12 @@ PACKAGE BODY std_logic_1164 IS
         RETURN (xor_table(l, r));
     END "xor";
 
---START-V93
+--START-!V87
     FUNCTION "xnor"  ( l : std_ulogic; r : std_ulogic ) RETURN UX01 IS
     BEGIN
         RETURN not_table(xor_table(l, r));
     END "xnor";
---END-V93
+--END-!V87
 
     FUNCTION "not"  ( l : std_ulogic ) RETURN UX01 IS
     BEGIN
@@ -366,7 +366,7 @@ PACKAGE BODY std_logic_1164 IS
 --  the intent of this effort to provide such a function once it becomes
 --  available in the VHDL standard.
 --  -----------------------------------------------------------------------
---START-V93
+--START-!V87
     FUNCTION "xnor"  ( l,r : std_logic_vector ) RETURN std_logic_vector IS
         ALIAS lv : std_logic_vector ( 1 TO l'LENGTH ) IS l;
         ALIAS rv : std_logic_vector ( 1 TO r'LENGTH ) IS r;
@@ -400,7 +400,7 @@ PACKAGE BODY std_logic_1164 IS
         END IF;
         RETURN result;
     END "xnor";
---END-V93
+--END-!V87
     -------------------------------------------------------------------
     -- not
     -------------------------------------------------------------------