blob: 0a78217c43e073604dd192b5f553c29233cede09 [file] [log] [blame]
Tim Wawrzynczak605660b2022-06-08 12:48:19 -06001--
2-- Copyright (C) 2022 Google, LLC
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
15with HW.Debug;
16with GNAT.Source_Info;
17
18with HW.GFX.GMA.Config;
19
20package body HW.GFX.GMA.Power_And_Clocks is
21
22 procedure Pre_All_Off is
23 begin
24 pragma Debug (Debug.Put_Line (GNAT.Source_Info.Enclosing_Entity));
25 end Pre_All_Off;
26
27 procedure Post_All_Off is
28 begin
29 pragma Debug (Debug.Put_Line (GNAT.Source_Info.Enclosing_Entity));
30 end Post_All_Off;
31
32 procedure Initialize is
33 begin
34 pragma Debug (Debug.Put_Line (GNAT.Source_Info.Enclosing_Entity));
35 end Initialize;
36
37 procedure Limit_Dotclocks
38 (Configs : in out Pipe_Configs;
39 CDClk_Switch : out Boolean) is
40 begin
41 CDClk_Switch := False;
42 pragma Debug (Debug.Put_Line (GNAT.Source_Info.Enclosing_Entity));
43 end Limit_Dotclocks;
44
45 procedure Update_CDClk (Configs : in out Pipe_Configs) is
46 begin
47 pragma Debug (Debug.Put_Line (GNAT.Source_Info.Enclosing_Entity));
48 end Update_CDClk;
49
50 procedure Power_Set_To (Configs : Pipe_Configs) is
51 begin
52 pragma Debug (Debug.Put_Line (GNAT.Source_Info.Enclosing_Entity));
53 end Power_Set_To;
54
55 procedure Power_Up (Old_Configs, New_Configs : Pipe_Configs) is
56 begin
57 pragma Debug (Debug.Put_Line (GNAT.Source_Info.Enclosing_Entity));
58 end Power_Up;
59
60 procedure Power_Down (Old_Configs, Tmp_Configs, New_Configs : Pipe_Configs)
61 is
62 begin
63 pragma Debug (Debug.Put_Line (GNAT.Source_Info.Enclosing_Entity));
64 end Power_Down;
65
66end HW.GFX.GMA.Power_And_Clocks;