blob: eee99d09396aa43ec4f0767c94a7f74a6c29c9a8 [file] [log] [blame]
Arthur Heymans73ea0322018-03-28 17:17:07 +02001--
2-- Copyright (C) 2016 secunet Security Networks AG
3--
4-- This program is free software; you can redistribute it and/or modify
5-- it under the terms of the GNU General Public License as published by
6-- the Free Software Foundation; either version 2 of the License, or
7-- (at your option) any later version.
8--
9-- This program is distributed in the hope that it will be useful,
10-- but WITHOUT ANY WARRANTY; without even the implied warranty of
11-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12-- GNU General Public License for more details.
13--
14
Nico Huberb47a5c42019-09-29 00:07:21 +020015with HW.GFX.GMA.Config_Helpers;
16
Arthur Heymans73ea0322018-03-28 17:17:07 +020017private package HW.GFX.GMA.Power_And_Clocks is
18
19 procedure Initialize;
20
Nico Huberb47a5c42019-09-29 00:07:21 +020021 procedure Limit_Dotclocks
22 (Configs : in out Pipe_Configs;
23 CDClk_Switch : out Boolean)
24 with
25 Post =>
26 not CDClk_Switch and
27 Config_Helpers.Stable_FB (Configs'Old, Configs);
28 procedure Update_CDClk (Configs : in out Pipe_Configs) is null;
29 procedure Enable_CDClk is null;
30
Arthur Heymans73ea0322018-03-28 17:17:07 +020031 procedure Pre_All_Off is null;
32
33 procedure Post_All_Off is null;
34
35 procedure Power_Set_To (Configs : Pipe_Configs) is null;
36
Nico Huber41e86742024-07-17 17:10:28 +020037 pragma Warnings (GNATprove, Off, "unused variable ""Port""",
38 Reason => "Needed for a common interface");
39 procedure Power_Up (Port : Active_Port_Type; Success : out Boolean);
40 pragma Warnings (GNATprove, On, "unused variable ""Port""");
Arthur Heymans73ea0322018-03-28 17:17:07 +020041 procedure Power_Up (Old_Configs, New_Configs : Pipe_Configs) is null;
42
43 procedure Power_Down (Old_Configs, Tmp_Configs, New_Configs : Pipe_Configs)
44 is null;
45
46end HW.GFX.GMA.Power_And_Clocks;