mirror of
https://github.com/genodelabs/genode.git
synced 2025-06-13 04:38:20 +00:00
Ada: cleanup sources (license headers, beautify)
This commit is contained in:
committed by
Norman Feske
parent
ddee65722f
commit
0ca197374e
@ -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 {};
|
||||||
};
|
}
|
||||||
};
|
}
|
||||||
|
@ -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
|
||||||
|
|
||||||
----------------------------
|
----------------------------
|
||||||
|
@ -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
|
||||||
|
@ -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 (
|
||||||
|
@ -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;
|
||||||
|
@ -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);
|
||||||
|
@ -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>
|
||||||
|
|
||||||
|
@ -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>
|
||||||
|
|
||||||
|
@ -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>
|
||||||
|
Reference in New Issue
Block a user