From 1b1d517fba9e9ed7656f74e036c817cf84b622e2 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Tue, 28 Jun 2022 19:33:36 +0200
Subject: libraries/textio-body.vhdl: use false/true for boolean write.

Fix #2115
---
 libraries/Makefile.inc         | 5 +++--
 libraries/std/textio-body.vhdl | 6 ++++--
 2 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/libraries/Makefile.inc b/libraries/Makefile.inc
index 7f4fd51d4..e9138870a 100644
--- a/libraries/Makefile.inc
+++ b/libraries/Makefile.inc
@@ -125,10 +125,11 @@ SYNOPSYS08_BSRCS := $(addprefix synopsys/,$(SYNOPSYS_BSRCS)) $(addprefix synopsy
 
 .PREFIXES: .vhdl
 
-SED_V93:= sed -e '/--V87/s/^/  --/' \
+SED_V93:= sed -e '/--V87/s/^/  --/' -e '/--V08/s/^/  --/' \
  -e '/--START-V08/,/--END-V08/s/^/--/'
 
-SED_V87:= sed -e '/--!V87/s/^/  --/' -e '/--START-!V87/,/--END-!V87/s/^/--/' \
+SED_V87:= sed -e '/--!V87/s/^/  --/' -e '/--V08/s/^/  --/' \
+ -e '/--START-!V87/,/--END-!V87/s/^/--/' \
  -e '/--START-V08/,/--END-V08/s/^/--/'
 
 SED_V08:= sed -e '/--V87/s/^/  --/' -e '/--!V08/s/^/  --/' \
diff --git a/libraries/std/textio-body.vhdl b/libraries/std/textio-body.vhdl
index 8ea3dc789..dcef308a7 100644
--- a/libraries/std/textio-body.vhdl
+++ b/libraries/std/textio-body.vhdl
@@ -193,9 +193,11 @@ package body textio is
   is
   begin
     if value then
-      write (l, string'("TRUE"), justified, field);
+      write (l, string'("TRUE"), justified, field);  --!V08
+      write (l, string'("true"), justified, field);  --V08
     else
-      write (l, string'("FALSE"), justified, field);
+      write (l, string'("FALSE"), justified, field); --!V08
+      write (l, string'("false"), justified, field); --V08
     end if;
   end write;
 
-- 
cgit v1.2.3