diff options
author | Tristan Gingold <tgingold@free.fr> | 2022-06-28 19:33:36 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2022-06-28 19:33:36 +0200 |
commit | 1b1d517fba9e9ed7656f74e036c817cf84b622e2 (patch) | |
tree | ec819ddfe7580f4153c4208464848a8b23d2cb06 /libraries | |
parent | 6a9d99747a94c03a67a82bbca08982e1116446a4 (diff) | |
download | ghdl-1b1d517fba9e9ed7656f74e036c817cf84b622e2.tar.gz ghdl-1b1d517fba9e9ed7656f74e036c817cf84b622e2.tar.bz2 ghdl-1b1d517fba9e9ed7656f74e036c817cf84b622e2.zip |
libraries/textio-body.vhdl: use false/true for boolean write.
Fix #2115
Diffstat (limited to 'libraries')
-rw-r--r-- | libraries/Makefile.inc | 5 | ||||
-rw-r--r-- | 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; |