Fix double headers and double empty lines again
This commit is contained in:
parent
efd1008ed1
commit
2c34099040
|
@ -29,7 +29,6 @@
|
|||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
|
||||
with Ada.Real_Time; use Ada.Real_Time;
|
||||
|
||||
with STM32_SVD.I2C; use STM32_SVD.I2C;
|
||||
|
|
|
@ -29,7 +29,6 @@
|
|||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
|
||||
-- This file provides definitions for the STM32F7 (ARM Cortex M7F
|
||||
-- from ST Microelectronics) Inter-Integrated Circuit (I2C) facility.
|
||||
|
||||
|
|
|
@ -1,3 +1,4 @@
|
|||
|
||||
------------------------------------------------------------------------------
|
||||
-- --
|
||||
-- Copyright (C) 2015-2016, AdaCore --
|
||||
|
@ -29,37 +30,6 @@
|
|||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
------------------------------------------------------------------------------
|
||||
-- --
|
||||
-- Copyright (C) 2016, AdaCore --
|
||||
-- --
|
||||
-- Redistribution and use in source and binary forms, with or without --
|
||||
-- modification, are permitted provided that the following conditions are --
|
||||
-- met: --
|
||||
-- 1. Redistributions of source code must retain the above copyright --
|
||||
-- notice, this list of conditions and the following disclaimer. --
|
||||
-- 2. Redistributions in binary form must reproduce the above copyright --
|
||||
-- notice, this list of conditions and the following disclaimer in --
|
||||
-- the documentation and/or other materials provided with the --
|
||||
-- distribution. --
|
||||
-- 3. Neither the name of AdaCore nor the names of its contributors may --
|
||||
-- be used to endorse or promote products derived from this software --
|
||||
-- without specific prior written permission.
|
||||
-- --
|
||||
-- THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS --
|
||||
-- "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT --
|
||||
-- LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR --
|
||||
-- A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT --
|
||||
-- HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, --
|
||||
-- SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT --
|
||||
-- LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, --
|
||||
-- DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY --
|
||||
-- THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT --
|
||||
-- (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE --
|
||||
-- OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. --
|
||||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
with System.Machine_Code; use System.Machine_Code;
|
||||
with Ada.Unchecked_Conversion;
|
||||
|
||||
|
|
|
@ -29,37 +29,6 @@
|
|||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
------------------------------------------------------------------------------
|
||||
-- --
|
||||
-- Copyright (C) 2016, AdaCore --
|
||||
-- --
|
||||
-- Redistribution and use in source and binary forms, with or without --
|
||||
-- modification, are permitted provided that the following conditions are --
|
||||
-- met: --
|
||||
-- 1. Redistributions of source code must retain the above copyright --
|
||||
-- notice, this list of conditions and the following disclaimer. --
|
||||
-- 2. Redistributions in binary form must reproduce the above copyright --
|
||||
-- notice, this list of conditions and the following disclaimer in --
|
||||
-- the documentation and/or other materials provided with the --
|
||||
-- distribution. --
|
||||
-- 3. Neither the name of AdaCore nor the names of its contributors may --
|
||||
-- be used to endorse or promote products derived from this software --
|
||||
-- without specific prior written permission.
|
||||
-- --
|
||||
-- THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS --
|
||||
-- "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT --
|
||||
-- LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR --
|
||||
-- A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT --
|
||||
-- HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, --
|
||||
-- SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT --
|
||||
-- LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, --
|
||||
-- DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY --
|
||||
-- THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT --
|
||||
-- (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE --
|
||||
-- OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. --
|
||||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
-- This file provides subprograms necessary to handle the cache on the
|
||||
-- Cortex-M7 family of CPU.
|
||||
|
||||
|
|
|
@ -29,7 +29,6 @@
|
|||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
|
||||
package body Semihosting.Filesystem is
|
||||
|
||||
-----------------
|
||||
|
|
|
@ -29,7 +29,6 @@
|
|||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
|
||||
with Ada.Real_Time; use Ada.Real_Time;
|
||||
|
||||
with STM32.Device; use STM32.Device;
|
||||
|
|
|
@ -29,7 +29,6 @@
|
|||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
|
||||
with Interfaces; use Interfaces;
|
||||
with Ada.Interrupts.Names;
|
||||
|
||||
|
|
|
@ -29,7 +29,6 @@
|
|||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
|
||||
-- MPU9250 I2C device class package
|
||||
|
||||
with Interfaces; use Interfaces;
|
||||
|
|
|
@ -29,7 +29,6 @@
|
|||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
|
||||
-- The file declares the main procedure for the demonstration.
|
||||
|
||||
with Last_Chance_Handler; pragma Unreferenced (Last_Chance_Handler);
|
||||
|
|
|
@ -29,7 +29,6 @@
|
|||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
|
||||
with STM32.Board; use STM32.Board;
|
||||
|
||||
package body Framebuffer_Helper is
|
||||
|
|
|
@ -29,7 +29,6 @@
|
|||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
|
||||
package Framebuffer_Helper is
|
||||
|
||||
procedure Update_All_Layers;
|
||||
|
|
|
@ -29,7 +29,6 @@
|
|||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
|
||||
with Interfaces; use Interfaces;
|
||||
with Interfaces.Bit_Types; use Interfaces.Bit_Types;
|
||||
|
||||
|
|
|
@ -29,7 +29,6 @@
|
|||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
|
||||
with HAL.Bitmap; use HAL.Bitmap;
|
||||
|
||||
with Bitmapped_Drawing; use Bitmapped_Drawing;
|
||||
|
|
|
@ -29,7 +29,6 @@
|
|||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
|
||||
package body Grid is
|
||||
|
||||
function Can_Move_Row (Row : in Row_T) return Boolean;
|
||||
|
|
|
@ -29,7 +29,6 @@
|
|||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
|
||||
package Grid is
|
||||
type Size is new Integer range 0 .. 3;
|
||||
|
||||
|
|
|
@ -29,7 +29,6 @@
|
|||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
|
||||
with STM32.Board; use STM32.Board;
|
||||
|
||||
package body Framebuffer_Helper is
|
||||
|
|
|
@ -29,8 +29,6 @@
|
|||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
|
||||
|
||||
with System.Storage_Elements; use System.Storage_Elements;
|
||||
with Ada.Unchecked_Conversion;
|
||||
|
||||
|
|
|
@ -29,7 +29,6 @@
|
|||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
|
||||
-- A simple implementation of storage allocation (malloc etc) for ZFP use
|
||||
|
||||
pragma Restrictions (No_Elaboration_Code);
|
||||
|
|
|
@ -29,7 +29,6 @@
|
|||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
|
||||
-- This code is based on the solver by nneonneo in github:
|
||||
-- https://github.com/nneonneo/2048-ai
|
||||
-- No specific license is described there, so I assumed some MIT-like license
|
||||
|
|
|
@ -29,7 +29,6 @@
|
|||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
|
||||
pragma Restrictions (No_Streams);
|
||||
|
||||
package Solver is
|
||||
|
|
|
@ -29,7 +29,6 @@
|
|||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
|
||||
with Game;
|
||||
|
||||
with STM32.Board; use STM32.Board;
|
||||
|
|
|
@ -29,7 +29,6 @@
|
|||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
|
||||
with Bitmapped_Drawing; use Bitmapped_Drawing;
|
||||
with HAL.Bitmap; use HAL.Bitmap;
|
||||
|
||||
|
|
|
@ -29,7 +29,6 @@
|
|||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
|
||||
with Ada.Real_Time; use Ada.Real_Time;
|
||||
with Ada.Text_IO; use Ada.Text_IO;
|
||||
|
||||
|
|
|
@ -29,7 +29,6 @@
|
|||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
|
||||
with Bitmapped_Drawing; use Bitmapped_Drawing;
|
||||
|
||||
package TP is
|
||||
|
|
|
@ -29,7 +29,6 @@
|
|||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
|
||||
-- This version is for use with the ravenscar-sfp runtime.
|
||||
|
||||
with System;
|
||||
|
|
|
@ -29,7 +29,6 @@
|
|||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
|
||||
-- The file declares the main procedure for the demonstration. The LEDs
|
||||
-- will blink "in a circle" on the board. The blue user button generates
|
||||
-- an interrupt that changes the direction.
|
||||
|
|
|
@ -29,7 +29,6 @@
|
|||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
|
||||
with HAL; use HAL;
|
||||
|
||||
package body Bitmapped_Drawing is
|
||||
|
|
|
@ -29,7 +29,6 @@
|
|||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
|
||||
-- This package provides routines for drawing shapes, characters, and strings
|
||||
-- on a bit-mapped device or graphical buffer.
|
||||
|
||||
|
|
|
@ -29,7 +29,6 @@
|
|||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
|
||||
package body Hershey_Fonts is
|
||||
|
||||
function Get_Glyph (C : Character) return Glyph_Index;
|
||||
|
|
|
@ -29,7 +29,6 @@
|
|||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
|
||||
-- This package handles the Hershey font format.
|
||||
|
||||
with Interfaces; use Interfaces;
|
||||
|
|
|
@ -29,7 +29,6 @@
|
|||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
|
||||
with STM32.Board; use STM32.Board;
|
||||
with Bitmapped_Drawing;
|
||||
|
||||
|
|
|
@ -29,7 +29,6 @@
|
|||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
|
||||
-- This package provides a set of convenience routines for putting characters
|
||||
-- and strings out to the LCD.
|
||||
|
||||
|
|
|
@ -29,7 +29,6 @@
|
|||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
|
||||
-- This version is for use with the ravenscar-sfp runtime.
|
||||
|
||||
with System;
|
||||
|
|
|
@ -29,7 +29,6 @@
|
|||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
|
||||
-- This version of the LCH only toggles the Red LED.
|
||||
|
||||
-- Note this version is for use with the ravenscar-sfp runtime.
|
||||
|
|
|
@ -29,7 +29,6 @@
|
|||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
|
||||
-- The file declares the main procedure for the demonstration.
|
||||
|
||||
with Conway_Driver; pragma Unreferenced (Conway_Driver);
|
||||
|
|
|
@ -29,7 +29,6 @@
|
|||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
|
||||
with Ada.Unchecked_Conversion;
|
||||
with Interfaces; use Interfaces;
|
||||
with HAL; use HAL;
|
||||
|
|
|
@ -29,7 +29,6 @@
|
|||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
|
||||
with System;
|
||||
|
||||
package Conway_Driver is
|
||||
|
|
|
@ -29,7 +29,6 @@
|
|||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
|
||||
-- A very simple draw application.
|
||||
-- Use your finger to draw pixels.
|
||||
|
||||
|
|
|
@ -29,7 +29,6 @@
|
|||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
|
||||
with Ada.Real_Time;
|
||||
with Interfaces; use Interfaces;
|
||||
with STM32.Eth;
|
||||
|
|
|
@ -29,7 +29,6 @@
|
|||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
|
||||
with Ada.Unchecked_Conversion;
|
||||
|
||||
package body FAT_Filesystem.Directories is
|
||||
|
|
|
@ -29,7 +29,6 @@
|
|||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
|
||||
package FAT_Filesystem.Directories is
|
||||
|
||||
type Directory_Entry is private;
|
||||
|
|
|
@ -29,7 +29,6 @@
|
|||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
|
||||
with Ada.Unchecked_Conversion;
|
||||
with FAT_Filesystem; use FAT_Filesystem;
|
||||
|
||||
|
|
|
@ -29,7 +29,6 @@
|
|||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
|
||||
-- Initial contribution by:
|
||||
--
|
||||
-- Institution: Technische Universitaet Muenchen
|
||||
|
|
|
@ -29,7 +29,6 @@
|
|||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
|
||||
with Ada.Unchecked_Conversion;
|
||||
with FAT_Filesystem.Directories;
|
||||
|
||||
|
|
|
@ -29,7 +29,6 @@
|
|||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
|
||||
with Interfaces; use Interfaces;
|
||||
with HAL.Block_Drivers; use HAL.Block_Drivers;
|
||||
|
||||
|
|
|
@ -29,7 +29,6 @@
|
|||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
|
||||
with Ada.Unchecked_Conversion;
|
||||
with Interfaces; use Interfaces;
|
||||
|
||||
|
|
|
@ -29,7 +29,6 @@
|
|||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
|
||||
with FAT_Filesystem.Files; use FAT_Filesystem.Files;
|
||||
with Ada.Unchecked_Conversion;
|
||||
|
||||
|
|
|
@ -29,7 +29,6 @@
|
|||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
|
||||
with Interfaces; use Interfaces;
|
||||
|
||||
with HAL.Audio;
|
||||
|
|
|
@ -29,8 +29,6 @@
|
|||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
|
||||
with Bitmapped_Drawing;
|
||||
|
||||
package Drawing renames Bitmapped_Drawing;
|
||||
|
||||
|
|
|
@ -29,7 +29,6 @@
|
|||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
|
||||
with Ada.Real_Time; use Ada.Real_Time;
|
||||
|
||||
with STM32.Board; use STM32.Board;
|
||||
|
|
|
@ -29,7 +29,6 @@
|
|||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
|
||||
-- This file provides the declaration for the task controlling the devices on
|
||||
-- the train controller demo.
|
||||
|
||||
|
|
|
@ -29,7 +29,6 @@
|
|||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
|
||||
with STM32.Board; use STM32.Board;
|
||||
with HAL.Bitmap; use HAL.Bitmap;
|
||||
|
||||
|
|
|
@ -29,7 +29,6 @@
|
|||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
|
||||
with HAL.Bitmap;
|
||||
|
||||
package Railroad is
|
||||
|
|
|
@ -29,7 +29,6 @@
|
|||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
|
||||
with HAL.Bitmap; use HAL.Bitmap;
|
||||
with Bitmapped_Drawing; use Bitmapped_Drawing;
|
||||
|
||||
|
|
|
@ -29,7 +29,6 @@
|
|||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
|
||||
with HAL.Bitmap;
|
||||
with Trains;
|
||||
|
||||
|
|
|
@ -29,7 +29,6 @@
|
|||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
|
||||
-- The file declares the main procedure for the demonstration.
|
||||
|
||||
with Driver; pragma Unreferenced (Driver);
|
||||
|
|
|
@ -29,7 +29,6 @@
|
|||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
|
||||
package body Trains with
|
||||
SPARK_Mode
|
||||
is
|
||||
|
|
|
@ -29,7 +29,6 @@
|
|||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
|
||||
package Trains with
|
||||
SPARK_Mode
|
||||
is
|
||||
|
|
|
@ -29,7 +29,6 @@
|
|||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
|
||||
with Ada.Real_Time; use Ada.Real_Time;
|
||||
with Ada.Unchecked_Conversion;
|
||||
with Ada.Text_IO;
|
||||
|
|
|
@ -29,7 +29,6 @@
|
|||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
|
||||
with Cos;
|
||||
with STM32.Board; use STM32.Board;
|
||||
|
||||
|
|
|
@ -29,7 +29,6 @@
|
|||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
|
||||
with Interfaces; use Interfaces;
|
||||
|
||||
package Textures is
|
||||
|
|
|
@ -29,7 +29,6 @@
|
|||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
|
||||
with Last_Chance_Handler;
|
||||
pragma Unreferenced (Last_Chance_Handler);
|
||||
|
||||
|
|
|
@ -29,7 +29,6 @@
|
|||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
|
||||
package body Partitions is
|
||||
|
||||
type Partition_Entry_Block_Mapping (Kind : Boolean := True) is record
|
||||
|
|
Loading…
Reference in New Issue