blob: 10e9d53ab9d5f9499599e6aaaac9aaefea8b8d25 [file] [log] [blame] [edit]
--
-- Copyright (C) 2026 Arthur Heymans <arthur@aheymans.xyz>
--
-- 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_Helpers;
private package HW.GFX.GMA.Power_And_Clocks is
procedure Initialize;
procedure Limit_Dotclocks
(Configs : in out Pipe_Configs;
CDClk_Switch : out Boolean)
with
Post =>
not CDClk_Switch and
Config_Helpers.Stable_FB (Configs'Old, Configs);
procedure Update_CDClk (Configs : in out Pipe_Configs) is null;
procedure Enable_CDClk is null;
procedure Pre_All_Off is null;
procedure Post_All_Off is null;
procedure Power_Set_To (Configs : Pipe_Configs) is null;
pragma Warnings (GNATprove, Off, "unused variable ""Port""",
Reason => "Needed for a common interface");
procedure Power_Up (Port : Active_Port_Type; Success : out Boolean);
pragma Warnings (GNATprove, On, "unused variable ""Port""");
procedure Power_Up (Old_Configs, New_Configs : Pipe_Configs) is null;
procedure Power_Down (Old_Configs, Tmp_Configs, New_Configs : Pipe_Configs)
is null;
end HW.GFX.GMA.Power_And_Clocks;