fbf3a47e42
Change-Id: I4614e9b02a932530fc22912b5cf502d1b699b451 Signed-off-by: Elyes HAOUAS <ehaouas@noos.fr> Reviewed-on: https://review.coreboot.org/c/coreboot/+/41188 Tested-by: build bot (Jenkins) <no-reply@coreboot.org> Reviewed-by: Patrick Georgi <pgeorgi@google.com>
41 lines
1 KiB
Ada
41 lines
1 KiB
Ada
-- This file is part of the coreboot project.
|
|
-- SPDX-License-Identifier: GPL-2.0-only
|
|
|
|
with Interfaces.C;
|
|
|
|
use type Interfaces.C.int;
|
|
|
|
package body HW.Debug_Sink is
|
|
|
|
function console_log_level
|
|
(msg_level : Interfaces.C.int)
|
|
return Interfaces.C.int;
|
|
pragma Import (C, console_log_level, "console_log_level");
|
|
|
|
Msg_Level_BIOS_DEBUG : constant := 7;
|
|
|
|
procedure console_tx_byte (chr : Interfaces.C.char);
|
|
pragma Import (C, console_tx_byte, "console_tx_byte");
|
|
|
|
procedure Put (Item : String) is
|
|
begin
|
|
if console_log_level (Msg_Level_BIOS_DEBUG) /= 0 then
|
|
for Idx in Item'Range loop
|
|
console_tx_byte (Interfaces.C.To_C (Item (Idx)));
|
|
end loop;
|
|
end if;
|
|
end Put;
|
|
|
|
procedure Put_Char (Item : Character) is
|
|
begin
|
|
if console_log_level (Msg_Level_BIOS_DEBUG) /= 0 then
|
|
console_tx_byte (Interfaces.C.To_C (Item));
|
|
end if;
|
|
end Put_Char;
|
|
|
|
procedure New_Line is
|
|
begin
|
|
Put_Char (Character'Val (16#0a#));
|
|
end New_Line;
|
|
|
|
end HW.Debug_Sink;
|