GNUBoot
/
coreboot-kgpe-d16
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

console/hw-debug_sink: Update for fast/slow console distinction 

Change-Id: I9ac110c7b812f912f0f87cbe4aa218d4a78e6aaf
Signed-off-by: Nico Huber <nico.huber@secunet.com>
Reviewed-on: https://review.coreboot.org/c/coreboot/+/56665
Tested-by: build bot (Jenkins) <no-reply@coreboot.org>
Reviewed-by: Angel Pons <th3fanbus@gmail.com>
This commit is contained in:
Nico Huber 2021-07-27 13:46:55 +00:00 committed by Paul Fagerburg
parent 234e7ecb29
commit 12441dce06
1 changed files with 28 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
src/console/hw-debug_sink.adb
View File

@ -1,7 +1,9 @@
-- SPDX-License-Identifier: GPL-2.0-only -- SPDX-License-Identifier: GPL-2.0-only
with Interfaces.C; with Interfaces.C;
with CB.Config;
use CB;
use type Interfaces.C.int; use type Interfaces.C.int;
package body HW.Debug_Sink is package body HW.Debug_Sink is
@ -13,21 +15,43 @@ package body HW.Debug_Sink is
Msg_Level_BIOS_DEBUG : constant := 7; Msg_Level_BIOS_DEBUG : constant := 7;
CONSOLE_LOG_FAST : constant := 1;
CONSOLE_LOG_ALL : constant := 2;
procedure cbmemc_tx_byte (chr : Interfaces.C.char);
pragma Import (C, cbmemc_tx_byte, "cbmemc_tx_byte");
procedure console_tx_byte (chr : Interfaces.C.char); procedure console_tx_byte (chr : Interfaces.C.char);
pragma Import (C, console_tx_byte, "console_tx_byte"); pragma Import (C, console_tx_byte, "console_tx_byte");
procedure Put (Item : String) is procedure Put (Item : String)
is
console_log : constant Interfaces.C.int :=
console_log_level (Msg_Level_BIOS_DEBUG);
begin begin
if console_log_level (Msg_Level_BIOS_DEBUG) /= 0 then if console_log = CONSOLE_LOG_FAST then
if Config.CONSOLE_CBMEM then
for Idx in Item'Range loop
cbmemc_tx_byte (Interfaces.C.To_C (Item (Idx)));
end loop;
end if;
elsif console_log = CONSOLE_LOG_ALL then
for Idx in Item'Range loop for Idx in Item'Range loop
console_tx_byte (Interfaces.C.To_C (Item (Idx))); console_tx_byte (Interfaces.C.To_C (Item (Idx)));
end loop; end loop;
end if; end if;
end Put; end Put;
procedure Put_Char (Item : Character) is procedure Put_Char (Item : Character)
is
console_log : constant Interfaces.C.int :=
console_log_level (Msg_Level_BIOS_DEBUG);
begin begin
if console_log_level (Msg_Level_BIOS_DEBUG) /= 0 then if console_log = CONSOLE_LOG_FAST then
if Config.CONSOLE_CBMEM then
cbmemc_tx_byte (Interfaces.C.To_C (Item));
end if;
elsif console_log = CONSOLE_LOG_ALL then
console_tx_byte (Interfaces.C.To_C (Item)); console_tx_byte (Interfaces.C.To_C (Item));
end if; end if;
end Put_Char; end Put_Char;