mirror of
git://gcc.gnu.org/git/gcc.git
synced 2025-03-27 18:51:13 +08:00
0355e3ebbe
2014-02-25 Robert Dewar <dewar@adacore.com> * lib.ads, s-bitops.adb, s-bitops.ads, s-conca5.adb, gnat_rm.texi, s-conca5.ads, s-conca7.adb, s-conca7.ads, s-crc32.adb, s-crc32.ads, s-conca9.adb, s-conca9.ads, g-dyntab.adb, s-crtl.ads, g-dyntab.ads, s-excdeb.adb, s-addope.adb, s-addope.ads, s-carun8.adb, s-carun8.ads, g-htable.adb, g-htable.ads, g-hesora.adb, g-hesora.ads, s-conca2.adb, s-conca2.ads, a-comlin.adb, a-chlat1.ads, a-comlin.ads, errout.ads, a-except.adb, s-conca4.adb, a-except.ads, s-conca4.ads, s-conca6.adb, s-conca6.ads, g-spchge.adb, g-spchge.ads, g-u3spch.adb, g-u3spch.ads, a-strhas.ads, restrict.adb, aspects.adb, aspects.ads, s-conca8.adb, s-conca8.ads, back_end.adb, par-prag.adb, g-byorma.adb, g-byorma.ads, a-elchha.adb, a-elchha.ads, g-speche.adb, g-speche.ads, s-casuti.adb, s-assert.adb, s-casuti.ads, s-assert.ads, a-clrefi.adb, a-clrefi.ads, s-conca3.adb, s-conca3.ads, a-ioexce.ads: Implement pragma Compiler_Unit_Warning, change Compiler_Unit everywhere to Compiler_Unit_Warning. 2014-02-25 Sergey Rybin <rybin@adacore.com frybin> * sem_prag.adb (Analyze_Depends_In_Decl_Part): Do not normalize in ASIS mode aggregates that are used as aspect definitions. From-SVN: r208137
76 lines
3.3 KiB
Ada
76 lines
3.3 KiB
Ada
------------------------------------------------------------------------------
|
|
-- --
|
|
-- GNAT COMPILER COMPONENTS --
|
|
-- --
|
|
-- S Y S T E M . E X C E P T I O N S _ D E B U G --
|
|
-- --
|
|
-- B o d y --
|
|
-- --
|
|
-- Copyright (C) 2006-2013, Free Software Foundation, Inc. --
|
|
-- --
|
|
-- GNAT is free software; you can redistribute it and/or modify it under --
|
|
-- terms of the GNU General Public License as published by the Free Soft- --
|
|
-- ware Foundation; either version 3, or (at your option) any later ver- --
|
|
-- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
|
|
-- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY --
|
|
-- or FITNESS FOR A PARTICULAR PURPOSE. --
|
|
-- --
|
|
-- As a special exception under Section 7 of GPL version 3, you are granted --
|
|
-- additional permissions described in the GCC Runtime Library Exception, --
|
|
-- version 3.1, as published by the Free Software Foundation. --
|
|
-- --
|
|
-- You should have received a copy of the GNU General Public License and --
|
|
-- a copy of the GCC Runtime Library Exception along with this program; --
|
|
-- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see --
|
|
-- <http://www.gnu.org/licenses/>. --
|
|
-- --
|
|
-- GNAT was originally developed by the GNAT team at New York University. --
|
|
-- Extensive contributions were provided by Ada Core Technologies Inc. --
|
|
-- --
|
|
------------------------------------------------------------------------------
|
|
|
|
pragma Compiler_Unit_Warning;
|
|
|
|
package body System.Exceptions_Debug is
|
|
|
|
---------------------------
|
|
-- Debug_Raise_Exception --
|
|
---------------------------
|
|
|
|
procedure Debug_Raise_Exception (E : SSL.Exception_Data_Ptr) is
|
|
pragma Inspection_Point (E);
|
|
begin
|
|
null;
|
|
end Debug_Raise_Exception;
|
|
|
|
-------------------------------
|
|
-- Debug_unhandled_Exception --
|
|
-------------------------------
|
|
|
|
procedure Debug_Unhandled_Exception (E : SSL.Exception_Data_Ptr) is
|
|
pragma Inspection_Point (E);
|
|
begin
|
|
null;
|
|
end Debug_Unhandled_Exception;
|
|
|
|
--------------------------------
|
|
-- Debug_Raise_Assert_Failure --
|
|
--------------------------------
|
|
|
|
procedure Debug_Raise_Assert_Failure is
|
|
begin
|
|
null;
|
|
end Debug_Raise_Assert_Failure;
|
|
|
|
-----------------
|
|
-- Local_Raise --
|
|
-----------------
|
|
|
|
procedure Local_Raise (Excep : System.Address) is
|
|
pragma Warnings (Off, Excep);
|
|
begin
|
|
return;
|
|
end Local_Raise;
|
|
|
|
end System.Exceptions_Debug;
|