Fix double headers and double empty lines again

This commit is contained in:
Fabien Chouteau 2016-10-01 10:52:09 +02:00
parent efd1008ed1
commit 2c34099040
63 changed files with 1 additions and 125 deletions

View File

@ -29,7 +29,6 @@
-- --
------------------------------------------------------------------------------
with Ada.Real_Time; use Ada.Real_Time;
with STM32_SVD.I2C; use STM32_SVD.I2C;

View File

@ -29,7 +29,6 @@
-- --
------------------------------------------------------------------------------
-- This file provides definitions for the STM32F7 (ARM Cortex M7F
-- from ST Microelectronics) Inter-Integrated Circuit (I2C) facility.

View File

@ -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;

View File

@ -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.

View File

@ -29,7 +29,6 @@
-- --
------------------------------------------------------------------------------
package body Semihosting.Filesystem is
-----------------

View File

@ -29,7 +29,6 @@
-- --
------------------------------------------------------------------------------
with Ada.Real_Time; use Ada.Real_Time;
with STM32.Device; use STM32.Device;

View File

@ -29,7 +29,6 @@
-- --
------------------------------------------------------------------------------
with Interfaces; use Interfaces;
with Ada.Interrupts.Names;

View File

@ -29,7 +29,6 @@
-- --
------------------------------------------------------------------------------
-- MPU9250 I2C device class package
with Interfaces; use Interfaces;

View File

@ -29,7 +29,6 @@
-- --
------------------------------------------------------------------------------
-- The file declares the main procedure for the demonstration.
with Last_Chance_Handler; pragma Unreferenced (Last_Chance_Handler);

View File

@ -29,7 +29,6 @@
-- --
------------------------------------------------------------------------------
with STM32.Board; use STM32.Board;
package body Framebuffer_Helper is

View File

@ -29,7 +29,6 @@
-- --
------------------------------------------------------------------------------
package Framebuffer_Helper is
procedure Update_All_Layers;

View File

@ -29,7 +29,6 @@
-- --
------------------------------------------------------------------------------
with Interfaces; use Interfaces;
with Interfaces.Bit_Types; use Interfaces.Bit_Types;

View File

@ -29,7 +29,6 @@
-- --
------------------------------------------------------------------------------
with HAL.Bitmap; use HAL.Bitmap;
with Bitmapped_Drawing; use Bitmapped_Drawing;

View File

@ -29,7 +29,6 @@
-- --
------------------------------------------------------------------------------
package body Grid is
function Can_Move_Row (Row : in Row_T) return Boolean;

View File

@ -29,7 +29,6 @@
-- --
------------------------------------------------------------------------------
package Grid is
type Size is new Integer range 0 .. 3;

View File

@ -29,7 +29,6 @@
-- --
------------------------------------------------------------------------------
with STM32.Board; use STM32.Board;
package body Framebuffer_Helper is

View File

@ -29,8 +29,6 @@
-- --
------------------------------------------------------------------------------
with System.Storage_Elements; use System.Storage_Elements;
with Ada.Unchecked_Conversion;

View File

@ -29,7 +29,6 @@
-- --
------------------------------------------------------------------------------
-- A simple implementation of storage allocation (malloc etc) for ZFP use
pragma Restrictions (No_Elaboration_Code);

View File

@ -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

View File

@ -29,7 +29,6 @@
-- --
------------------------------------------------------------------------------
pragma Restrictions (No_Streams);
package Solver is

View File

@ -29,7 +29,6 @@
-- --
------------------------------------------------------------------------------
with Game;
with STM32.Board; use STM32.Board;

View File

@ -29,7 +29,6 @@
-- --
------------------------------------------------------------------------------
with Bitmapped_Drawing; use Bitmapped_Drawing;
with HAL.Bitmap; use HAL.Bitmap;

View File

@ -29,7 +29,6 @@
-- --
------------------------------------------------------------------------------
with Ada.Real_Time; use Ada.Real_Time;
with Ada.Text_IO; use Ada.Text_IO;

View File

@ -29,7 +29,6 @@
-- --
------------------------------------------------------------------------------
with Bitmapped_Drawing; use Bitmapped_Drawing;
package TP is

View File

@ -29,7 +29,6 @@
-- --
------------------------------------------------------------------------------
-- This version is for use with the ravenscar-sfp runtime.
with System;

View File

@ -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.

View File

@ -29,7 +29,6 @@
-- --
------------------------------------------------------------------------------
with HAL; use HAL;
package body Bitmapped_Drawing is

View File

@ -29,7 +29,6 @@
-- --
------------------------------------------------------------------------------
-- This package provides routines for drawing shapes, characters, and strings
-- on a bit-mapped device or graphical buffer.

View File

@ -29,7 +29,6 @@
-- --
------------------------------------------------------------------------------
package body Hershey_Fonts is
function Get_Glyph (C : Character) return Glyph_Index;

View File

@ -29,7 +29,6 @@
-- --
------------------------------------------------------------------------------
-- This package handles the Hershey font format.
with Interfaces; use Interfaces;

View File

@ -29,7 +29,6 @@
-- --
------------------------------------------------------------------------------
with STM32.Board; use STM32.Board;
with Bitmapped_Drawing;

View File

@ -29,7 +29,6 @@
-- --
------------------------------------------------------------------------------
-- This package provides a set of convenience routines for putting characters
-- and strings out to the LCD.

View File

@ -29,7 +29,6 @@
-- --
------------------------------------------------------------------------------
-- This version is for use with the ravenscar-sfp runtime.
with System;

View File

@ -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.

View File

@ -29,7 +29,6 @@
-- --
------------------------------------------------------------------------------
-- The file declares the main procedure for the demonstration.
with Conway_Driver; pragma Unreferenced (Conway_Driver);

View File

@ -29,7 +29,6 @@
-- --
------------------------------------------------------------------------------
with Ada.Unchecked_Conversion;
with Interfaces; use Interfaces;
with HAL; use HAL;

View File

@ -29,7 +29,6 @@
-- --
------------------------------------------------------------------------------
with System;
package Conway_Driver is

View File

@ -29,7 +29,6 @@
-- --
------------------------------------------------------------------------------
-- A very simple draw application.
-- Use your finger to draw pixels.

View File

@ -29,7 +29,6 @@
-- --
------------------------------------------------------------------------------
with Ada.Real_Time;
with Interfaces; use Interfaces;
with STM32.Eth;

View File

@ -29,7 +29,6 @@
-- --
------------------------------------------------------------------------------
with Ada.Unchecked_Conversion;
package body FAT_Filesystem.Directories is

View File

@ -29,7 +29,6 @@
-- --
------------------------------------------------------------------------------
package FAT_Filesystem.Directories is
type Directory_Entry is private;

View File

@ -29,7 +29,6 @@
-- --
------------------------------------------------------------------------------
with Ada.Unchecked_Conversion;
with FAT_Filesystem; use FAT_Filesystem;

View File

@ -29,7 +29,6 @@
-- --
------------------------------------------------------------------------------
-- Initial contribution by:
--
-- Institution: Technische Universitaet Muenchen

View File

@ -29,7 +29,6 @@
-- --
------------------------------------------------------------------------------
with Ada.Unchecked_Conversion;
with FAT_Filesystem.Directories;

View File

@ -29,7 +29,6 @@
-- --
------------------------------------------------------------------------------
with Interfaces; use Interfaces;
with HAL.Block_Drivers; use HAL.Block_Drivers;

View File

@ -29,7 +29,6 @@
-- --
------------------------------------------------------------------------------
with Ada.Unchecked_Conversion;
with Interfaces; use Interfaces;

View File

@ -29,7 +29,6 @@
-- --
------------------------------------------------------------------------------
with FAT_Filesystem.Files; use FAT_Filesystem.Files;
with Ada.Unchecked_Conversion;

View File

@ -29,7 +29,6 @@
-- --
------------------------------------------------------------------------------
with Interfaces; use Interfaces;
with HAL.Audio;

View File

@ -29,8 +29,6 @@
-- --
------------------------------------------------------------------------------
with Bitmapped_Drawing;
package Drawing renames Bitmapped_Drawing;

View File

@ -29,7 +29,6 @@
-- --
------------------------------------------------------------------------------
with Ada.Real_Time; use Ada.Real_Time;
with STM32.Board; use STM32.Board;

View File

@ -29,7 +29,6 @@
-- --
------------------------------------------------------------------------------
-- This file provides the declaration for the task controlling the devices on
-- the train controller demo.

View File

@ -29,7 +29,6 @@
-- --
------------------------------------------------------------------------------
with STM32.Board; use STM32.Board;
with HAL.Bitmap; use HAL.Bitmap;

View File

@ -29,7 +29,6 @@
-- --
------------------------------------------------------------------------------
with HAL.Bitmap;
package Railroad is

View File

@ -29,7 +29,6 @@
-- --
------------------------------------------------------------------------------
with HAL.Bitmap; use HAL.Bitmap;
with Bitmapped_Drawing; use Bitmapped_Drawing;

View File

@ -29,7 +29,6 @@
-- --
------------------------------------------------------------------------------
with HAL.Bitmap;
with Trains;

View File

@ -29,7 +29,6 @@
-- --
------------------------------------------------------------------------------
-- The file declares the main procedure for the demonstration.
with Driver; pragma Unreferenced (Driver);

View File

@ -29,7 +29,6 @@
-- --
------------------------------------------------------------------------------
package body Trains with
SPARK_Mode
is

View File

@ -29,7 +29,6 @@
-- --
------------------------------------------------------------------------------
package Trains with
SPARK_Mode
is

View File

@ -29,7 +29,6 @@
-- --
------------------------------------------------------------------------------
with Ada.Real_Time; use Ada.Real_Time;
with Ada.Unchecked_Conversion;
with Ada.Text_IO;

View File

@ -29,7 +29,6 @@
-- --
------------------------------------------------------------------------------
with Cos;
with STM32.Board; use STM32.Board;

View File

@ -29,7 +29,6 @@
-- --
------------------------------------------------------------------------------
with Interfaces; use Interfaces;
package Textures is

View File

@ -29,7 +29,6 @@
-- --
------------------------------------------------------------------------------
with Last_Chance_Handler;
pragma Unreferenced (Last_Chance_Handler);

View File

@ -29,7 +29,6 @@
-- --
------------------------------------------------------------------------------
package body Partitions is
type Partition_Entry_Block_Mapping (Kind : Boolean := True) is record