blob: a0bad14ccba4f406717cafe310198fb2c9da11cb [file] [log] [blame]
--
-- Copyright (C) Google, LLC
--
-- 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; either version 2 of the License, or
-- (at your option) any later version.
--
-- 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 HW.GFX.GMA.Config;
with HW.GFX.GMA.Registers;
with HW.GFX.GMA.Config_Helpers;
with HW.Debug;
with GNAT.Source_Info;
package body HW.GFX.GMA.Port_Detect
is
procedure Initialize is
begin
pragma Debug (Debug.Put_Line (GNAT.Source_Info.Enclosing_Entity));
end Initialize;
pragma Warnings (Off, "unused variable ""Port""",
Reason => "Not yet implemented.");
procedure Hotplug_Detect
(Port : in Active_Port_Type;
Detected : out Boolean)
is
begin
pragma Debug (Debug.Put_Line (GNAT.Source_Info.Enclosing_Entity));
Detected := False;
end Hotplug_Detect;
pragma Warnings (On, "unused variable ""Port""");
procedure Clear_Hotplug_Detect (Port : Active_Port_Type)
is
begin
pragma Debug (Debug.Put_Line (GNAT.Source_Info.Enclosing_Entity));
end Clear_Hotplug_Detect;
end HW.GFX.GMA.Port_Detect;