diff options
author | Tristan Gingold <tgingold@free.fr> | 2023-01-15 09:43:26 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2023-01-15 11:36:07 +0100 |
commit | c47c0bad5d2beaa55e1fb52e445f7b95174121f7 (patch) | |
tree | 51fbf4df30356aa6abc18b6082420c0fcfbda331 /testsuite/gna/issue2098/test.vhdl | |
parent | aa440f398761c13c720f358198f8a4f93d880f61 (diff) | |
download | ghdl-c47c0bad5d2beaa55e1fb52e445f7b95174121f7.tar.gz ghdl-c47c0bad5d2beaa55e1fb52e445f7b95174121f7.tar.bz2 ghdl-c47c0bad5d2beaa55e1fb52e445f7b95174121f7.zip |
testsuite/gna: fix issue#2098 due to elaboration errors.
Diffstat (limited to 'testsuite/gna/issue2098/test.vhdl')
-rw-r--r-- | testsuite/gna/issue2098/test.vhdl | 21 |
1 files changed, 11 insertions, 10 deletions
diff --git a/testsuite/gna/issue2098/test.vhdl b/testsuite/gna/issue2098/test.vhdl index b2dedd731..854d30ef2 100644 --- a/testsuite/gna/issue2098/test.vhdl +++ b/testsuite/gna/issue2098/test.vhdl @@ -14,6 +14,8 @@ package log is separator : string(1 to 3); end record; + procedure set_config(cfg : t_config); + type t_logger is protected procedure set_config(c : t_config); @@ -24,10 +26,6 @@ package log is procedure error(msg : string); end protected; - shared variable logger : t_logger; - - procedure set_config(cfg : t_config); - procedure trace(msg : string); procedure debug(msg : string); procedure info(msg : string); @@ -47,12 +45,6 @@ end package; package body log is - procedure trace(msg : string) is begin logger.trace(msg); end procedure; - procedure debug(msg : string) is begin logger.debug(msg); end procedure; - procedure info(msg : string) is begin logger.info(msg); end procedure; - procedure warn(msg : string) is begin logger.warn(msg); end procedure; - procedure error(msg : string) is begin logger.error(msg); end procedure; - type t_logger is protected body variable cfg : t_config := config; @@ -96,6 +88,15 @@ package body log is end protected body; + shared variable logger : t_logger; + + procedure trace(msg : string) is begin logger.trace(msg); end procedure; + procedure debug(msg : string) is begin logger.debug(msg); end procedure; + procedure info(msg : string) is begin logger.info(msg); end procedure; + procedure warn(msg : string) is begin logger.warn(msg); end procedure; + procedure error(msg : string) is begin logger.error(msg); end procedure; + + procedure set_config(cfg : t_config) is begin logger.set_config(cfg); end procedure; function config( |