From c47c0bad5d2beaa55e1fb52e445f7b95174121f7 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Sun, 15 Jan 2023 09:43:26 +0100 Subject: testsuite/gna: fix issue#2098 due to elaboration errors. --- testsuite/gna/issue2098/test.vhdl | 21 +++++++++++---------- 1 file changed, 11 insertions(+), 10 deletions(-) (limited to 'testsuite/gna/issue2098/test.vhdl') 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( -- cgit v1.2.3