c83239eabc
It's hidden behind a configuration option `CONFIG_RAMSTAGE_LIBHWBASE`. This also adds some glue code to use the coreboot console for debug output and our monotonic timer framework as timer backend. v2: Also update 3rdparty/libhwbase to the latest master commit. Change-Id: I8e8d50271b46aac1141f95ab55ad323ac0889a8d Signed-off-by: Nico Huber <nico.huber@secunet.com> Reviewed-on: https://review.coreboot.org/16951 Tested-by: build bot (Jenkins) Reviewed-by: Paul Menzel <paulepanter@users.sourceforge.net> Reviewed-by: Ronald G. Minnich <rminnich@gmail.com>
60 lines
1.6 KiB
Ada
60 lines
1.6 KiB
Ada
--
|
|
-- This file is part of the coreboot project.
|
|
--
|
|
-- Copyright (C) 2015 secunet Security Networks AG
|
|
--
|
|
-- This program is free software; you can redistribute it and/or modify
|
|
-- it under the terms of the GNU General Public License as published by
|
|
-- the Free Software Foundation; version 2 of the License.
|
|
--
|
|
-- This program is distributed in the hope that it will be useful,
|
|
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
-- GNU General Public License for more details.
|
|
--
|
|
|
|
with Interfaces.C;
|
|
|
|
use type Interfaces.C.int;
|
|
|
|
package body HW.Debug_Sink is
|
|
|
|
Sink_Enabled : Boolean;
|
|
|
|
procedure console_tx_byte (chr : Interfaces.C.char);
|
|
pragma Import (C, console_tx_byte, "console_tx_byte");
|
|
|
|
procedure Put (Item : String) is
|
|
begin
|
|
if Sink_Enabled 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 Sink_Enabled 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;
|
|
|
|
----------------------------------------------------------------------------
|
|
|
|
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;
|
|
|
|
begin
|
|
Sink_Enabled := console_log_level (Msg_Level_BIOS_DEBUG) /= 0;
|
|
end HW.Debug_Sink;
|