diff options
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( |