Backport from ghdl 0.32: update libraries and ghdlfilter.

From Brian Davis.

9 files changed, 62 insertions, 62 deletions

diff --git a/libraries/Makefile.inc b/libraries/Makefile.inc
index f12c023..fceed0d 100644
--- a/libraries/Makefile.inc
+++ b/libraries/Makefile.inc
@@ -77,13 +77,13 @@ MENTOR93_BSRCS := $(MENTOR_BSRCS)
 
 .PREFIXES: .vhdl .v93 .v87 .v08
 
-SED_V93 := sed -e '/--V87/s/^/  --/' \
-	  -e '/--START-V08/,/--END-V08/s/^/--/'
+SED_V93:= sed -e '/--V87/s/^/  --/' \
+ -e '/--START-V08/,/--END-V08/s/^/--/'
 
-SED_V87 := sed -e '/--V93/s/^/  --/' -e '/--START-V93/,/--END-V93/s/^/--/' \
-	  -e '/--START-V08/,/--END-V08/s/^/--/'
+SED_V87:= sed -e '/--!V87/s/^/  --/' -e '/--START-!V87/,/--END-!V87/s/^/--/' \
+ -e '/--START-V08/,/--END-V08/s/^/--/'
 
-SED_V08 := sed -e '/--V87/s/^/  --/'
+SED_V08:= sed -e '/--V87/s/^/  --/'
 
 LIB87_DIR:=$(LIBDST_DIR)/v87
 STD87_DIR:=$(LIB87_DIR)/std
diff --git a/libraries/ieee/numeric_bit-body.vhdl b/libraries/ieee/numeric_bit-body.vhdl
index 8955946..92d069f 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 8f049f2..3364e36 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 a5d609d..ff34e18 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 da22c32..360e421 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 c53113b..c1c9648 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 65c5965..88a8748 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
     -------------------------------------------------------------------
diff --git a/libraries/std/textio.vhdl b/libraries/std/textio.vhdl
index fe69d2d..3b62d76 100644
--- a/libraries/std/textio.vhdl
+++ b/libraries/std/textio.vhdl
@@ -43,13 +43,13 @@ package Textio is
 
   file input:  text is in "STD_INPUT";  --V87
   file output: text is out "STD_OUTPUT";  --V87
-  file input : text open read_mode is "STD_INPUT";  --V93
-  file output : text open write_mode is "STD_OUTPUT";  --V93
+  file input : text open read_mode is "STD_INPUT";  --!V87
+  file output : text open write_mode is "STD_OUTPUT";  --!V87
 
 -- input routines for standard types
 
   procedure readline (variable f: in text; l: inout line); --V87
-  procedure readline (file f: text; l: inout line); --V93
+  procedure readline (file f: text; l: inout line); --!V87
 
   --  For READ procedures:
   --  In this implementation, any L is accepted (ie, there is no constraints
@@ -120,7 +120,7 @@ package Textio is
 -- output routines for standard types
 
   procedure writeline (variable f: out text; l: inout line); --V87
-  procedure writeline (file f: text; l: inout line); --V93
+  procedure writeline (file f: text; l: inout line); --!V87
 
 --START-V08
   procedure Tee (file f : Text; L : inout LINE);
diff --git a/libraries/std/textio_body.vhdl b/libraries/std/textio_body.vhdl
index bb4ea8c..e74fcc6 100644
--- a/libraries/std/textio_body.vhdl
+++ b/libraries/std/textio_body.vhdl
@@ -68,14 +68,14 @@ package body textio is
     ((fs, "fs "), (ps, "ps "), (ns, "ns "), (us, "us "),
      (ms, "ms "), (sec, "sec"), (min, "min"), (hr, "hr "));
 
-  --  Non breaking space character.                     --V93
-  constant nbsp : character := character'val (160);	--V93
+  --  Non breaking space character.                     --!V87
+  constant nbsp : character := character'val (160);	--!V87
 
   function is_whitespace (c : character) return Boolean is
   begin
     case c is
       when ' '
-        | NBSP --V93
+        | NBSP --!V87
 	| HT =>
         return True;
       when others =>
@@ -84,7 +84,7 @@ package body textio is
   end is_Whitespace;
 
   procedure writeline (variable f: out text; l: inout line) is --V87
-  procedure writeline (file f: text; l: inout line) is --V93
+  procedure writeline (file f: text; l: inout line) is --!V87
   begin
     if l = null then
       -- LRM93 14.3
@@ -498,21 +498,21 @@ package body textio is
   
   procedure untruncated_text_read                              --V87
     (variable f : text; str : out string; len : out natural);  --V87
-  procedure untruncated_text_read                              --V93
-    (file f : text; str : out string; len : out natural);      --V93
+  procedure untruncated_text_read                              --!V87
+    (file f : text; str : out string; len : out natural);      --!V87
 
   attribute foreign : string;                                  --V87
   attribute foreign of untruncated_text_read : procedure is "GHDL intrinsic";
 
   procedure untruncated_text_read
     (variable f : text; str : out string; len : out natural) is    --V87
-    (file f : text; str : out string; len : out natural) is    --V93
+    (file f : text; str : out string; len : out natural) is    --!V87
   begin
     assert false report "must not be called" severity failure;
   end untruncated_text_read;
 
   procedure readline (variable f: in text; l: inout line) --V87
-  procedure readline (file f: text; l: inout line) --V93
+  procedure readline (file f: text; l: inout line) --!V87
   is
     variable len, nlen, posn : natural;
     variable nl, old_l : line;
@@ -649,7 +649,7 @@ package body textio is
     for i in l'range loop
       case l(i) is
 	when ' '
-	  | NBSP --V93
+	  | NBSP --!V87
 	  | HT =>
 	  null;
 	when '1' =>
@@ -708,7 +708,7 @@ package body textio is
     for i in l'range loop
       case l(i) is
 	when ' '
-	  | NBSP --V93
+	  | NBSP --!V87
 	  | HT =>
 	  case state is
 	    when leading =>
@@ -861,7 +861,7 @@ package body textio is
 	when leading =>
 	  case l(i) is
 	    when ' '
-	      | NBSP	--V93
+	      | NBSP	--!V87
 	      | ht =>
 	      null;
 	    when '+' =>
@@ -985,7 +985,7 @@ package body textio is
 	when leading =>
 	  case l(i) is
 	    when ' '
-	      | NBSP	--V93
+	      | NBSP	--!V87
 	      | ht =>
 	      null;
 	    when '+' =>
@@ -1172,7 +1172,7 @@ package body textio is
     for i in l'range loop
       case l (i) is
 	when ' '
-	  | NBSP  --V93
+	  | NBSP  --!V87
 	  | HT =>
 	  case state is
 	    when leading | unit_blank =>
@@ -1313,7 +1313,7 @@ package body textio is
     for i in l'range loop
       case l (i) is
 	when ' '
-	  | NBSP  --V93
+	  | NBSP  --!V87
 	  | HT =>
 	  if has_digits then
 	    exit;