| Nico Huber | 83693c8 | 2016-10-08 22:17:55 +0200 | [diff] [blame] | 1 | -- |
| 2 | -- Copyright (C) 2015-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 |
| Nico Huber | 125a29e | 2016-10-18 00:23:54 +0200 | [diff] [blame] | 6 | -- the Free Software Foundation; either version 2 of the License, or |
| 7 | -- (at your option) any later version. |
| Nico Huber | 83693c8 | 2016-10-08 22:17:55 +0200 | [diff] [blame] | 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 | |
| 15 | private package HW.GFX.GMA.Connectors is |
| 16 | |
| Nico Huber | 0923b79 | 2017-06-09 15:28:41 +0200 | [diff] [blame^] | 17 | pragma Warnings (GNATprove, Off, "subprogram ""Initialize"" has no effect", |
| 18 | Reason => "Only effects some platforms"); |
| 19 | procedure Initialize; |
| 20 | pragma Warnings (GNATprove, On, "subprogram ""Initialize"" has no effect"); |
| 21 | |
| Nico Huber | 83693c8 | 2016-10-08 22:17:55 +0200 | [diff] [blame] | 22 | pragma Warnings (GNATprove, Off, "unused variable ""P*""", |
| 23 | Reason => "Needed for a common interface"); |
| 24 | procedure Pre_On |
| Nico Huber | 6e327c9 | 2016-12-21 14:45:45 +0100 | [diff] [blame] | 25 | (Pipe : in Pipe_Index; |
| 26 | Port_Cfg : in Port_Config; |
| Nico Huber | 83693c8 | 2016-10-08 22:17:55 +0200 | [diff] [blame] | 27 | PLL_Hint : in Word32; |
| Nico Huber | 83693c8 | 2016-10-08 22:17:55 +0200 | [diff] [blame] | 28 | Success : out Boolean); |
| 29 | |
| 30 | procedure Post_On |
| 31 | (Port_Cfg : in Port_Config; |
| 32 | PLL_Hint : in Word32; |
| 33 | Success : out Boolean); |
| 34 | pragma Warnings (GNATprove, On, "unused variable ""P*"""); |
| 35 | |
| 36 | procedure Pre_Off (Port_Cfg : Port_Config); |
| 37 | procedure Post_Off (Port_Cfg : Port_Config); |
| 38 | |
| 39 | procedure Pre_All_Off; |
| 40 | procedure Post_All_Off; |
| 41 | |
| 42 | end HW.GFX.GMA.Connectors; |