Ada: cleanup sources (license headers, beautify)

This commit is contained in:
Johannes Kliemann
2018-07-03 15:01:07 +02:00
committed by Norman Feske
parent ddee65722f
commit 0ca197374e
9 changed files with 242 additions and 124 deletions

View File

@ -1,3 +1,16 @@
/*
* \brief Ada exception declarations for C++
* \author Johannes Kliemann
* \date 2018-06-25
*
*/
/*
* Copyright (C) 2018 Componolit GmbH
*
* This file is part of the Genode OS framework, which is distributed
* under the terms of the GNU Affero General Public License version 3.
*/
#include <base/exception.h> #include <base/exception.h>
@ -14,5 +27,5 @@ namespace Ada {
class Index_Check : Constraint_Error {}; class Index_Check : Constraint_Error {};
class Discriminant_Check : Constraint_Error {}; class Discriminant_Check : Constraint_Error {};
class Divide_By_Zero : Constraint_Error {}; class Divide_By_Zero : Constraint_Error {};
}; }
}; }

View File

@ -1,3 +1,15 @@
--
-- \brief Ada exceptions
-- \author Johannes Kliemann
-- \date 2018-06-25
--
-- Copyright (C) 2018 Genode Labs GmbH
-- Copyright (C) 2018 Componolit GmbH
--
-- This file is part of the Genode OS framework, which is distributed
-- under the terms of the GNU Affero General Public License version 3.
--
package body Ada.Exceptions is package body Ada.Exceptions is
---------------------------- ----------------------------

View File

@ -1,3 +1,15 @@
--
-- \brief Ada exceptions
-- \author Johannes Kliemann
-- \date 2018-06-25
--
-- Copyright (C) 2018 Genode Labs GmbH
-- Copyright (C) 2018 Componolit GmbH
--
-- This file is part of the Genode OS framework, which is distributed
-- under the terms of the GNU Affero General Public License version 3.
--
with System; with System;
package Ada.Exceptions is package Ada.Exceptions is

View File

@ -1,3 +1,15 @@
--
-- \brief Ada secondary stack
-- \author Johannes Kliemann
-- \date 2018-04-16
--
-- Copyright (C) 2018 Genode Labs GmbH
-- Copyright (C) 2018 Componolit GmbH
--
-- This file is part of the Genode OS framework, which is distributed
-- under the terms of the GNU Affero General Public License version 3.
--
package body System.Secondary_Stack is package body System.Secondary_Stack is
procedure SS_Allocate ( procedure SS_Allocate (

View File

@ -1,3 +1,15 @@
--
-- \brief Ada secondary stack
-- \author Johannes Kliemann
-- \date 2018-04-16
--
-- Copyright (C) 2018 Genode Labs GmbH
-- Copyright (C) 2018 Componolit GmbH
--
-- This file is part of the Genode OS framework, which is distributed
-- under the terms of the GNU Affero General Public License version 3.
--
with System.Storage_Elements; with System.Storage_Elements;
with Ss_Utils; with Ss_Utils;
use all type Ss_Utils.Thread; use all type Ss_Utils.Thread;

View File

@ -1,3 +1,18 @@
/*
* \brief Implementation of Ada exception functions, propagating to C++
* \author Alexander Senier
* \author Johannes Kliemann
* \date 2018-04-16
*
*/
/*
* Copyright (C) 2018 Genode Labs GmbH
* Copyright (C) 2018 Componolit GmbH
*
* This file is part of the Genode OS framework, which is distributed
* under the terms of the GNU Affero General Public License version 3.
*/
#include <base/log.h> #include <base/log.h>
#include <util/string.h> #include <util/string.h>
@ -82,7 +97,7 @@ extern "C" {
} }
/* Divide by 0 */ /* Divide by 0 */
void __gnat_rcheck_CE_Divide_By_Zero (char *file, int line) void __gnat_rcheck_CE_Divide_By_Zero(char *file, int line)
{ {
Genode::error("Constraint Error: Divide by zero in ", Genode::error("Constraint Error: Divide by zero in ",
Genode::Cstring(file), " at line ", line); Genode::Cstring(file), " at line ", line);

View File

@ -1,3 +1,17 @@
/*
* \brief Provide dummy for custom Ada exceptions
* \author Johannes Kliemann
* \date 2018-06-25
*
*/
/*
* Copyright (C) 2018 Genode Labs GmbH
* Copyright (C) 2018 Componolit GmbH
*
* This file is part of the Genode OS framework, which is distributed
* under the terms of the GNU Affero General Public License version 3.
*/
#include <base/log.h> #include <base/log.h>

View File

@ -1,3 +1,17 @@
/*
* \brief Dummy implementation for Ada softlinks
* \author Johannes Kliemann
* \date 2018-04-16
*
*/
/*
* Copyright (C) 2018 Genode Labs GmbH
* Copyright (C) 2018 Componolit GmbH
*
* This file is part of the Genode OS framework, which is distributed
* under the terms of the GNU Affero General Public License version 3.
*/
#include <base/log.h> #include <base/log.h>

View File

@ -1,3 +1,17 @@
/*
* \brief Test Ada exceptions in C++
* \author Johannes Kliemann
* \date 2018-06-25
*
*/
/*
* Copyright (C) 2018 Genode Labs GmbH
* Copyright (C) 2018 Componolit GmbH
*
* This file is part of the Genode OS framework, which is distributed
* under the terms of the GNU Affero General Public License version 3.
*/
#include <base/log.h> #include <base/log.h>
#include <base/component.h> #include <base/component.h>