@@ -101,7 +101,7 @@ package body log_deprecated_pkg is
101101 end if ;
102102 end function ;
103103
104- impure function get_logger_display_handler return log_handler_t is
104+ impure function get_logger_display_handler(logger : logger_t) return log_handler_t is
105105 begin
106106 for idx in 0 to num_log_handlers(logger) - 1 loop
107107 if get_file_name(get_log_handler(logger, idx)) = stdout_file_name then
@@ -112,7 +112,7 @@ package body log_deprecated_pkg is
112112 return null_log_handler;
113113 end function ;
114114
115- impure function get_logger_file_handler return log_handler_t is
115+ impure function get_logger_file_handler(logger : logger_t) return log_handler_t is
116116 begin
117117 for idx in 0 to num_log_handlers(logger) - 1 loop
118118 if get_file_name(get_log_handler(logger, idx)) /= stdout_file_name then
@@ -123,14 +123,14 @@ package body log_deprecated_pkg is
123123 return null_log_handler;
124124 end function ;
125125 begin
126- logger_display_handler := get_logger_display_handler;
126+ logger_display_handler := get_logger_display_handler(logger) ;
127127 if new_logger or (logger_display_handler = null_log_handler) then
128128 logger_display_handler := new_log_handler(stdout_file_name, real_format(display_format), true );
129129 else
130130 init_log_handler(logger_display_handler, real_format(display_format), stdout_file_name, true );
131131 end if ;
132132
133- logger_file_handler := get_logger_file_handler;
133+ logger_file_handler := get_logger_file_handler(logger) ;
134134 if new_logger or (logger_file_handler = null_log_handler) then
135135 logger_file_handler := new_log_handler(file_name , real_format(file_format), false );
136136 else
0 commit comments