blob: a0bad14ccba4f406717cafe310198fb2c9da11cb [file] [log] [blame]
Tim Wawrzynczak605660b2022-06-08 12:48:19 -06001--
2-- Copyright (C) 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.GFX.GMA.Config;
16with HW.GFX.GMA.Registers;
17with HW.GFX.GMA.Config_Helpers;
18
19with HW.Debug;
20with GNAT.Source_Info;
21
22package body HW.GFX.GMA.Port_Detect
23is
24 procedure Initialize is
25 begin
26 pragma Debug (Debug.Put_Line (GNAT.Source_Info.Enclosing_Entity));
27 end Initialize;
28
29 pragma Warnings (Off, "unused variable ""Port""",
30 Reason => "Not yet implemented.");
31 procedure Hotplug_Detect
32 (Port : in Active_Port_Type;
33 Detected : out Boolean)
34 is
35 begin
36 pragma Debug (Debug.Put_Line (GNAT.Source_Info.Enclosing_Entity));
37 Detected := False;
38 end Hotplug_Detect;
39 pragma Warnings (On, "unused variable ""Port""");
40
41 procedure Clear_Hotplug_Detect (Port : Active_Port_Type)
42 is
43 begin
44 pragma Debug (Debug.Put_Line (GNAT.Source_Info.Enclosing_Entity));
45 end Clear_Hotplug_Detect;
46
47end HW.GFX.GMA.Port_Detect;